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通信ネットワークなど i 

ニューメテネアに対応した 
ハードの先端性に応えて、 
第一線の汎用ソフトが勢揃い。 

いま最前線の 

ノ 《ソコンフイールドに躍り出たスーノ 、。一 MZ < 

可能性に挑むキミに咲く。 





























SHARP 


• 640 X 400 ドット(標準で 4 色、最大 16 色)の高精細度、256色 
同時表示 （320 X 200 ドットモード)のきわだつカラー表現。圧倒 
的なスピードと色彩感覚のグラフィックス•音声やナレーシヨ 
ンを入れた個性あるソフトづくりにボイスレコーダ搭載•楽器 
音もつくれる FM 音源を加えた8オクターブ6重和音のサウンド 
機能修 JIS 第1 Z 第2水準漢字 ROM 標準装備、く主な別売品〉 
■ ボイスコミユニケーシヨンインターフエイス MZ -1 E 26 標準価格 

24,800円■漢字ドットプリンタ MZ -1 P 18 標準価格188.000円 
■カラーパレットポートボード MZ -1 M 10 標準価格14.500円 ■ 
辞窨 ROM ポード MZ -1 R 28 標準価格22.000円■增設 RAM ポ 
ード MZ -1 R 26標準価格35.000円■增設ビデオ RAM ボード MZ 
-1 R 27 標準価格20.000円 ^PERSONAL CP / M ^ M * 1 (WORD 
M ASTERTM * 2付 ） M Z -6 Z 001 標準価格 16.800 円 


MASTERTM *2 付） MZ -6 Z 001 標準価格16.800円 ^ 

二 = - = =… I I 

mmmwm 酵 



先進のハ ー ド&ソフト 
いま、即戦力の手応え。 



I 8 ビットパーソナルコンピュータ MZ- 2500 シリーズ丨 / ... 

Model 20(MZ-2511 -640KB3.5*FD1 基付)標準価格168.000円 ' - ^ ' • 

Model 30(MZ-252 卜 640KB3YFD2 基付)標準価格198.000円 _ … - 

*1CP M は米国デジタルリサーチ社の登 SI 商摞です.*2 WORDMASTER はマイク□プロインターナショナルの登録商摞です 


塵 


写真の14型カラーディスプレイ MZ-1D22 標準価格108.000円、カラー;1字 
サーマルブリンタ MZ-1PI7 摞準価格79.800円は別充です：なお、本体装*の 
カセットは、付*品.市販品ではありません画面は ハメコミ 合成です.， 


麟呻/ニスぐレ]^ 


アクティブなキミの挑戦に応える、いま話題のソフトー例。 

ワープロ 



1ユーカラ K 2+ ターボキット 

28,000円 

通信機能、テレホンソフト読み取り機能、辞書 ROM 対応など、ユーカラ 
K 2 の用途をひろげる「 K 2 ターボキット」をサポート。 

㈱ 東海クリェ イト 

Tel .03 (456) 4610 

■ ユーカラ K 2 

18,000円 

1 K 2 ターボキット 

14.000円 

NeoWORD Super 

28,000円 

イラスト、辞書 ROM 、 文書通信など新しい機能でスーパー MZ の高度な 
日本語処理機能をサポート。 

新電子システム ㈱ 

Tel .0942(39)2404 

Peach Text 41 

29,800円 

2つの文書の同時処理、移動•抜粋などのブロック処理、サーチ&リ 
プレ r スなど、編集•管理•印刷機能に優れた英文ワープロの決定版。 

揉マイクロソフトウェアアソシエイツ 

Tel .03 (486) 1411 

グラフィック ツール 




ぱれつと 

18,000円 

マウスとアイコン表示で作図、着色。ワープロ文書も読み込め、絵や 
文字を組み合わせた表現力豊かなグラフィックスが手軽に。 

㈱ ダイナウェア 
Tel .0727(62)8201 

表計算型 簡易 ソフト 




MULTIPLAN ™ 

40,000円 

計算•作表用ツールとして著名なソフト。目的に応じて自由にレイアウ 
卜できるワークシートで集計から高度な経営シミュレーションまで対応。 

㈱ アスキー 

Tel .03(486)7111 

Hu - CA し 日本語 

45,000円 

仕事の内容に即じ C 使える独自のマクロ命令や高度な計算に対応する組み 
込み関数、加えて簡易ワープロとして利用できる日本語処理機能。 

㈱ ハドソン 

Tel .03 (260) 4622 

〆 くーソ ナル ビジ レス 

28,000円 

カルク、スプレッドシート、 RDB 機能を合わせもつマルチタスク指向の 
ビジネスツール。辞書 ROM のサポートで高速文節変換可能。 

㈱ OA テック 

Tel .0564(53) 9400 

ビジ レス 

48,000円 

SUPER CA し C 2: 1 

29,800円 

ワークシートと呼ばれる電子の集計用紙を基本概念に、事務計算 
や集計業務を格段に能率アップさせる表計算型ビジネスツール。 

㈱ マイクロソフトウェアアソシエイツ 

Tel .03 (486) 1411 

イ吏用に際しては PERSONAL 

ホスドノフトもァク tl 

_ CP / M ( MZ -6 Z 0 l 

01標準価格16.800円）が必要です: • MUUHPLAN はう 

长国マイクロソフト社の登録商招 

II です。 

てスソフトも、ノ ▽ノコン通彳吕にちノマンチリ対応 

モデムホン 

MZ -1 X 19 標準価格98,000円 

モデムユニット ★ 

MZ -1 X 22 標準価格21,800円 

TOWN BBS (ホストソフト） 

29,800円シスポート Tel . 07746(3)1131 


テレホンソフト 

(標準装備） 

各種 ネットワークにアクセスできるターミナル機能やデータ通 
信機能に加え、登録件数 最大4000 件の本格的なデータべ 
ース機能を装備。音声通信にも対応しています。 


※テレホンソフトの jlHV 機能を利川するためには，別.たのモデムホンまたはモデム ユニットが 必要です 
また疗パり! iif,; •にはモデムホンの他に別，ぶのボイスコミュニケーションインターフェイスが必要です。 


★ MZ -1 X 22 を MZ - 2500でご使用の堝仏接統ケーブル CE -501 L 
(標準価格7.800円）が必要です。 


キミの街にもパソコン通信基地ができた.グ いま心-■システムを使用した、ホスト局が 


全国120拠点で開設いたします。 


分妙-：株式会《 

本社 亍 545大阪市阿倍野区長池町22番22号 0(06)621-1221( 大代表）* 


お問い合わせは•••本社内国内情報システム営業本部まて 


MZ - 2500 

#料求券 
Oh/MZ-10 月 
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表紙絵： Yasufumi Fujii 

UNIX は米国べル研究所で開発されたソフトウエア 
です.. 

VENIX はベンチャーコム社 

CP/M.P-CP M.CP M-86.MP MU Digital Research 社 

XEMX . MS-DOS は Microsoft 社 

FLEX は TSC 社 

UCSD p-System はカリフォルニア大学理事会 
RACET NECDOS は RACET COMPUTES 社 
SB-80.SB-86 は LIFEBOAT ASSOCIATES 
WORDSTAR. MAI し MERGE. SPE しし STAR. WORD 
MASTER. CA し CSTAR. DATASTAR. SUPERSOFT. 
INFOSTAR は Micro Pro 社の各メーカーの登 S 摘慊てす 
その他フログラム名，システム名. CPU 名は一般に 
各メーカーの登錄商榡です 

本文中では" TM","R ” マークは 明記していません， 
本誌に掲鼪されたすへてのフログラムは著作榷法 
上.個人で使用するほかは無断で複製することを 
禁じられています 


プログラミングの楽しみ . 中川智哉 60 

多桁演算と円周率 . 粢野雅彦 62 

電卓プログラムである ……パ兄—平 B 6 
巳巳 S シミュレータ 高原ひでき 68 

おかしなおかしなプログラマ …•吉田幸一 71 

1111 r^o — mm u 

mz - 2500グラフィックツール Super Paint . 赤松慶三 77 

MZ- 2500 PYRAMID WARS ^ ^ 85 
XI XI turbo ZOONE 長沢淳博昍 

mz -1500 jocose John 斎藤和佳 94 

MZ- 7001500, 80巳/2000 2200/2500 北斗の男… 西谷久範 1 G 3 

秋のゲーム研究課題提出 PartV …3〇 
A 列車で行こう/スーパーランボー 
発•汗•惑•星/アルファ 
レリクス/ライーザ 

ウイバーン/ザ•スクリーマー… .42 


ワープロの拡大利用の可能性 

SUPER 春望 …44 


SOFTWARE INFORMATION 

新作ソフト情報 / MR-ASM*MR-D 46 







































カラー 紹介 

_ 1 . S 

投稿作品画面集 

23 

アナグリフによる 

立体像のプログラム 

25 

turbo Z’s STAFF の魅力 

27 

シリーズ全機種共通システム 


THE SENTINEL 

145 

ちょっと便利な拡張プログラム 

S-OS にトランジェントコマンドを 

Z A 1 □の逆アセンブルにアスキー表示を 

146 

川嶋智治 
新司喜則 

テイスクモニタ DREAM 

金山弘之 1 已 [) 

Fu^gBASIC 料理法く 

•清謹山孝 1G1 

msm 


猫とコンピュータ第 16 回 __ 

高沢恭子 

パソコン千夜一夜第 29 夜 

あこがれのコンピュータく 自殺プログラム〉 

•峰岸順二 13G 

[ 講座/ゲー厶だジネス /DOS/ 八一 

ド 


パソコン立体学 “ 実践 ” 講座 <1> 

アナクリフによる立体視 …青木実48 

試験に出る第 17 回 

まとめなのである …… ……祝-平120 

マシン語体操 V2*3 ExerciselO 

「オームの大冒険」入門編 ……泉大介137 

1500 700 USERS' BULLETIN No.9 

256色パレットボードの製作 湯下 良一〗 67 


Oh! MZ 質問箱 . 174 

愛読者プレゼント . 176 

ペンギン情報コーナー / Again Watch. 177 

Between The Lines.180 

STUDIO MZ.182 

FILES Oh! MZ.186 

編集室から DRIVE ON こめんなさいのコーナー 

SHIFT BREAK microOdyssey.188 


HD 64180 (開発:日立 198 讳) 

Z 80 上位コンパチブルで ， MMU (メモリ 
管理ユニット：メモリ空間 5 I 2 K バイト）， 
DMAC (ダイレクトメモリアクセスコント 
口ーラ), ASCI (非同期シリアル通信 I / F )， 
CSI /0( クロック同期式シリアル I / O ポー 
卜），タイマー, DRAM リフレッシュ機能を 
チップに内蔵し，さらに 8 X 8=16 ビット 
乗算など命令も拡張/高速化されている。 
CMOS 8ビット。基本命令数165。ピン数 
64 (アドレスバス19，データバス8)。最 
短命令実行時間 0.5// s (6 MHz )。 最大ク 
ロック 4 MHz (64 l 80)，6 MHz (64 AI 80), 
8 MHz (64 BI 80)。 


■広告目次 

アイビット電子 . 196.197 

アーマット . 198 

WAVE EYE. 201 

SBC ソフトウェア . 18 

ェプソン販売 . II 

コスモス岡山 . 208 

サムシンググッド . 15 

J &P . 表 3.204~207 

シャープ . 表 2 •表 4* I *4— 10 

スガヤ . 199 

スクウェア . 22 

九十九電機 . 200 

テイーアンドイーソフト . 19 

デービー ソフト .20*21 

日本ファルコム . 16.17 

パシフィックコンピュータバンク …202,203 

ブラザー販売 . 12-13 

BLUE SKY. 194 

BASIC HOUSE. 192 

マイクロポート . 195 

マイコンシステム企画 . 198 

マイコンハウス SPS . 14 

ラウンドシステム研究所 . 193 


くスタッフ〉 

•編集長安田千尋•副編集長/前田徹•編集/土平章博永野仁植 
木章夫石塚康世北西宮子 S 上之彦•協力/有田隆也高野腐一西畑文 
広 Itti Rittaporn 河本恭彦清水和人後藤貴行林一樹斎藤亮近藤 
弘幸浅野恵造エ藤誠茗原秀幸小森隆挙市哲司井本泰山田伸 
一郎堀内保秀吉田幸一佐藤学瀧山孝•カメラ/杉山和美參イラ 
スト.,永沢しげる山田啃久參アートディレクター中島真子•レイアウト 
CAN ART 元木昌子籲校正手塚喜美子千野延明 























































































快:走、ハイ•ポテ 

- 時代に応えた3つの有爸力て又 


パーソナルコンピュータ+キーボード CZ -856 C ( E ) オフィスグレ- ( B ) ブラック ……標準価格178,000円 
15型カラーデ f スプレイテレビ CZ -855 D ( E ) オフィスグレ- ( B ) ブラック ……標準価格119,800円 

春使いやすさと高度な能力で好評の漢字 BASIC 搭載❿漢字1000文字表示などレベルの高い表現が可能、 640 X 400 ドットフルカラーの高速•高 
密度グラフィックス•ビデオをつなぐだけでスーハ•ーインポーズ録画ができるデジタルテロッパ機能内蔵 # JIS 第1水準漢字 ROM 標準実装#5インチ 
ミニフロッピーディスクドライブ2基内蔵參マウス、 RS -232 C など充実のユーザーインターフェイス•豊富なソフト資産が活用できるコンパチブル設計 



























SHARP 


ンシヤノ 〆 x 

鮮やかな/ ぐノコンシーンを創造0 - 


日本語処理 画像処理 


通信対応 


文章もプログラムも乏之^ J 座 

日本語百科 WORD PDUJER ヮードパヮ _I 

文章づくりの発想から表現まで、さまざま 
な角度から日本語をサポートする先進 
の日本語システムで 1;一般熟語はもち 
ろん、人名•地名•類語•同義語•同音 
異義語、さらに四文字成句、故事•こと 
わざ、手紙の慣用表現など、収録語数 
は約9万語。しかもそれらが自在に文章 
にとり込めま1；たとえば、心ならずも断り 
状を書〈場合など、''お力になれなくて、 
都合がつきかね、せっかくのお話、不本 
意…"、次々とでてきて活用自在、表現 
多彩に応えてくれます。 


ターボ博士 LEKicnn レキシコン 

ターボの優れた日本語処理能力を 
BASIC に活かした独自の応用機能 
です。日本語によるコマンドの検索や意 
味•用法の確認、さらにプログラムへの 
とり込みといったことだけでなく、マニュ 
アルのかわりと U ： 楽し〈簡単に BASIC 
が覚えられ応用できる便利なツール。 
初めての人にはもちろん、上級者にも 
充分活用いただける、いわば強力な 
ヘルプ機能です。 


テレビ•ビデオの映像を C . G . に活かす 

テレビはもちろん、ビデオやビデオデ: f ス 
ク、ビデオカメラからの映像を、瞬時に 
静止画像と U ： とり込める——高速画 
像入力装置「カラーイメージボード」 
(別売）を使えば、興奮のビジュアルシ 
ーンがターボで自在 ( こ駆使できま1; 
画像は拡大•縮小•切り抜き • 輪郭描 
出など修正•加工も自在。また16画面 • 
4画面ストロボアクション効果やカラー 
反転表示も楽しめま1；絵筆をキーボ 
ードやマウスに置きかえれば、ブラウン 
管はもうキャンバス気 
分。アートじ、も一気に 
加速します。美しく印 
刷できるカラープリン 
夕も用意しました。 


■カラ-イメージポード CZ -8 BV 1 標準価格39,800円 

(画像処理ソフトカラーイメージツール同梱、 X 1/ X 1 turbo シリーズ用） 



_24ドット熱転写カラ-漢字プリンタ CZ -8 PC 1 標準価格69,800円 

( X 1/ X 1 lurbo シリーズ用） 



多彩なツールで手軽なパソコン通信 

話題のネットワークにアクセスしたり、 
データ通信(漢字対応）がスピーデ(に 
楽しめる 「 turbo ターミナル」※をはじめ、 
モデムボードの付いた通信ソフト「モデ 
ムターミナル」※や通信ソフト （2 D .5" 
FD 版）を同悃した「モデム ユニット」' 



さらにお手持ちのターボやターボ II を 
ホスト システムと してホスト局が運営でき 
る「コスモステーション」※など、多彩な 
通信ツールでパソコン通信が手軽に。 


ターボの優れた通信環境が コミュ ニ 
ケー シ ヨンの幸をど 
んどん拡げます。 


豪いずれも別売です。 


を^^^^ 


■モデムユニット CZ -8 TMI 標準価格29,800円 

(通信ソフト . RS -232 C ケーブル同梱、 X 1/ X 1 turbo シリーズ用） 


■ turbo ターミナル CZ -13 ISF 標準価格8,800円 

(2 D *5 下 D 版、 XI turbo シリーズ用） 


■モデムタ-ミナル CZ -133 SF 標準価格25,800円 

(モデムボード付. 2 D .5" FD 版、 X 1/ XI turbo シリーズ用） 

■コスモステ-ション CZ -136 SF 標準価格9,800円 

(2 D .5 TD 版 、XI turbo シリーズ用） 


★多彩なシンセサイザーサウンドが楽しめる FM 音源も新発売ガ 

ステレオタイプ FM 音源ボード CZ -8 BS 1 標準価格23,800円(スピーカー <2本一組〉•ミュージックツール <2 D .5" FD 版〉同梱、 X 1/ X 1 turbo シリーズ用） 


- X 1ターホネットワーク十ャノへーノ推進中//- 

シャープは、全国のテンーラーへ向けて、XIターボ/ターボIIをホストシステムとしたパソコン通信ホスト局開設推進のキャンペーンを 
実施中。まもなく、あなたの街で BBS や電子メールが楽しめる……。お手持ちのパソコンならほとんどの機種でアクセス 0K。 


XI シ 1 J _ ズ活用情報誌「それゆけ / xij 


■年間購読申し 込み方法：郵便振替にて鉍寄りの郵便 W 窓丨 I からへお申し 
込みください：*口座番号東京 0-1 27451•加入者名エーゼツトビジコム ㈱ それ行け/ 
xi 編集部•金額2,640円（送 h はお各様ご nm となります。）※偶玫 n 未 h で 〆 切り、 

よりのお届けとなります>(10月末日までにお申し込みの場合、12月発行の14号よりお送りします》) 


v /^- 7 / o ^ m^n •お問い合わせは…シャープ ㈱ 電子機器事業本部システム檐器営業部〒545大阪市阿倍野区長池町22番22号〇(06)62卜1221(大代表）電子機器事業本部テレビ 
事業部第4商品企画部亍〗62東京都新宿区市谷八播町8番地 tt (03)260-1 161(大代表）またはシャープエンジこアリング株〒545大阪市阿倍野区長池町22番22号 0(06)621-1221( 大代表)へ， 















最高得点も、必勝プロセスもビデオに録れる、初のマルチビジュアル端子搭載0 


いまゲームハンティングが最高に面白い I 

難攻不落のシューティングゲームや難解なパズルアクションゲー 
ムなど、プレイしながらその過程をそのまま鮮明に録画。後で再生 
すれば、攻略法もじっくり研究できるし、隠れキャラクターやウラ 
技も確認できる……。ベストスコアの達成や、最終面をクリアした 
決定的瞬間もバッチリ残せます。ゲームに熱中できるジョイカードも 
標準装備。 もちろん、 コンピュータ画像を ビデオの 夕仆ルづくりに 
活かしたり、 ビデオ 入力端子 付 カラーテレビをテ、: f スフ。レイとじ C 
使用でき、いよいよ遊び心も加速する-〇 


|_ 先進機能にもうれしい対応 _| 

テレビやビデオなどの映像をもとに、イメージ豊かな C . G . が手軽に 
創れる カラーイメージボート f 1 自然 ( 二近 L 、シンセサイザーサウンド 
が'楽しめるステレオタイフ。の FM 音 •; 原 f 2 さらに言舌題のネットワーク 
にアクセスしたり、仲間同士でデータやメッセージ交換ができる 
パソコン通信 ※ 3 にもうれしい対応。 X 1 G ならシステムアッフ。自在、 
キミに合わせて成長するぞ-。 

*1 カラーイメージボード CZ -8 B VI 梏咿価格39.8001リ，さら(こ24ドット熟虹叮カラー浼卞ブリンタ CZ -8 PC 1 
標咿価格69,8001リと紺めば鮮やかに印刷できま1；ステレオタイプ FMft 源ボード CZ -8 BS 1 忱十潮侪 
23.800(スピーカ <2本1紺> 標咿装備.ミュージックッールく 2 D . dFD 版〉 M 卵※3モデムユニット CZ -8 TM 1 
標準価格29.800 Ml <通 U ゾフト <2 D.d FD 版〉. RS -232 C ケーブル M いずれも別必です， 
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XK17G 

I __ XI の系譜を受け継いだ優れた機能 丨 

• X1シリーズの豊富なソフト資産が活用できるコン 
ノ、•チブル設計♦高速ペイントなど多彩な強カグラ 
フィック機能#入力、表示も簡単な漢字ユーティリ 
テイ #122K バイトの大容置 RAM (メインメモリ64 K 
バイト）參 JIS 第1水準漢字 ROM 内蔵 （Model 30) 

• 8 オクターブ3重和音のサウンドゼネレータ 


Model 30( ミこフロッピーデ f ス外•ライブ2ドライブ内蔵）パーソナルコンピュータ+キーボード••… CZ-822C(B.E) …標準価格118,000円 
Model 10( 高速電磁メカカセットレコーダ内蔵)パーソナルコンピュータ+キーポード••… CZ-820C(B.E)“ •標準価格69,800円 
■14 型カラーデ f スプIイテレビ… CZ-820D(B*E) …標準価格79,800円_14型カラ-ディスプレイ… CU-14G(B，E) ••…標準価格49,800円 

•品番中の （） 表示は、 B くブラック〉 * E くオフィスグレー〉を示します。 

ひとりひとりのパソコンスタイル、選べる3バリエーション - 


専用ディスプレイテレビでアートワーク 

门 

専用ディスプレイでパソコンに熱中 

■ 

| - ^ * 4 

•傾、切^^ 

拳:へ、，' ■tlBI 


ビデオ入力端子付テレビで迫力の 
ゲームプレイ5^5 



横幅 33cm の小型コンポサイズ。タテ•ヨコ自在だから組み合わせ•レイアウトも多彩です。•写真はいずれも Model 10です： 
*4 CZ -8 SS 2 標準価格5,500円 


第4商品企画部亍162東京都新宿区市谷八播町8番地 S (03)260-1161( 大代表）またはシャープエンジニアリング株〒545大阪市阿倍野区長池町22番22号 0(06)621-1221( 大代表)ハ 
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SHARP 






■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 





のフシンが通信基地になる。 

パソコンに新しい分野をひらく、いま話題の「パソコン通信」0既に全国各地で大小さまざまなネットワークシステムが 
展開されていま to 今度はキミの住む街で：キミのマシンをホスト局に、 BBS や電子メールなどパソコン仲間が気軽に 
話せるミニ通信基地を築いてみるのも面白い。街に根づいた密度の高いコミュニケーション環境がきっと生まれるはず 
で1；シャープは、そのためのホストソフトとじ C 「 コスモステーシヨン」、アクセスソフトとじ T は既存のネットワークにもアクセス 
できるモデム付の「モデ'ムターミナル」や 「 turbo ターミナノレ」を用意じ T います> 

㈣ 






モデムボードを同梱していますのて'、家 
庭でご使用中の電話に接続するだけ 
で手軽にパソコン通信が楽しめま1 ； i 
各種ネットワーク(二も簡単にアクセス〇ブ 

■ 2D.5 FD 版 CZ-133SF 

標準価格 2 5 ， 800 円 （ モデムポード付） 

★モテムユニット(通信ソフト同梱) CZ-8TM1 標準価格29,800円 
もあります。 





XI ターボ. XI ターボ II をホストシステムと U ： ホスト局を 
運営するためのソフトウェアです> 

■ホス ト局開設に必要な システム 

• X 1 turbo モテル30または X 1 turbo II 籲モデムまたはモデムホン 
( CZ -8 TM 1 他6機種対応)•公衆電話回線 （1 回線）_コスモス 
テーシヨン參プリンタ（必要に応じて） 

■ 「コスモステーション j によるホス ト 局 仕様概要 



2D. FD システム 

2HD.FD システム 

HD システム 

登録会員数 

70人 

128人 

299人 

メールボックス数 

70 

128 

299 

メール量 

4,000文字 

4,000文字 

12,000文字 

BBS1 保存期間 

10日 

30日 

30日 

BBS2 タイトノレ数 

10 タイトル 

60 タイトル 

125 タイトノレ 

インフォメーション数 

15 ファイル 

60 ファイル 

225 ファイル 

プログラム数 

5 ファイノレ 

60 ファイル 

125 ファイル 


各種ネットワークにアクセスしたり、パソ 
コン通信(漢字対応)がスピーデ f に楽 
しめる通信ソフトです。 

※公衆问線を使って通信する場合、モテ'ム付屯站 
か音響カブラが必要です。•別売 RS -232 C ケープ 
ル CZ -8 LM 1 ( 平行接続型 )/ CZ -8 LM 2 (クロス接 
続型）各標準価格7,200円 


■2D.5TD 版 CZ-131SF 標準価格 8,800 円 




• 2HD.FD システムにはフロッピーテ V スクユニット CZ-520F が必要です。 

• HD システムにはハードテ V スクユニット CZ- 50 0H が必要です。 

■2D.5"FD 版 CZ-136SF 標準価格 9,800 円 












































敝ソ 7 S 痛 


通信も、グラフィックツールも、各種言語も… I 、わば オードて ルがらデザートま 
メインディッシュの乂\をひときわおいしく引きた て5ど妙ど効い/こクフ/^:ち。 
発展 するハードに応えてオリジナルソフトの輪も どん どん拡がって L 、ます〇 



XI ターボシリーズの優 
れたグラフィック機能を 
存分に発揮させる待望の 
本格グラフィックツールで 
1；カラーイメージボ ー K 
スーパーインポーズなどの独自機能に 
も対応。ペン•ブラシ•ペイント•パレット. 
拡大縮小など多彩な作画機能、多種 
デザイン文字も装備。キーボードはもち 
ろんマウスやジョイスティックによる簡易 
入力も口 r 能です。もう、ブラウン管をキャ 
ンバスがわりに思う存分アートする、クリ 
エイテイブなグラフイックの世界がどん 
どんひろがる一^〇日本語入力も可能 
です。 

■2D.5TD 版 CZ-137SF 

標準価格 19,800 円 



表計算型ソフトの決定版 
として高い評価を得ている 
ビジネスツールです> 計 
算•作表のための豊富な 
機能に加えて、扱いやすい 
コマントソ ニュー 方式、高度な日本語処 
理など、高機能と使いやすさを実現。単 
純な集計表から高度な経営シミュレー 
シヨンまで オフィスワークの 効率化が図 
れま1； 

•このソフトの使用にあたっては 2 D .5" FD が2基必 
要です。※ Multiplan は米国マイクロソフト社の登 
録商標で1； 

■ 2D.5 FD 版 CZ-127MF 

標準価格 49,800 円 



基本的な LOGO の機能 

.に加え、サウンド'; マルチ 
タートル機能をサポート。 

使いやすい BASIC ライク 
なスクリーンエデ^ット機能 
やリスト処理機能も備えていま1*。 

■ 2D-5 FD 版 CZ-134SF 

標準価格 9,800 円 



XI ターボ特有のハード 
をサポートするとともに、ビ 
ジネス ユースに 欠かせな 
い日本語処理機能も付加。 
WORD MASTER 7 % 
搭載。 


■ 2D.5 FD 版 CZ-130SF 

標準価格 14,800 円 


■ 各 2D*5 FD 版各標準価格 13,800 円 

科学技術計算の分野に適した高級言語 

FORTRAN (CZ-I15LF) 

いま熱い視線を集める C 言語 ,_ 

C (CZ-116LF) 


事務分野で威力を発揮する伝統の言語 

COBOL (CZ-118LF) 

話題の人工知能言語 _ 

PROLOG (CZ-119 し F) 

人工知能研究の中心的言語 _ 

LISP (CZ-120 し F) 

拡張性に優れたスクリーンェデ f ット型言語 

FORTH (CZ-121LF) 

系統的プログラミング設計に適した言語 

PASCAL (CZ-125 し F) 


誰にでもわかりやすいアイ 
コン 表示て、:作画 ッールに、 

ビデオ編集に活かせる 
うれしいグラフイックツ ーノレ。 

マウスもついていま1~。 

くアイコン表示によるグラフィックコマンド〉 

■ライン■ボックス■ボックスフル■サークル 
_ペイント■スプレー■ブラシ■パレット■ルーぺ 

■2D.5"FD 版 CZ- 11 4SF (マウス付） 

標準価格 17,800 円 



プロシジャー名や変数名 
の他、ワードやリストの中 
でも漢字が使えま尤また 
このクラス最高のスピード 
とノード数(約5,00 0) を確 
保した多機能 LQGO で1；+ 

■2D.5”FD 版 CZ-117SF 

標準価格 18,800 円 


文法が明快な数学的プログラミング言語 

APL (CZ-126LF) 


ランゲージマスター (CP/M®) 
_2D 《 FD 版 CZ-128SF 標準価格 9,800 円 

ランゲージシリーズ'の使用(こあたっては、 CZ -130 SF 、 
CZ -128 SF 、 または CZ -5 CPM が必要て•す。 CP/M 
は米 ㈤ デジタルリサーチ社の發鉍商標で i ; WORD 
MASTER は米[玉1マイクロブロ社の登録商標で t 。 


ysSm. 
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SHARP 



▼シリーズ用周辺機器 



8重和音、ステレオサウンドの FM 方式でリアルな音づくりに挑戦/ 


スピー カ （2 本1組)標準装備、ミュージックツールも同梱。 

ピアノやバイオリンなどの楽器音から効果音まで、200音色もの 
多彩なシンセサイザーサウンドが楽しめます。すべて FM 音源で 
8音まで 向時 発音、また R 、 L の2チャンネルオーデ j 才出力により 
ダイナミックサウンドのステレオ効果が楽しめま' t ； 


ステ!^タイプ FM 音源ボード 
CZ -8 BS 1. 標準価格23,800円 

くスピーカ （2 本1組）標準装備、ミュージック ツール （2 D • 5' FD 版）同梱〉 
〈ミュージック ツールの 内訳〉①音色づくりを楽しむサウンドエディタ 
②曲づくりのためのミュージックエディタ③作った曲の演奏を楽しむ 
プレイヤー④演奏データを BASIC で使えるように変換するリンカー 


イ メ-シ 勤、* コンと。 ユータクラフ イツ クス， 映像処理でアートに挑戦/ 



テレビ•ビデオ映像をカラー静止画に-。 

カラー- r メージボード 

CZ -8 BV 1. 標準価格39,800円 


•画像処理ツール、およびグラフィックソフト「嬉楽画」•「楽々 
ぽっぷ漢単」を同梱。取り込んだ画像を自在に修正•加工できます。 

C . G . のハードコピー も ワープロの 美文書 も——〇 



CZ -8 PC 1. 標準価格69,800円 

•信号ケープ)レ同梱。癱 JIS 第2水準漢字 ROM ( CZ -8 PC 1-3 - 
近日発売）サポート。 


システムづくりに応える多彩な周辺機器群 (価格は標準価格） 


プリンタ 

#24ピン漢字プリンタ （136 桁） 

CZ -8 PK 3 

189,000円 

#24ピン漢字プリンタ （80 桁） 

CZ -8 PK 4 

158,000円 

#漢字プリンタ 

CZ -8 PK 2 

134,800円 

•ドットプリンタ 

CZ -8 PD 3 

59,800円 

•カラープロッタプリンタ 

CZ -8 PP 2( S . R ) 54,800円 

籲カット シートフィーダト 

CZ -8 PK 3-1 

24,800円 

•第2水準漢字 ROM 2 

CZ -8 PK 3-2 

15,000円 

漢字 ROM 

CE -515 M 

15,000円 


ファイル装置 


離ミニフロッピ-ディスクユこット (2 HD .2 DD ) •:•ベ CZ -520 F 118,000円 


參ミニフロッピーディスクユこット (2 D ) 

CZ -502 F 

99,800円 

•コンハ外フロッ匕-ディスクユニット (2 D ) 

CZ -300 F ( S - R ) 79,800円 

•増設用フロッピ-テ V ス外ライブ (2 D ) 5 

CZ -51 F 

39,800円 

♦增設用フロッピ-ディス外•ライブ (2 D ) 和 

CZ -52 F ( E - R ) 

34,800円 


•増設用フロッピ-ディス外'ライブ (2 D ) 7 

CZ -31 F ( S . R ) 

59,800円 

•ハードディスクユニット 

CZ -500 H 

348,000円 

•カセットデータレコーダ 

CZ -8 RL 1 

24,800円 

•ミニフロッピーディスク CZ -5 M 2 D / CZ -5 M 2 HD 

(各 10枚入) 

♦コンパクトフロッピーディスク 

CZ -3 FBD 

1,300円 


ビデオ編集装置 

•パーソナルテロッパ 

CZ -8 DT 2 

44,800円 

デジタルテロッパ 

CZ -8 DT 

89,800円 

參ビデオマルチプロセッサ 

CZ -8 VP 1 

59,800円 


拡張ボード•その他 

• 320 KB 外部メモリ 

CZ -8 BE 2 

29,800円 

參ユニバーサル I / O ボード 

CZ -8 UI 

14,800円 

• ROM BAS 1 C ボード：- 

CZ -8 RB 

19,800円 

• RS -232 C ボード 

CZ -8 RS 

29,800円 


• RS -232 C •マウスポード … Q 

CZ -8 BM 2 

19,800円 

參 JIS 第1水準漢字 ROM 

CZ -8 BK 2 

19,800円 

參 JIS 第2水準漢字 ROM — n 

CZ -8 BK 4 

6,800円 

• JIS 第2水準漢字 ROM &ターボ博士レキシコン•日本語 

百科ワードパワー— 12 

CZ -8 BK 3 

13,800円 

翁フロッピーディスクインターフェイス M 3 

CZ -8 B 01 

14,800円 

馨フロッピーディスクインターフェイス； • 14 

CZ -8 BF 1 

14,800円 

癱グラフィック RAM ポード H 5 

CZ -8 BGR 2 

14,800円 

參 RS -232 C 用ケーブル(平行接続型） 

CZ -8 LM 1 

7,200円 

參 RS -232 C 用ケーブル(クロス接続型） 

CZ -8 LM 2 

7,200円 

•拡張 I/O ポート H 6 

CZ -8 EP 

11,800円 

•拡張 I / O ボックス.： . I 7 

CZ -81 EB ( S ， R ) 29,800円 

•拡張 I/O ボード.:」 8 

CZ -8 BE 1 

6,000円 

• RF ビデオ コンバータ； .19 

CZ -8 VC 

15,800円 

•モデムユニット 

CZ -8 TM 1 

29,800円 


参'' 


★品番中の （） 表示は、 S くメタリックシルパー〉. R < ローズレッド〉 . E くオフィスグレー〉を示します。※1〇 Z -8 PK 3 用 CZ -8 PK 3、8 PK 4 用※3 CZ -8 PP 2 用 *4 XI ターボシリーズ用糸5 CZ -851 C 用 CZ -812 C 用 
※フ CZ -802 C 、300 F 用 *8 XI シリーズ用 BASIC V 1.0 XI シリーズ用《 10 CZ -802 C 、803 C 、811 C 、820 C 用 《11 CZ -856 C 用杂12 CZ -8 S 0 C 、 8510、 852 C 、862 C 用《13 CZ -803 C 、804 C 、811 C 、820 CTCZ -300 F 

を使用する場合に必要糸14 CZ -850 C で CZ -520 F を使用する場合、また〇2-8030、804〇、811(5、8200、850〇で02-300「を使用する場合に必要余15 CZ -850 C 用《16 CZ -800 C 、802 C 用※口 CZ -803 C 、804 C 、811 C 、 
812 C 、820 C 、822 C で3ポート以上必要な場合に使用接続には CZ -8 BE 1 が必要 * 18 CZ -81 EB を使用する際に必要《19 CZ -862 C には接続できません。*接続等の詳細についてば周辺檐器総合カタログをご参照ください。 


ガ秒-龙株式会《 •お問い合わせは•••シャープ ㈱ 電子機器事業本部システム機器営業部〒545大阪市阿倍野区長池町22番22号 0(06)621-1221( 大代表）電子機器事業本部テレビ 
事業部第 4 商品企画部〒162東京都新宿区市谷八幡町8番地 0(03)260-1161( 大代表）またはシャープエンジこアリンク ㈱ 亍545大阪市阿倍野区長池町22番22号 3(06)621-1221( 大代表)へ。 










































































プリンタはエプソン 


熱転写プリンタがここまで進化。 

鮮明印字 漢字も、グラフィックもスピーディーにカラフルに鮮明印字0 

普通紙 0 K レポート用紙、コピー用紙、 OHP シートなど紙を選びません0 

簡単対応 ROM カプセルで POFM に簡単対応。 


24 ドット熱転写漢字カラープリンタエプソン AP-BDK 


24ドット明朝体の美しい文字フォント。しかも用紙への印字は、きわめて鮮明。和文 • 
英文•グラフィックなど、さまざまな用途に際立つ高印字品質を誇ります。印字速度は 
高品位 ( NLQ ) 文字で英数カナ80字/秒、漢字 （全角） 53字/秒と高スピード;>プリン 
卜作業の効率がさらに向上します。熱転写紙はもちろん、たとえばレポート用紙、コピー 
用紙などの普通紙や OHP シートなどにも鮮明な印字をお約束します。用紙を選ばない 
のでランニングコストが低くすみ、とても経済的で1~。また、用紙を自動セットできますから、 
よりスムーズなプリント作業を実現しま ❿サー マルプリンタとして、リボンカートリッジを 
使わずに感熱紙にも、印字可能で1；リボンカートリッジは黒のほか、カラーも用意。ワ 


ープロもグラフィックも、美しい7色カラーで楽しめま1~。#ダブル幅のリボンを採用。スム 
—ズに反転使用でき、長寿命•コンパクトでカセット方式です。©標準仕様で ESC / 
P TM 24- J 83* C に準拠。さらに PC 用、 FM 用の ROM カプセル（オプション)で、簡単に 
PC 、 FM 各シリーズの専用プリンタに変身しま1； 春 4倍角、縦2倍角、ルビ (! ズ角）文 
字など豊富な文字種、文字モード、機能を装備。表現豊かなカラーワープロに威力を 
発揮します >籲 ほぼ B 4 サイズのコンパクトボデ(、静力、な熱転写方式ですから、置く場 
所や使う時間を選びません。 參 カットシートフィーダ、ロール紙ホルダ、漢字第2水準 R 
OM などのオプションを用意し C います。 


写真やィラストをフルカラーでパソコンに入力0 
コビー感覚の簡単操作で、画期的な価格を実現。 

❿7色表示のパソコンでもフルカラーで表現。 3原色 ( G . R . B ) 各 6 bit で A 6 までのカラー原稿を読み取ります。 
さらに従来のディザ法に比べて、高画質な中間調を表現できるエプソン新開発の二値イ匕处理回路の搭載によ 
り、7色表示のパソコンでも、色彩•コントラスト•濃淡を原稿に忠実に再現、きわめて美しいフルカラー表示を実現 
しました。 ♦小型軽量のコンパクトボディ。 a - シリコン密着センサの採用により、置く場所を選ばないコンパクトサ 
イズ。さらに、カラー•スキャナとして初めての普及価格を実現しました。 ❿コピー感覚の簡単操作。 コピー機のよ 
うにヘッドを移動させて読みとる方式のため、本やシートなど原稿の形態を選びません。操作は原稿をおいてスイ 
ッチを押すだけ。また、解像度 (100 DPI /200 DPI )、 濃度(濃/普通/淡)、輪郭強調(強/普通/弱)などの選択も 
前面のパネルスイッチで行えますから、誰にでも簡単にお使いいただけます。 ♦ほとんどのパソコンに接続可能。 
RS .-232 C を標準装備。さらに GP IB ( IEEE -488) をオプションで用意しています。 ^ PC - 9800シリーズ用ユー 
ティリティソフト装慊〇 PC - 9800シリーズと接続する場合、添付のユーティリティソフトと下記の市販アプリケーシ 
ョンソフトを併用すれば、デザインの下絵作成や、ワープロにカラー写真•イラスト•図表•地図を組み込んでの 
企画書や案内状、資料等の作成など、活用の幅がさらに拡がり、デザ'インワークにビジネスワークに大きな威力 
を発揮します 0 


※〇丁-3000は、取扱説明書の他にサンプルプログラム及びコマンドなどに関じ C 、 くわしく説明したプログラミングカイドブソクを 
添付していますので、 PC - 8800、 FM -16/3/11/77 AV 、 X 1/ MZ - 2500シリーズ等をお使いの方もすぐに画像入力が行えます。 


ソフトウェア名 

販売会社名 

ソフトウェア名 

販売会社名 

ソフトクエア名 

販売会社名 

アートマスター 400 

㈱ システムソフト 

ダイナピックス V 

㈱ ダ付ウェア 

Z，s STAFF 

ツァ仆 

一太郎 Ver .2 

㈱ ジャストシステム 

まち又 一る 

㈱ ダダ 

テラシリーズ Queen 

日本 マイコン 販売 ㈱ 


» PC -980〗/ E / F / U / UV は、 2 DD または 2 HD のフロッピーデ f スクドライブが必要です PC -9801 U / UV は、 3.5 インチにメディア変更を行えば、フロッピーデ f スクドラ 
イブは必要ありません，※アプリケーションソフトは、対応コンピュータをお確かめの上、お使い下さし※会社名、製品名は各社の商標または登録商摞です。 



カラーイメージスキャナエプソン GT -3 □□口 權格¥198,000 


參エプソンのプリンタは、 ESC/P 'のもとにターミナルプリンタ•コントロールコード体系の世界統一規格を提唱し製品開発されています。 

エづソン販売株式会社 參本社/〒163東京都新宿区西新宿 2-4-1 新宿 NS ビル私軎箱6109号 0(03)348-7121 (代） 

■ショールーム/新宿 NS ビル5階■支店•営業所：參東京 （03)348-6801 書中央 (03)258-484 1鲁大阪 (06)365-5071 •大阪南 （06)632-3353 •名古屋 (052)962-7001 •札幌 （011)222-2821 AP ； GT 
•秋田 （0188)32-4002 •仙台 （022)263-3691 ♦長野 (0263)36-7251 •新潟 (0252)43-85 15 •金沢 （0762)62-3216 •広島 (082)262-5181 •福岡 （092)47 卜0761 •鹿児島 (0992)25-77 丨7 資料請求芬 

ーエフソン株式会社 長野県調訪市大和 3 - 3 - 5 參 詳しい資料のご請求ばお手数ですが'はがきに住所、氏名、年令、職業、製品名をお軎きの上、エプソン販売株式会社までお申込みください ， _ 0h/MZ _ 































ーインフォメーション«(052)263-5818 


2 4ドツトインアリンエント ;吴字プリンター 

割付名人 M -1024 H 


M - 102411 P/X (PC、X1、MSX 対応 > . . . ¥ 99,801 

M - 10241 F (富士通 fm 対応) . ¥ 99 , 80 ( 

フォーマットキーボード FK-20. ¥29,800ビンフィードユニット PF-50. ¥5,001 


JIS 第2水準漢字 ROM ポード . ¥20,000オートカットシートフィーダ SF-20 …¥20,00 



puBG = h u r s 》 会員募集中 


PU 日は、ブラザーブリンターご愛用者のための「ユーザー友の会」：プリンターをサポートしたプログラ 
ムの募集•紹介•及びプリンターに関するハード•ソフト情報のコミュニケーションが主な活勛内容て 
す入会者には PUB 会員証を進呈します-詳しくは PUB MEDIAE 集部 （052)263-5818 へどぅぞ- 


フラサー 販売株式会社情報機器事業部 

礼镘営臬所〒060札«市中央区蘭=辛西：?-?-? 01.01 DP 3-6808 

仙台営業所亍380仙台市一番町 2-3 -IU 0(0222)21-6548 

東京営業所〒丨04東京都中央区京橇3-3-8 0(03) 274-6911 

名古屋當業所〒460名古屋市中区大渭 3-46-15 tt (052)263-58 II 
大阪営集所大阪市南区 心斎檇筋レI 0(06) 251-7265 

広*営業所 〒730 J £ 島市中区胡町 4-27 0(08?) 24 1-7060 

褐田笤鬌所〒81?襦岡市博多[?«多明前2-?0-丨〇 (09?) 431 -65 ? I 

























































QUALITY ADVENTURE GAME 


入力のわずらわしさを排除しましたテンキーと 
スペースキー だけて ゲームの 進行が可能です 


MZ - 2500版近日発売 
3.5，，2 DDX 2 枚組 


It was happened since the Zodiac Plate, supposedly the one 


of the ancient Babylonia, had discovered in a small 


castle bult about seven hundred years ago. 


Mope than four thousand years have passed since it was created. 




GS 

0L1 

X - l/turbo 5 FD 

シリーズ V 6,500 

cz-oootd . 餐 O-nAM 

乜びにデー 9 レコ m 
のみ 動 打乃み 

ジョイスティック 
吣 正 フづス M 吣 

GS 

052 

X - l/lurbo CT 

シリース v 4,500 

GS 

053 

MZ-2200/2000 

シリーズ 

5FD 

¥6,500 

M2-2000 は、 «G-RAM 

12 3ブリーンモニタ使用可 
フ□ッピーティスクドライフ 
茌びにデータレコーダーは、 

换正®のみ動作*み 

GS 

L ゞ 

M2- 2200 /2t»0 

シリーズ 

CT 

¥4,500 

GS 

055 

PC-8801 
全 シリーズ 

5FD 

¥6,500 

乃ラーモニタ使用 
フ□ッビーディスクドライフ 
茲び 1C データレコーダは、 

K 正 品の み勦作®®2み 
: P スキー70ス対応 

GS 

056 

PC-8801 
全 シリーズ 

CT 

v 4,500 

GS 

057 

MZ-2500 

3.5FD 

Y 7,000 

:〇ウーモニ 9 使用 
ジョイスティック対 
純圧 9 ウス対 

GS 

061 

FM7/77/AV 

3.5FD 

¥7,000 

，カラーモニタ使用。 

フ〇ッピーディスクドライフ 
茲 びにデータレコーダーは、 
ft 正® のみ動作*み 
ジ3イステック対® 

R 正7ウス対応 

GS 

06? 

FM7/77/AV 

5FD 

y 6,500 

GS 

063 

FM7/77/AV 

CT 

v 4,500 


本格将棋 

衣 


籲マイコンが人間の指す手を覚えて思考ルーチンが成長し 
ます。 （FD) 

•自由に定跡を登録できる。 （FD) 

•対局の棋譜を自由設定できるのでコマ落ち対局、詰め将 
棋の研究、名人戦などの観戦などが自由にできます。そ 
れらの口ー ド•セーブも簡単にできます。 


SPS-NET 

翳始 i 

吾も□クインしてみよラ/ 


SPS 自社ソフト情報や楽しい 
話題が IJ アルタイムで手に入る 

SPS-NET tel 0245- 46-1167 ⑵時間〇〆） 

ゲスト ID. 「 SPS000J 大文字の sps 、 ゼ□、ゼロ、ゼロ 

ノくラメ ー タ— 


l A 編 

「 SPS - 卜 


•••ポーレート岭300 l \ U テ ィ峙無 

デー9ピット R 岭8 ストッブビット ft 疇1 

制御指定 岭 x カナ表現指定 场無 

送 a 改行コード 峰 cr 受 «a 行コード 畤 cr + し f 

日本 8 表現指定岭シフト JIS エンドコード指定 畸無 
9-ミナルモード_全二重 


はゲスト ID で□グインし、「インフォメーションボード_ 
- NET ジョウホウ」をご覧ください。 


お求めはお近くの有名マイコンショップで f 通信販売をご希望のかたは、商品名、 
機種名を明記のうえ料金を現金窨留で当社までお申し込みください-(送料サービス） 


/ ゞ ートナーンヨツアー 


キヤ / ノーラボ マイクロキヤビニ 




































日本語ワードプロセッサー 

〈即戦力〉 

SWARRiXC 7 - i2Z73fk4Tfc7 シリース用 
8ピン *16 ピン *24 ピンプリンター対応5インチ2□版 

販売価格 39,800 円 


おかげさまで〈即戦力〉は XI 用ワープロ 
ソフト 販売実績第一位独走 中.グ 

4月24日から7月31日まで I 5 S 間連統。（株）日本ソフトパンクの出荷ペースの調$による 


どなたも15分間で 
マスター できます 

付属の「15分間マニュアル」に目を通す 
だけで、あとは画面に出るメッセージ 
に従って対話式に作業を進めていける 
ので、「ワープロは初めて」とい5方で 
もすぐに使いこなせます。また、付属 
のビジネス文書ディスクには、すぐに 
役立つ文例を54種登録してありますの 
で、まさに導入と同時に即、戦力とし 
て活用できます。 

8ビットワープロの限界を越えた 
変換機能 

辞書には新聞、ビジネス文書、雑誌等 
から収録した「活きた言葉」40 . 000語以 
上を登録。自動学習機能、 ユーザー 登 
録8.000語の辞書と合わせてかな漢字 
変換を最高速で処理します。また、複 
合語を変換する〈重変換〉、変換し忘れ 
た部分を即座に変換す る 〈再変換〉など、 
変換の際の高操作性と、変換効率を同 
時に達成しました。さらに〈即戦力〉は、 
理工関係、人名、ギリシア文字等もサ 
ポー トしているので、 パーソナル ユー 
スから特殊なビジネスの分野まで強力 
にフオローします。 



碁線を思い通りに操って 
大きな表作りもラクラク 

力ーソルを鉛筆のよラに動かして、鄯 
線を思い通りに引くことができます。 

戥削除は、力ーソルを使った消しゴム 
感覚。また、左右スクロールは最大82文 
字。ワープロの弱点だった大きな表も 
巳4いっぱいに作成することが可能です。 

すべての機能を高速で処理 

一文字単位の挿入 • 削除はもちるん、 

行単位で挿入 • 削除することもできま 
す。必要な箇所の文書をまとめて移動 
することや、文字や記号などを自動的 
に捜しだす〈語捜し〉あるいは指定した 
ところだけを入れ換える〈語入れ換え〉 
など、洗練され、高められたすべての 
機能が高速で処理されます。 



XI の画面です 



XI turbo の画面です 

XI でも XI turbo でも 

X 1ではグラフィック画面、 X 1 turbo 
ではグラフィック画面とテキスト画面 
の両方を使います。グラフィック画面 
では上つき、下つき文字が印刷と同じ 
よろに見ることがで吉ます。テキスト 
画面ではスピードが速く、効率良く文 
書を作成できます。 

印刷されるイメージを 
そのまま画面に表示 

〈即戦力〉はページ管理方式を採用。入 
力時に画面上で禁則処理を行ろほか、 
文書作成後でも1頁あたりの行数、1 
行あたりの文字数など、書式の設定を 
変えれば、画面上の文書も自動的に変 
更され、画面レイアウト通りの印刷を 
することができます。 

文章に墼かな表現を与えられます 

〈即戦力〉は半角、横倍角はもちろん1/4 
角までもサボート。さらに、網かけ、下 
線などと組み合わせることにより、き 
め細かな文書作成が可能になりました。 

ビジネスにも、 パーソナル にも 

〈即戦力〉はビジネスの厳ししヽ要求を満 
たすために開発された八イボテンシャ 
ル日本語ワードプロセッサーですから、 
パーソナルな使用にも余裕をもって対 
応します。しかも、ファンクシヨンキ 
—にある機能はメインキーボードに重 
複して持たせてあるので、入力ばかり 
か編集操作もブラインドタッチで OK 。 
ビギナーはファンクシヨンキーを利用 
して、プロはブラインドタッチで、と 
レベルに合わせてお使いいただけます。 




※商品に関するご質問は弊社までお願いします。 

本広告のスペックは SHARP XI / XI turbo シリーズ用 
〈即戦力〉のものです。ご注意下さい。 

8ビットシリーズ好評発売中/ 


SEC PC -880 lmKnsR / TR / FR/mR 用 

販売価格 . ¥33.800 

人を大切にするテクノロジー 

I 株式会社サムシンククット/ 

甜新宿区大久保 2-5-20 シティプラザ新宿 3FTEL03(232)080 胱 
0ご»求は右の券を切りとリ上記の住所までお願いします 


〒160東京都新宿区 
※資料のご a 求は 


































► ザナドゥ•シナリオ II の特徴はこうだガ 

•プログラムがさらに改良されだ。 

•モンスターがすべて変わって、数も增えだ。 

•デカキヤラ（ビックモンスター）も追加されだ。 

•魔法 • アイテムのバリエーションも豊かになり変化している。 

參 MAP が変更され、隨所に特殊トラップを設定。 

• R . P . G 色がより一層色濃くなった。 （、、 D & D 〃の要素ブラス、、トラベラ—〃の要素） 

•ファッショナフルなザナドゥケ _ ス入り。 

•卄ナドゥ. ユーザー の声を繁栄しつつ、ザナドウ丨を終了していない人も楽しめるようになつている。 


10/3 新 91 売 

XlC/F/turbo 
52D ¥5-800 



(注）シナ 1 J 7 T 1 と必す同一の乂ディアを御購入<ださい。 


Falcom 


同本ファルコム株式会社 I 

亍190東京都立 ) II 市柴崎町 2-2-1 9力卜ービル 
TEL .0425(27)6501( 代） 








スタッフ 募集 正社員およびアル イト ノス, 

•パソコン•ファミコン ゲ -ムソフトの 企画•制1 •". 

•ァミューズメント商品の企画 •制作, 麵 ，てこ^^ I 1 L 

•出版 K 編集.執筆.企画.制作） | g 本一 ;* p J し_ 

•音楽担当（ゲームミュージックの作編曲•効果音の作成他） ■*, 1 口个く _ 


発売日 

対応機種 

メディア 

価格 

10 月 6 日 

XI C/F/Jurbo 

5 彳 > チ 2D 

¥6,800 

10 月 18 日 

PC-9801 F/VF 

5 インチ 2DD 

¥6,800 

PC-9801M/VM 

5 インチ 2HD 

¥6,800— 

PC-9801U2 

3. 5 ィンチ 2D D 

¥6,800 

10 月 30 日 

PC -8801 SR/FR MR 専用 

5 インチ 2D 

¥6,800 


























ソフトウェアは、センスです。 


それなりに、高い評価を得ているモノには 

クルマも、食器も、ファッションも……そしてソフトウェアも必ず『キラッ』か『ビーン』があるものだ。 
それぞれの制作にかかわった人たちの『キラッ』や『ビーン』のセンスが、優れたモノを送りだす。： 





•爹 


■ JOY JOY PACK (ジョイジョイパック 1H) 

9,800円 

SBC ソフトウェア㈱ 

ソフトとゲームボードがドッキング 

■ Lode Runner ■(口ードランナー) 

5,000円 

㈱ユニバース 

チャンピオン シップ ロードランナー 


■ スーパー 財務/テレビ元帳 

128,00 0R 

㈱ヲプノドシステム研究所 

財務ソフトの決定版 

MULTI PLAN 

40,000円 

㈱アスキー 

表計算ソフトの代名詞 

■ ミニ POS コンピューター 
(レジ販売管理ソフト） 

(ドロア ー） 

300,00 OR 
226,200円 

プログラム企画サービス㈱ 

スーパー M Z- 2500が POS (レジ） 
として利用出来ます。 

■ 128KB 増設 RAM カード 

12.800円 

㈱口ータス 

128KB 増設用 RAM 力ード 

■ Super Basic98 コンバーター 

6,800円 

㈱ロータス 

PC- 9800シリーズ N BASIC コンバーター 

■ Super Basic88 コンバ—ター 

6,800円 

㈱ロータス 

PC 棚シリーズ N BASIC コンバーター 

■ Super Basic XI コンバーター 

6,800円 

㈱ロータス 

XIシリーズ BASIC コンバーター 

■ Sound Gal (サウンドギヤル） 

7.800円 

㈱ュニバース 

楽譜、音源エディタ、プレイヤー 

■シンプ/レ DB (愛ちゃん） 

RAM 付 

9,800円 

16,800円 

㈱ロータス 

MZ- 2500の通信機能も活きる。 

シンプ/レなカード式データベース。 

■スーパー-':イン ト （さかもと） 

12,800円 

㈱ コンピュータサービス SAKAMOTO 

簡単に、そじ C 自由に。グラフィックソフト 



'■ MULTIPLAN 

65.00 OR 

㈱ アスキー 

表 計算 ソフトの代名詞 

■ TIMS (テイムス） 

138,000円 

A . M . R. ㈱ 

リ L ^ーシヨナルデータべース 

■ Q-PR04 (キュープロフォー） 

150,000円 

㈱ログ 

第 4 世代言語 

■ UINH-PAINT (ュニペイント） 

95,000円 

ユニ ソンワールド 

自由自在なグラフィックソフト 

■汎用顧客管理（簡易タイプ） 

50.000円 

SBC ソフトウェア ㈱ 

好評の顆客管理 ソ フトの簡易版 

■ NEW 建築 CAD 

800,000円 

㈱ マェダ 

プロ フェツシヨナノレの CAD システム 

■ T/MAKERIII 

195,000円 

T/MAKER INC . 

アメリカでベスト セラーの 統合化ソフト 

■ ACCESS LOGO 

29.800円 

アクセス 

Lisp より派生した人工知能への応用に適した言語 


※この他に業務（販ゾと財務、給す）、(経讲戦略、开店外商、 
各種ソフトウェアをそろえています。 


酒 M、 ビデオレンタル店、米屋、選ザ?、寺院、自勋車整備、牛乳販売店等）など、 


購入はお近くのシャープビジネス ㈱ 、シャープエンジニアリング ㈱ 、 
シャープシステムプロダクト ㈱ 又は販売店へ。 

お近くにない場合は直接 SBC ソフトウェア ㈱ 各支店、営業所迄お気 
軽(こお問い合せ下さい。 


総販売元 

■rbe 


SBC ソフトウェア株式会社 

亍160東京都新宿区本塩町21番地(木田建設ビル） 
パソコンソフト流通課 TEL ：03(353)9241 

FAX ： 03 (351 )9304 


•大 阪/ 06(262)2866 •名 古屋/052 (451 )4968 
•長 岡/0258 (35) 1944 _ 礼幌/011 (621)9795 

















































嘲 


★前作「ハイドライド」を遙かに越えたスケールを持つマップ 
(約6倍の広さ.エリア換算138,000エリア） 

★登場キャラクター•アイテムの前作を凌ぐ量 
★ R . P . G としても完成度を増したストーリー 
★ I 財重類にものぼる魔法も使用可能 
★会 f 舌.アイテム売買等の画期的アイデア 
★それらを見やすく表示するマルチウインドウ表示 
★自由に設定出来るゲームスピード 




:>(7)] 
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MZ- 2500 3.5 2 □□版 ( MZ - 2000モード使用） . ¥6,800 

(MZ- 2500で使用する場合、本体前面のモードスイッチを2000モードにしてください） 

MZ-2000/2200 5〃2 □版 . ¥6,800 

(カラー•モノクロ共用） 

X-1/C/F/G/Turbo テープ版 3 本組 . ¥4.800 

(ディスク内蔵タイプには使用できません） 

X-l F G/Turbo/n 5 2 □版 . ¥6,800 

PC-880K FM- 7 、各シリーズも発売中ガ 

吻^^^^^^^^ 

遍 :麟臟 

呢 MWi ifl* 




ごット単位のスムーズ 


テイクに 

2 ザ樊 fit 出擎:-^了ま縦•横 2 種類 

_2仝+!广 I 人マ w : 仿 A 、、 士*十 U _ 'T 


TaE SOFT テレフォンサービス 

名古屋052-776-8500 


•逵孕シニン沙逆)炱夕= 


歲 g « 毫苛イ 


SXc 版発売中/ 



ホームエンターテイメントの未来を拓く- 

,® inc . 

製造•販売株式会社ティーアンドイーソフト 
亍465名古屋市名東区豊が丘1810番地 PHONE:052-773-7770 


■通信販売ご希望の方は現金書留で料金と商品名 • 機種名 • 電話番号を明記の 
上、当社宛お送りください。（送料サービス•速達希望の方は300円ブラス） 
■マガジン No.l I ご希望の方は、100円切手2枚 (200 円分）を同封の上請求券をお 
送り下さい。（葉害での請求はお断わり致します。） 

■ 8 6年カタログご希望の方は、100円切手同封の上、カタログ請求券をお送り 
ください。（葉窨での請求はお断わり致します。） 


•86 総合カタログ 
請求券 
oh / MZ . 10月号 


T & E マガジン 
Nall 請求券 
oh / MZ . IO 月号 













































































dB-SOFT 

8 ビット機初の高速自動変換実現 


〇 


シリーズ好醗売中 

• PC-8801/mKlI/sR/TR/FR/mR 


使えば、使う程抜群の効率アップを実現。 SUPER 春望は3つの変換方式を採用。 


D 初心者の方には 

助詞•助動詞を的確に判断じ r - 括変換「新」重文節変換 

段数 n •にわたる文も0キーを押し続けるだけで変換。投合說？ 
習から瞬時の辞書選択まで新辞書 v - i 搭載により、さらに画期 
的な変換効率を実現。 

日使いこんで、学習機能が働いたら 

APAXS (自動逐次文節変換方式)プラス 
先行入力機能により効率大幅アップ 

APAXS は人力と変換、語群選択と決定操作が f U して•なわ 
れます。さらに先行入力機能との相乗効果により、文字を書くよう 
に文章作成もスムーズ0 

E ! さらに高度な変換方式 

同一文や頻度の高い文に特に威力を 
発揮する「ワンタッチ複合変換」 

SHIFT +回キーで漢字候補を選択するだけで、 

あとは自動的に変換。さらに、学習機能が働くと 
CTRL + 0 キーだけで自動的に変換。 



3つの変換方式を可能にした 
強力「新辞書 V -1」 搭載。 

いかに速く目的の熟語を探し出すか、 
学習させるか、強力な辞畫機能 


が解決, 



肩 


0 



シリーズ 1 

ビジネスに 大きな威力を発揮 


ヒジネス 


關 シリーズ 

驚異の/、イコストノ、。フォーマンス 


プライマリ 


プライマリー+ ユーザー カード 


5 TI 


〇27,800円 


5"RHD 29,800 円 


住所録、ライブラリー、ビジネスに……〇 
ミニデータベースの ユーザー カードは 
情報収集、データーバンクと 1/ C 大活躍〇- 


ワープロ+計算機能 


5"2 


〇17,80 Op 


8ビット機の限界に挑戦。 

ユーザーニーズに 応えたこの高機能0 

镛大きな枠棟は2点間指定、細かい P 線は力ーソルを移動じ T 引くトレース方 
式，籲異なった文字も両端を揃えて印字可能な均等割付機能，♦枠の中にも 
タブ機能があるコラムタブ機能。籲確定までの待ち時間なしに入力できる、先 
行入力機能，參段落接続.分離機能:ブロック挿入も簡単.籲スムーズなスク 
口ールによる行頭編集機能•ひらがな< •カタカナの一括変換椴能,， 

參かなを未定文字にすることができる、一括未定文字化機能で変換語句の 
変更が手軽に。 

•文書サイズ/1文蜜文字数:4,800文字（最大レ最大文谫数:64文害*辞 
害/登録済:約40.000語 （ JIS 第1水準 * JIS 第2水準漢字、非漢字）、ユーザ 
-辞害:約5,000語、外字：150字（登録済約100字） * 文字種類/4倍角、縱 
倍角、全角、横倍角、半角角上付き角下付き（漢字、ひらがな他）、英 
文 プロボーシヨ ナル•変換/自動逐次文節変換 ( APAXS )、 ワンタッチ複合 
変換、「新」重文節変換、一括未定文字化、一括カタカナ"ひらがな変換 
•文字装飾アンダーライン (7 種）、網かけ （15 種…打ち消し含む)、反転、ル 
ビ參鮮線，3種類（太•細•二重）2点間指定、トレース方式、爵線保護保 
護解除、コラム編集、コラムタブ•ブロック練集ブロック移動、ブロック複写、 

ブロック消去、ブロック挿入(窓あけ）•揃え左寄せ、センタリング、右寄せ、 

タブ設定♦行間編集無改行、半改行、通常改行、 1.5 倍改行、倍改行、 

行接続籲印刷カラー印刷、一文字単位のカラー印字、ページ指定印刷、 

部数指定、左マージン指定、開始行•終了行指定、行間•文字間指定、用紙 
サイズ指定 （ A 5 〜 A 3、フリー)、用紙方向指定 （ A 5 〜 B 4)、 差し込み印刷、文 
害名（ファイル名）印刷、ページ付印刷、隔頁付印刷、英文ブロホーシヨナル 
印字♦その他多彩な編集機能。 

嵌XIターポシリーズにおいては各シリーズとも 2HD 版は発売されておりませんのでご了承下さい., 


5 " 2 H □瓜卿丹 


SUPER 春望の他を圧する強力 
コア機能に的を絞ったワープロ • 
スペシャリスト版 0 

春充実した枠線機能をはじめ文字サイズは 4 倍 
角から 1/4 角の 6 種類まで使用可能。 


^ 锋5微^^ I 9 - 5 

ft 仰5^ゃ？ 1 のぞ* 

TEL (01DR1-9876 

■_ インスト9クタ- 


lUlilpM 


m 


STOP でメニュー、その他のキー'^ 



i 横計算から平施まで誰でも簡単にできる計算援能。 

テンキーの （+ )( —） （来）し)を電卓感覚で使 
えるので、加減乗除を使った文章中の計算も簡 
単に。一覧表の縦横]•算も、始点と終点を設定 
するだけで簡単にで i 


tTW tl I 

: 金す。 

各 


DM 作戦に便利な差込印刷 J 

• 最大 1( M # 棚設定が口 r 能01項目につき32 
文卞まで収納。 _ JIS コード、数字の大小順にソ 
ート（也び作え)が叶能。春承段する条件の検索 
が可能(最大20項 H 多重複合検索)。•ワープ 
口の文畨作成領域にデータ引き出.し可能。•あ 
て名部き用土して、系し込み印刷可能。 














































固詡 _ i 3 a シリーズ, 

ワープロでデータ通信がてきる 


SUPER 春望 
ステップアップサービス/ 


同 

ビジュアル時代のワープロ 


シリーズ 


本ツトワイ 


クリエイテイブ+コミュニケーションソフト 


ク u エイテイプ 


5"2 


\344,800 円 


デービーソフトでは SUPER # 望ご利川の十 1 f 様 
が、現在ご使用になって t 、るシリーズ商喆より、よ 
りランクが上の商品へ定価の差額と交換手数科 
(送料舍）のみでソフト, 1 !••き換えができるステップ 
アップサービスを火:施しております。また、メディア 
種類の変更 (2 D 版から 2 HD 版）も水っております 
のでどうぞご利 MK ださい。 


5"2 HD 47,800 丹 


ビジネス+グラフィックエテ^{夕 


5"2 


d 34,80 Op 


SUPER 春望ネットワークは 
2種類の通信方式を内蔵。 


5'RHD37M 


わ 〆 「書く j ことと「描く j ことの楽しさ 
三•スら〇 が味わえる。いま一番人気の… 
つ， ノヮ ー： 


ワープロ+グラフィックエディ夂 

•逆卞|1力ードや、暑中見舞い、年®状など自分だけのオリ， 
ナルカードが作成できる0 •画面上に、 SUPER 春望で作成し 
た文字を呼び出す事はもちろん、その文字をデザイン的に加工 
する事も可能。 

f 九:妒 •也 

s セし T 

お to 

▲パステル 



例） 

① プライマリー （2 D )— ビジネス （2 D ) 

11,000円 (手数料1,000円含む） 

② ビジネス （2 D )— クリエイティブ （2 HD ) 

12,000円（手数料2.000円含む） 


※なお詳細はテクニカル•インフォメーションセンター （ T . I . C ) まで 
お問い合わせください。 



D SUPER 春望間で拡がるワーフロ通信 

クローズドユーザ-ズ通信方式 

癱 SUPER # 望で作成したファイルは(文書データ、計算式 
グラフィックデータ）含て送受仏できます。 

聲センター(情報提供 M 則とユーザー(情報利用)側を双方 
が則 I に設定できます。 


カラフルなイラストや 
思いどうりの絵が描ける強カグラフィックエテ V 夕 
•エアブラシ、パステルなど3種類のペン選択" J * 能。•作業が 
簡単なアイコン方式の採用。〜5倍まで、自 ill 自在の拡大- 
縮小機能。 

カラーイメージボード入力可能 
マウス対応の強力機能 

•ビデオ•ビデオカメラの画像を取り込むことのできるカラーイメ 
—ジボード入力可能。マウス対応の強力機能。 

* xi ターポ用で w ラレルマウ入マウスタブレットは使用できませんシリアルマウス⑶応。 


a BBS 局との交信には 

フリーラン通信方式 

•通信相手を指定するだけでプロトコルの設定からダイア 
リング、 ID ナンバー、パスワード人力まで自勳処观する才 
—トログイン機能 

»ワープロで文書を作:ってアップロード。 

ダウンロードした通信内容は SUPER 春望の文かとして、 
編集•保管可能。 

SUPER 春望ネットワーク対応 

dB>l«DEMIM-300 

.，ザ截把 • 


e ❷〇0❿❿ 


徹底したサポート•様々な特典 

VIP 会員としてお客様を登録 
SUPER 春望：1-ザ-ズサポ-トシステム 


当社では、お客様間の情報交換、またご安 
心していただけるサボートを実施するため、 
「 SUPER 春塑」のユーザー登録を行なっ 
ておりま1-。登録されたお客様は様々な特 
典が受けられます。 


① VIP 会員の証明、登録証の発行 

② 情報満載 「 SUPER 春望互版」の定期発行 

お客様の情報交換の場とじ c ご利用いただけます。 

③ 種々のインフォメーションサービス 

④ ステップアップサービスの 享受 

詳細は当社テクニカルインフォメーションセンター (TIC) まで—— 


国探標準勧告 (CCITT) 
V.25bis 準拠 

29,800 n 


オプション(別売)の SUPER 春望ファミリー 


SUPER 春望ネットワークと dB モデムがセット 


攀％在ご使 H1 の電話がそのまま使える 

_パソコンか人問かを力妁に判断する「特殊着信モード j 付き 


NETWORK PACK 

69,800円 


PC-8801 シリーズ用 <2D.2HD 用〉 

糸XIターポシリーズ用近日発売予定 


個人で、企業で、グループで。 

パソコン間通信の多様な使いみち 0 

•在宅勤務•企業内文番通信春企業内デー 
夕通信•賴客へのフレッシュな情報提供•地域 
ショップのプライべ一トネットワーク作りに。 


速く、正確な レスポンス。サインペン 感覚で。 


dBMGUSE 


12,800円 


'C-8801 シリーズのクリエイティブ、 

レントワークのグラフィックエディタに対応.， 


/XIターボシリーズでは、 
I使用できません= ) 


SUPER 春望宛名害き用タックシール 


^ TACK ( i ^) … 3,600円 


メールサービスのご案内 （送料無料サービス） 

ご注文は■現金窨留:デービーソフト「通信販売係」（住所〒〇60礼幌市中央区北1条西7丁目住友海上礼視ビル)まで 
■銀行振込：「たくぎん札條駅前支店普通053-053」。籲商品名♦対応機種名♦個数♦お客様の住所♦氏名參電話番 
号を書いたメモを同封(銀行振込の場合は、ハガキに記入)のうえ、あらかじめご連絡ください p 


) 


開発デービーソフト株式会社 


発売元 


SUPER 春望テクニカルインフォメーションセンター 
(〒〇 60) 礼幌市中央区北〗条西7 丁目住友海上礼幌ビル 
0(011)251-7462 FAX.GUKG II (011)241-6257 




資料請求券 
Oh / MZ 
10月号 




SUPER 
春望 










































AM 

臃牖 


宇宙の果てに正義を見るか/ 
’全アニメーション尚 


n^i 


yu 


@合機種1 PC-9801 PC-8801 FM-7 XI各シリーズ(デ f スク版) 
\ m ~ ftl ¥7.900(ディスク2枚組） 




儀 m 


p 一 


- ^ BK ノ ^ へ 〆 ， 


未来はすでに始まっている 

ロール プレイング 

フル•アニメーション PRG 


A/ DULk 

アルファ 


対応機種 

PC - 8801シリーズ PC -980 I シリーズ 


XI turbo/turbo II 


FM -7/77 /AV 

;メディア 

5 inch /3.5 inch (ディスク版） 

1定 価 

¥5, 900 _ j 


, I 




ゲーム内容に関する御質問は、往復ハガキにてお問い合わせ下さ 
い。ユーザー•サポート 003-545-3519 
( AM 9：30~ I 2：00 PMI ：00~6：00) 

※通信販売ご希望の方は、機種名、住所、電話番号を明記の上、 
現金書留でスクウェアまでお申し込み下さい。 


^■square 


スクウェア 
中央区銀座3 丁目 11-13 
〒104 TEL 03-545-3519 




























投稿作品画面集 


■ MBi 色;モ|一1ド I 対 I 应 I の グ1ラ ィ ク h ソ1一1ル 


Super Paint mz 2500 


256色だから鮮やかさが断然違う。 
Super Paint は MZ - 2500ユーザー 
待望のグラフイックツールだ。256 
色同時発色 (320 X 200 ドット）の 
_を生かした豊富な機能が君を 

f G アートの世界へ導いてくれる 

だろう。 （—77 ページ） 





淡い色調でメルヘンチックな草原の絵を 




投稿作品画面集 23 







































投稿作品画面集 


PYRAMID WARS 

ピラミツドのなかは複雑な迷路。緑色のエ 
メラルドを集めて脱出しなければならない 
のだ。さあ，恐怖の火の玉が追ってくるぞ。 

(―>85ぺージ） 



中央下部に出口があるのだが 


やられるとお墓ができてしまう 


ZOONE 


Xl/Xltu 「 bo 用 



高速 スクロールのシュー テイングア クショ ンだ。降りそそ ぐ 敵を片っぱしから幣滅すれば 
気分も壮快。でも，ムズくてムズ〈てなかなかそうはいかないのです。 （—89 ページ) 




変形すれば5連射が可能 


第丨の難所。君はクリアできるかな 


Jocose John 


MZ-1500 用 


鉄腕アトムの テーマミュー ジッタを バック 
に カラーボールが ころがっていく楽しいゲ 
—ム。画ビヨウを置いてボールを逃がさな 
いようにしなければなりません。家族みん 
なで楽しめますよ。 （—94 ページ） 




巳 GM もなかなか ゲームにマッチし ています 


I 面クリア！ 5000点のボーナスだ 


北斗の男 


MZ-700/1 500 ， 80 巳 /2000/2200/2500 

胸に7つの傷がある，かどうかはまったく 
わからない北斗の男“ケンタロウ”。数々の 
奥技を繰り出して敵を倒すのが定められた 
捉なのだ。キャラクタグラフィックが世紀 
末を呼ぶ痛快アクション巨編だ。 

(—103 ページ) 



DH DS DE2 

BONUS : 5000 

iv Drm Jocose John «Lilt ipl ies. 
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アナグリフによる 




パソコン立体学“実践”講座 




アナグリフとは，ご存じ赤青メガネによる立体写真の技術です。これを応用 
したのが，今回ご紹介する10種類のサンプルプログラム。どうです。立体に 
見えますか7立体視の原理は赤青メガネだけでなく，まだまだいろいろな 
手法や応用が考えられます。今後の展開に期待してください。 （—48 ページ） 



ヒコウキ（リスト 1) 

地上に対して高さを表現するために，高し、位置にあるも 
のほど赤と青の像のズレを大きくしています。セロハン 
によっては2重に見えてしまうかもしれません。 




ウ S 卜カニ（リスト 4) 

飛行機，ヨット，カニなどの夏の風景をそれぞれアニメーシヨ 
ンしてみました。 



t オホシサマ(リスト 2) 

とっても神秘的だと思いませんか。夜空を見上げてもこんなふうに 
は見えませんからね。 
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キュウタイ (リスト 8) 

半径を指定するとワイヤーフレームの球体が描かれます。 





ブフツク ホール（リスト 9) 

リサージユ曲線によるブラックホールのイメージ 
です。パレットを使って動きを表現しているので， 
写真ではちょつとわかりにくいかもしれません。 
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ウチアゲ八ナビ 

(リスト 10) 


乱数を使って花火を打ち上げてみました。 
これも写真ではよくわかりません。プログ 
ラムを打ち込んで試してください。 



















Sr \ 号ですでに紹介したとおり，この turbo 
Z’s STAFF は PC -9801 シリーズ用で高い評 
価を受けている Z’s STAFF の初の移植版で 
8 ビッ ト機用のグラフ イックツールと して 
は類を見ない強力なものだ。オリジナルの 
98版に比べてメモリの関係上いくつかの機 
能が割愛されているが，それでも十分に豊 
富といえる機能を持ち，操作性もなかなか 
よい。それに XI ならではのカラーイメージ 
ボードが利用できるなどの魅力もある。 

そして，なによりも turbo Z’s STAFF が 
グラフ イックツールと して 素晴 しい点は， 
ユーザーの イメージをかきたててくれるこ 
とだ。これがなければ，コンピュータを使 
って絵を描こうという創作意欲が起こらな 
い。ようするに「おお，これはこういう表 
現ができそうだ！」といったイメージを与 
えてくれるもの， CG による表現の可能性を 
見せてくれるものといってもよい。このこ 
とはイラストやデザインのための ツールを 
語るうえでもっとも重要なことではないだ 
ろうか。 

操作性がよいこと， ユーザーフレンドリ 
ィであることはもちろん大切であるが，そ 
れらはいってみれば当たりまえのことで， 

それだけでは絵は描けない。誰もが描きた 
いと思う絵の明確なイメージをはじめから 
持っているわけではなく，かりに持ってい 
たとしても， 640 X 400 ドットに8色を害 IJ り 
当てるという物理的制約のなかでそれを表 
現することは大変なことなのだ。もちろん， 
turbo Z’s STAFF がハード上の制約を超え 
ることはできない。しかし，さまざまな機 
能を組み合わせて使っていくほどに「この 


機能を使えばこんなことができる」といっ 
た新しいイメージを与えてくれる点で，こ 
れまでのグラフィック ツールと は根本的に 
違うといってよいだろう。今回はそのへん 
に注目しながら，それぞれの機能を見てい 
くことにしよう。 

ノ ’ S STAFF の概要 

概要を簡単に追ってみると， Xlturbo に 
400ライン対応の高解像度ディスプレイ， 
ディスクドライブは2基必要だ。入力装置 
としてはマウスカ璧ましいが，キーボード， 
それにジョイスティックも使える（どうも 
XI とジョイスティックには強い結びつきが 
あるみたいだ)。また，カラーイメージボ 
ード （ CZ -8 BV 1) およびイメージスキャナ 
( PC - IN 501/502, NEC ) から画像取り込みが 
可能。出力系統としてはプリンタ，カラー 
プリンタも多くサポートされている。 

それでは，さっそくマウスを接続してシ 
ス テム ディスタを立ち上げてみることにし 
よう0その前に，マニュアルの第1章の 3. 
注意事項と第3章の 1. ファイルモードの項 
だけは読んでお〈こと。 

turbo Z’s STAFF の機能は大きく 7つの 
モードに分かれており，画面上部のメニュ 
ー バーに 左から，ファイル，色，ペン，編 
集，文字，印刷，システムと表示されてい 
る。これを選択する（クリック）とさらに 
細かい操作を選ぶウィンドウが表示される 
というしくみだ。作図中にもっともよく使 
うのは色とペンで，必要に応じて編集，そ 
して最後に文字を入れるというのが大まか 


な流れといえるだろう。ただ編集のなかに 
比較的よく使用するルーペ機能が入ってい 
て，これはペンのなかに入れたほうがよか 
ったかもしれない。 

色とベン 

Z’s STAFF の神髄は，自由に作れるカラ 
ータイルとペンの組み合わせによる多彩な 
表現力だ。 

まずは色。基本となる8色と16色分の力 
ラータイルがウインドウに表示される。こ 
のカラータイルは自由に作り直すことがで 
き，16色分まとめてディスクにセーブする 
ことができる。タイルの作り方は3通りほ 
どあり、ひとつは1ドットごとに色を指定 
するもの。ウィンドウから I タイル I をクリツ 
クすると，タイル作成ボードが表示され， 


•プリ ンタ対 

•応機種一覧 

CZ8P 系 

CZ-8PD2, CZ-80PK 

CZ-8PK2 

CZ800P 

CZ-800P 

CZ8PC1 

(MONO) 

CZ-8PC1, CZ-8PN1 

MZ-1P17 

CZ-8PK3 « MZ -1 P 17 のディップスイッチは 
CZ-8PK4 XI モードにしてご使用ください 

CZ8PC1 

(color) 

カラー 印字 

CZ-8PC1, MZ-1P17 

PR 系 (MONO) 

PC-PR201/H 

PR 系 （ color) 
カラー 印字 

PC-PR201CL/HC/T 

PC-PR101T 

PC-PR406 

NP-310/5I0 

NM 系 

NM-9900 

ESC/P81 

RP-100/100I1, RP-80II, RP-80F/T II 
FP-80. FP- 80F/TII 

SP-80T 

SP-80(ESC/P 力一トリッジ） 

10700 系 

10-700/720 
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色，ペン，編集の各ウィンドウ。作画中に使われ 
る機能はほぼこのなかに揃っています。 


右上の カレントカラー ボード（実際の タイ 
ル4つ分を表示）を見ながら 16 X 16 ドット 
の タイルをエディット できる。これだけで 
もす ごいが， もっとす ごいのは 任意の2 つ 
の タイ ル間のグ ラデーションに よって タイ 
ルを作れるというものだ。基本色どうしの 
グラデーション をとると，たとえば シアン 
と緑の間に16段階の色が得られる。適当な 
パターンと 基本色をかけ合わせれば， パタ 
ー ンが徐 々に 消えていくようなグ ラデーシ 
ョン 効果も可能となっている。さらに タイ 
ルを作るには，実際に描いた絵の画面から 
拾ってくる I ゲット1 という手もある。 

では，この3つの方法を組み合わせたき 
わめつけの方法を紹介しよう。まず 
を選んで適当に（ほんとうに適当でよい） 
パターンを作る。色は2, 3色程度がよいだ 
ろう0そしてこのタイルでもって画面を少 
しばかり塗りつぶす。これを編集機能にあ 
るカラーチェンジを使って主要な色を変え， 
再び色メニューに戻り IWTI を使って色違 
いのパターンを取り込むのだ。これでもと 
のタイルとをかけ合わせればよい。色違い 
のパターンでじつに幻想的なグラデーショ 
ンが作れるはずだ。 

そして，次はペン。細いペン，太い ペン， 
変わった形のペンなど，18種類のペン先が 
用意されており，なんとこれも1 ペン編集 I に 
よって自由にエディットできるのだ。これ 
で， 16 X 16 ドットの範囲でならどんな形の 
ペン先も作ることができ，色のタイルと同 
様 ディ スタにセーブしておくことができる。 
画像データだけでなく，その画像を作るの 
に使用したタイルパターンやペン先も保存 
しておけるというのは他のソフトには見あ 
たらない。後日，手を加えるときにも便利 
だし，同じ傾向のものをシリーズとして作 
る場合にも有効だ'。 

このようにエディットされたペン先は色 
のタイルと組み合わせることによってさま 
ざまなタッチを可能にしてくれる。組み合 
わせによってはまったく予想外の表現を生 



タイルグラデーションによるパターンの上に，あ 編集機能のコピー，上下反転，左右反転を利用し 

らかじめ作っておいた蝶の絵を合成したもの。 たパターンを作ってみました。 


むこともあった。 

さて，ペンモードのウインドウにはエデ 
イット可能のペンのほか，もっとも細いぺ 
ン，大小2種類のエアブラシ，直線，曲線， 
領域内ペイント，サークル，ボックス，ボ 
ツクスフル，クローズドペイント，消しゴ 
ム，スクリーントーンというように多くの 
ドローイング機能がある。このうち，直線， 
曲線，サークル，ボックスはペンまたはエ 
アブラシといっしょに利用できる。なお， 
曲線はフリーハンドのことである。 

ペンとともによく用いられるのは エア ブ 
ラシ。好きなカラータイルを選んで吹きつ 
けると，初めはランダムな点々に見えるが 
濃くなるにつれて選んだタイルのパターン 
になっていくというもの 0 MacPaint を知ら 
ない人には現在でも驚愕の機能だろう。た 
だ，豊富なペンに比べて大小2種類しかな 
いのはちょっと心細い。どうせなら大きさ 
や濃度は可変にして，できればブラシの領 
域を限定するマスキング機能もつけてほし 
いと思うのは欲ばりすぎだろう力、。 

さて，ペンとエアブラシが出たところで 
入力装置の話をしておこう。先ほどマウス 
が M ましいと書いたが，これはイラストな 
どを描く のにもっとも多用するフリーハン 
ドの曲線の場合に重要だ。カラータイルと 
ペンの組み合わせによる微妙なタッチやエ 
アブラシによる効果を生かすにはどうして 
もマウスを使いたい。キーボードやジョイ 
ステイックではペンやエアブラシをなめら 
かに移動させることはできないからである。 

逆に，直線を中心とした図面などでは， 
キーボードのテンキーのほうが有利な場合 
も多い。線がブレたりすると困る場合には 
_ T ] + 固でキーボードに切り換えて使用 
するとよいだろう。 

話を戻して，次はペイントだ。従来から 
ある領域内ペイントは閉じた空間を塗りつ 
ぶすもので，単色の領域しか塗れないため， 
私はあまり好まない。それに例の色漏れに 
注意しなければならない。まあ， undo 機能 


こそないかわりに右タリックですぐに塗る 
のをストップさせることができるので，被 
害は最小限に抑えられるかもしれない力 5 '。 
私がむしろ利用するのはクローズドペイン 
卜で，塗りたい領域を点で結んでいってぺ 
イントできるというものだ。 

このほか，ペンモードで面白いのはなん 
といってもスクリーントーンである。10種 
類のスクリーントーンが任意のタイルパタ 
ーンとともに利用でき，ボックスフルまた 
はクローズドペイントの手法で使用できる 
のだ。イラストや図面の仕上げに使うとな 
かなかの効果が楽しめる。ただ，このスタ 
リーントーンにはエディット機能がないの 
が非常に残念だ。98版の Z’s STAFF から割 
愛された機能のうちもっとも残念に思った 
のがこれ。もし，自由なスクリーントーン 
が作れたらと思うと……，悲しい。 



エアブラシによるパターンに椅子を合成，日本語 
機能を利用すればポスターデサインにも使えます。 


身 

鑛. 

作 
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もっとファッショナブルにという方に。着せかえ 
人形ではありませんよ。 
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編集と文字 

画面に描かれた絵をいろいろと加工する 
のがこの編集モードである。具体的には， 

コ ピー，拡大. 縮小，回転（ただし90°ごと）， 
左右反転，上下反転，カラーチェンジ，ル 
一ぺなどがある。いずれも，領域の指定が 
ボックスでしかできないようになっている。 
コピーなどの場合，切り抜きということが 
できないのは残念だが，面白いことにコピ 
一する色を限定することが可能だ。たと 
えば，背景が白い部品を描いておき，コピ 
一する際に白をキャンセルすれば，切り抜 
き合成と同様の結果が得られるわけだ。こ 
のやり方は，とくに文字などを加える場合 
などに有効といえるだろう。 

それから，編集モードでもっともよく使 
用されるのはルーペ機能だ。拡大率が4倍 
と8倍の2段階あり，細かい部分の修正に 
はな〈てはならないものといえる。ただこ 
れも，文句があるというほどではないが， 
これだけの技術力があるのならば，ボック 
スカーソルと連動してリアルタイムにウイ 
ンドウ内の拡大表示が変わるようにできた 
のではないかと思われる。やや惜しい点だ。 

次に文字だが，漢字，ひらがな，カタカ 
ナ，英数字などの入力が可能となっている。 
ただし，漢字への変換は，圍をクリックし 
ておいて音読みの1字を入力するとその読 
みで始まる漢字が次々とウィンドウ内に表 
示されていくという原始的な方法であり， 
はっきりいってめんどうである。また字体 
は，横倍，縦倍，斜体の選択が可能で，好 
きな色による縁取りや影をつける.こともで 
きる。まあ，日本語の表示にはこのくらい 
の バリエーションが できればよいほうだろ 
ラ。 

ただし，文字に関しては，98版にあった 
いかにも Z’s STAFF らしい機能が削られて 
いる0それは，アルファベットのデザイン 
文字で，インレタのようなデザイン文字が 
5種類もあったのだ0これらのインレタや 
先のスクリーントーンなどの機能を拡張で 
きるオプションキットのようなものができ 
ないものだろうか。 

ファイル， 印刷，システム 

さて，画像を作成するための主な機能は 
これまで述べてきたとおりである。ここで 
大切な画像を管理するファイルモードにつ 
いて見てみよう。 

ファイルモードでは，主に画面のロード • 


セーブが中心となる力す，ここでは「読み出 
し」および「保存」と表記されている。私は 
これがどうにもピンとこないのだ。 turbo 
Z’s STAFF ではメニューの文字はすべて日 
本語で表示されている。いかにもシャープ 
らしい配慮ではあるのだが，読み出しと保 
存というのはいただけない。私はセーブす 
るつもりで，なぜかロードしてしまい，せ 
っかく描いていたものを消してしまうとい 
う悲しい経験を3回もしてしまったのだ。 

さて，画像データのファイルは画面（全 
画面のこと）と部品に分かれている。デー 
夕の格納に都合がよいのかもしれないが， 
これは本来同等に扱うべきであろう。理想 
的にはセーブの際には必ず領域を指定し， 
ロー ドの際にはそのワクがセーブした位置 
に表示され，それを自由に移動させてロー 


カラーイメージボードから取り込む画像は 
全画面，1/4画面，1/16画面のいずれかが選 
択でき，200ラインと400ラインの切り換え 
が可能だ。動きの激しい映像を400ライン 
で取り込むと残像効果が出るので目的に合 
わせて解像度を選択するとよい。 

おしまぃに 

今月は turbo Z’s STAFF について，その 
高機能ぶりを追ってみた。こうしてみると 
表現力の見事さに比べて編集機能にはじゃ 
っかんのパワー不足を感じないわけではな 
い。ただし，それは Z’s STAFF のペンと色 
が織りなすイメー ジがあまりに圧倒的だか 
らこそそう思えるのかもしれない。 
turbo Ts STAFF はオリジナルの98版と 



ど一しても必要なルーペ機 
能。マウスを使えば操作性 
もなかなかです。また，直 
線にはキーボードを利用し 
ました。格子模様を作って 
バックに敷いておくと便利 
です。 


仕上げは，カラーチェンジ 
とフリー ハン ドのペンによ 
る植込みです。ところで誰 
が住むんでしょう。 


ドするというやり方がよいのではないかと 
思う。そうすれば読み出しと保存を間違う 
こともないはずだ。 

また，色を抜いたコピーができるくらい 


mi 


なのだから，ロード時に画面を重ねるオー 
バーレイ機能も付けてほしかったと思う0 

最後に，忘れてはならないのが印刷モー 
ドとシステムモード。印刷モードでは画面 
の全体あるいは好きな部分を，標準ぉよび 
縮小のいずれかで印刷できる。なぉ，サン 
プルデータとして入っている「ホウガンシ」 
を印刷すれば，ハガキに印刷するのが目的 
の場合ならどれくらいの大きさに描けばよ 
いかといったこともわかる。 

また，システムモードによってイメー ジ 
スキャナやカラーイメージボードの利用が 
できる0イメージスキヤナからはモノクロ 
で取り込まれることになるが，図形と背景 
の色は指定できるようになっている。また 


同じくツァイトの開発によるものだが，今 
回はシャープブランドとして開発された。 
価格も19,800円と手頃である（ちなみに98版 
は38,000円であった〉。また，シャープ製品 
ならではの配慮が随所に盛り込まれている。 
嬉楽画ターボとのファイル交換も可能だし， 
BASIC プログラムでの利用のためのサンプ 
ルも用意されている0 


グラフイツクに関心のある人はぜひとも 
利用して，これ W'Xlturbo の実力だというと 
ころを味わってもらいたい。 


籲 turbo Z’s STAFF 


Xlturbo 用 

5 D 版 19,800円 

シャープ 

003(260)1 161 
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XI turbo 用 5 D 版 
7,800円 

アートデインク 

00474(77)7541 


Iwai Ippei 

祝一平 


過去に，ゲームを始めると「動か f こと山のごとし」と，編集室を震撼させたあの祝一 
平がついに大陸横断鉄道の着工に手を染めてしまった。結果として例のごとく別方向への 


展開を始めてしまったようであるが，いずれにしても十二分に楽しんだようである。 


ふおっふおっふおっ。と一と 一 「 A 列車」 
が Xlturbo に移 t 直されたよ一である。私の 
得ていた情報によると，アートデインクと 
いうのは FM 用のソフト（しかもビジネス 
関係）しか出していないそ一なので，他機 
種への移植はなかなかに無理だろうという 
ことだったのだが， PC に続いての移植なの 
であった。めでたしめでたし。 

おっと,どっこい,ニュータイブ 

私がこのゲームと最初に出会ったのは F 
M -77 AV 用として世に出て間もないころで 
あった。その日，なぜか私の霊毛がピピッ 
と震え， FM -77 AV のほうを指したのであ 
る。そしてふと気づくと， Oh ! FM の某ラ 
イターがなにやら見慣れぬタイプのゲーム 
にうつつをぬかしていたのであった。 

そうとなれば黙って見逃してなるものか。 
すぐさまゲームの内容を聞き，基本的な操 
作を教えてもらった私は，さっそくデイス 
クを借りて，空いている FM -77 AV で A 列 
車状態に突入したわけであった。 

さて，この 「 A 列車」のパッケージなん 
ぞを見ると，「本格的鉄道シミュレーション 
ゲーム」などと銘打たれているわけである。 
さらにはパッケージの裏の宣伝文句には， 
なにやらぎょ一ぎょ一しい能書きが書かれ 
ているのである。その点からすると，なにや 
らムカつく展開なのであるが，困ったこと 
に「鉄道シミュレーション」と呼べるよう 
なゲームはいまのところ 「 A 列車」以外に 
はないという状況なのである。よって，「金 
田正一の400勝」のように，いかなるわが 
ままでも許さざるを得ない。 

というわけで，なにやら妖しげなニュー 
タイプのゲームを解剖してみるのであった。 


鉄道を取!0巻く状況である 

困ったことに，時代は19世紀だったりす 
る。そいでもって，人の迷惑を顧みない大 
統領が，プレイヤーにすべての鉄道利権を 
与えてくれる代わりとして，1年以内に大 
陸を横断する路線を作れと命令するわけで 
ある。具体的には，1年以内に大統領専用 
列車が大陸の向こう岸にある官邸まで到着 
すれば「勝ち」である。 

ここまでだけなら，なんのことはない， 
ただの線路作成ゲームなのであるが，恐ろ 
しいことに，このゲームの本質は， 

ゼニずら 

なのであった。つまり，ど一ゆ一ことかと 
いうと，ただ単に線路を引いていっただけ 
では途中で資金が底をついてしまい，鉄道 
会社が破産してしまうのである。大統領と 
ねっとりと癒着したそ•の筋の会社だから大 
丈夫だと思っていたら，マルコスなのであ 
る。というわけでこのゲームは線路作成ゲ 
ームというだけでなく，鉄道経営ゲームで 
もあったわけなのである。 

そいで，経済的な諸条件は， 

1) 最初に持っている資金は10万ドル。 

2) なにもせずじっとしていても，1日当 
すこ り300ドル程度かかる。 

よって100,000 $/300$ =約333日とな 
り，1年を待たずして破産するのであっ 
た。それならば，急いで大陸横断鉄道を 
作ってしまえばどうかというと，これが 
だめ。なぜかというと， 

3) 線路には，長さに応じて維持費がかか 
る。 

4) 線路を作るための資材を資材置き場か 


ら持って来るには，貨車を運転しなけれ 
ばならない。当然ながら，運転には経費 
がかかる。 

5) そのほかありとあらゆることにお金が 
かかる。 

私が試しにやってみたところ，どうやら 
大陸の90パーセントまで線路を引いたあた 
りで破産してしまうようである。そこで結 
論として， 

客車を走らせ，日銭を稼ぎながら大陸横 
断鉄道を建設しなければならない。 

のであった。鉄道会社なのに，なぜか自転 
車操業をしなければならないのである。 

不慣れな鉄道経営者として 

さて，客車は最初に4台，貨車は2台あ 
る。状況としてはなかなかにおニューなゲ 
ームであるから，最初はゲームオーバーを 
恐れずに，何回か「実験」をして，キー操 
作や ルールに 慣れることが大切である。こ 
れは確信をもっていえることなのだが，「自 
力だけで，1日で大陸を横断できるやつは 
いない」はずである。 

んでもって，ゲームオーバーへの道とし 
てありがちなのは，やはりなんといっても， 
列車事故 

である。まず，プレイヤーが乗っている A 
列車（線路や駅を作る“工事車”と考えて 
よい）が事故った場合は，無条件にゲーム 
オーバ'一である。それ以外に，客車や貨車 
が事故った場合は，「事故処理代」がしこた 
まかかるのである。最悪なのは客が乗って 
いる客車が事故ったときで，賠償金のため 
あっという間に破産するであろう。また， 
大統領専用列車が事故ってもゲームオーバ 
一である（ただし，大陸を横断する路線が 
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できないうちは，大統領専用列車は動けな 
いので，ずいぶんあとの心配であるが)。 

ここまで読んだ人のなかには，「注意深く 
やれば，事故なんて起きるわけがない」な 
どと豪語する人もいるであろう。しかし， 
その考えはチクロ（注：チクロ，覚えてま 
すか？）のように甘い。なぜならば，この 
ゲームは， 

事故を起こすように，巧妙に仕組まれて 
いるからなのである。 

これはど一いうことかというと，ふつう列車 
の運転手は，目の前に線路がなければ，慌 
ててブレーキを かけるものなのであるが， 
困ったことに19世紀という設定のはずなの 
に， この ゲームに 出て〈る列車 （ A 列車以 
外）は， 

全自動で，なおかつ安全装置なし 

なのである。それだけじやない。客車を駅 
以外の場所で止めることはできないのであ 
る。しかも駅で止める場合であっても，い 
つまでも止めておくわけにはいかないのだ。 
時刻表に従って，1〜24時間以内にまた動 
き出してしまうのである。よってこの状況 
により，「正面衝突，追突，線路のないとこ 
ろへの 突っ込み」などがすべてサポートさ 
れているのであった。 

さらには，これだけですむと思ったら大 
間違いなのである0極めつけのイジワルそ 
の1として， 

ヨルハウ ゴクダケ 

というのがある。つまり，夜の間は線路エ 
事ができないのである（おっといい忘れて 
たけど，このゲームには1日24時間の“時 
計”があるのだ)〇これは一見合理的なルー 
ルに思えるかもしれないが，実は駅なら夜 


間でも作れるのである。つまり，このルー 
ルは単なるイヤガラセとしか考えられない 
のである。さらに，その2として， 

ポイントの切り換えや，時刻表の設定/変 
更は夜間しかできない 
という，わけのわからないルールがある0 
そしてとどめにその3として， 

A 列車は常に線路敷設するか，線路を撤 
去している 

のである。つまり，「 A 列車には 移動だけを 
する モードはない」のである。この結果と 
して， 

必要な線路を削ってしまう。または必要 
のない線路を作ってしまう。 

という状況がきわめて頻繁に起き，それに 
より発生する事故は数知れずなのである。 

ここまでのことを総括して表現するなら 
ば，この ゲームは 繁雑でうっと 一し いとい 
うことになる。となれば，通例で私は「ぎ 
一っ」と叫び始めるのであるが，あにはか 
らんや，そうはしないのである。 

A 列車のひそやかな楽しみについて 

このゲームは異常に繁雑なわけである。 
しかもあちこちにワナが仕^'けられている。 
しかし，私が大激怒しないのは次の理由に 
よるのだ。 

駅を作り列車を走らせ人を運ぶと，町が 
成長し家が建ち人口が増えますます儲かる 
ようになる。 

そう，前にも書いたようにこのゲームの 
本質は 美しいゼニの 花を咲かせることなの 
である。駅の立地条件をあれこれと変え， 
線路をあ一でもない，こうでもないと探り， 
大儲けするのが楽しくてしかたないのであ 


る。駅に列車が入ると，一定の規則により 
目の前でポコッと家が建つのが実に楽しい 
のである。どうすればもっと儲かる路線に 
できるかを考えるのが楽しいのである。 

とい5わけで結論である 

ゼニの花畑で踊り狂っていてもどうしよ 
うもないので，やはり最終的には大統領に 
大陸を横断させるわけである。その場合に 
おけるコツを少々述べてお〈力、このゲー 
ムは自力で解いたほうが面白いので，清水 
和人氏のよ一に伏せ字してしまうのであっ 
た。 

1) トン XX を X 回抜けると官邸だった。 

2) xx が2台あるという意味をよ一く考 
えること。 

3) 昔の西部は x 法 x 帯だったそ一な。 
てなところである。そいでもって，最後に 
きつ一い忠告をしておくのである。この 「A 
列車で行こう」のマップには，困ったこと 
にバグはないのである。 
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Shimizu Kazuto 


清水和人 


「秋の日のヴィオロンのためいきの身にしみて……」そうランボーとヴェルレーヌの詩を 
勘違いしたままつぶやきながら，孤独の兵士「清水和人」は密林の奥深く潜入した。常に 
死の影を感じながら，しだいに闘いのむなしさを忘れ去る兵士へと成長していくのだ。 


に変ぇ前進せょ 


Xl / Xltu 「 bo 用5□版6,800円 


T 版5,800円 


パックインビデオ 303(571)6734 


あの映画の名作「ランボー」が RPG に 
なった。ランボーフアンならずとも，映画 
フアンならずとも，スーパーヒューマンと 
も呼べる「ランボー」の役を一度は演じて 
みたいものだ。 

「敵基地に捕らわれた味方兵士を，たった 
ひとりで救出せよ！」こんなまるでゴルゴ 
13への依頼のような命令が下ったのだ。さ 
あ，命を賭けた君の大活躍を見せてくれ！ 
私，清水和人も当然のごとく，あの感動の 
ヒーローと なるべく密林のなかでの闘いを 
展開するのだった。 

完成したひとつのゲームと評価 

ついこの間まで，映画などの題名がつい 
たソフトは二流ものが多いとされてきた。 
キャラクターや物語の設定の面白さ，知名度 
などに頼ったゲームが多かったのだ0しか 
し，最近ではゲーマーの評価も辛くなり， 
でき映えの悪いゲームは姿を消しつつある0 

そのなかでランボーもなかなかの仕上が 
りを見せている。まず，出てくるタイトル 
画面がなかなかのものだ。そして残された 
1枚の地図，敵基地となっているある島の 
地形が描かれているものだ。これを手がか 
りに決死の冒険が始まるのだ。 

さてスタートすると今度は大型機（と思 
われる）に乗って島へパラシュートで降下 
する。下に見える地形がヒリヒリとスクロ 
ールするのがなんともいえない。もちろん 
サウンドもリアルだ（新発売の FM 音源に 
はかなわないけどね。僕も買って遊んでるよ)。 

そして島の片隅からスタート，これから 
森あり川ありの広大なマップへと入ってい 
くわけだ。使える武器は，ナイフからライ 
フル，ロケットランチヤーに至るまで豊富 
だ。敵もさまざまなものが出現し，さらに 
船での戦闘，ヘリコプターでの戦闘，毒植 
物，地雷など，幾多の難関を乗り越えなく 


てはならない。武器によってはその音で新 
たな敵を呼び寄せてしまうから注意が必要 
だ。伏せて進めば敵に見つかりにくい力 5 '， 
使える武器も限られてしまうというリアル 
な設定である。最初の手掛かりは，上空か 
ら見た島の地図だけ。 

死んで死んで死にまくる 

しかし，ヒーローになるには早計すぎた 
ようだ。始めてからまる2時間，私はひた 
すら死に続けたのだ。その原因はひとえに 
私の注意力散慢にある。まずスタート地点 
からいろいろな方向に歩いて，それ以上進 
めない壁のようなものがあることを発見し 
た。そして歩き回るうちに必ず敵に会うこ 
とも発見し，ナイフで立ち向かった私は， 
敵の間断ない攻撃にァ然としつつ幾度も死 
んでしまうのだった。こいつはうかつに敵 
の前には出られないぞ！ 

なにかヒントになるものはないか，私は 
傷つきつつ歩き回った。そしてついに部落 
のような場所を発見したのだ。しかし敵に 
包囲されついにやられてしまった。セーブ 
する間もなくやり直しである。よし今度は 
ライフルを使ってやれ。 

こうして幾度となく死にまくった私であ 
るが，なぜかゲームはいっこうに進展しな 
い。これはこういうゲームなのか，それと 
もなにか難しい謎が隠されているのか私は 
悩んだ。そしていままで注意を引かなかっ 
たある不思議な現象に気付いたのは，2日 
目の朝だった。 

強力な味方 

スタート地点では2，3種の武器しか持 
っていないのに，いつのまにかさまざまな 
武器が増えていることに気づいたのは，そ 
の朝いつになく気分のよい目覚めに成功し 
たからであった。そしていままで気づかなか 


った画面の片隅にいろいろな情報が記され 
ていることに気づいたのだ。色が見にくい 
ので見過ごしていたが，武器の数が明らか 
に増えていることがある。そしてその原因 
はすぐに解明した。味方がいたのだ。 

これまでナイフで殺してきた相手のなか 
に，ひときわ弱い奴がいた，なんとそれこ 
そが味方だったのだ。変化のないゲームと 
思い込んでいたが，実はストーリーに満ち 
ていたのだ，この味方と会うとさまざまな 
武器がもらえる。さあてもらったぞっと。 

今度こそ部落に入っても負けねえぞと， 
敵の弾丸をよけつつ暴れまくったわけだ。 
ところ力す，ああっあさはかにも地雷に触れ 
てしまいドカーン！また最初からやり直 
し。まったく飛行機から降下するイントロ 
の部分を省略してほしくなっちまったぜ。 
それでも少しは強くなってきたがどうも話 
が進まないなあ。よし今度はこの味方の女 
の子についてってやれ。（う一むこの森のな 
かでの画面処理，リアルだなあ）あっ，見 
失っちゃったよ。どこへ行ったんだろう。 
うわあまた敵だあ。 

3回目にやっと追跡に成功した。なんと 
彼女について行くと敵は止まったままなの 
だ。ナイフでやっつけ放題。エイッ，ヤア！ 
しかし女の子に遅れてはいけない。ちよっ 
と行っては待っていてくれるからあせらず 
ついていこう（だいたい対面したときに「案 
内をしてあげる」ってメッセージが出てた 
のに，不覚にも気づかなかった私)。そして 
ついに見つけた船着き場，なぁんだ敵をあ 
まりやっつけなくてもいいのかあ，という 
わけでこっちの岸にさようならをしようと 
さっそく船に乗り込もうとしたとたん，川 
に落ちて死んでしまった。 

怒りは悲しみへと変わり，もう一度やり 
直し，今度こそ乗船に成功と同時にロケッ 
トランチヤーがひとつ手に入った。 
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■■■■■画丽 議獲； 



ところがこの船がまたやっかいな代物で， 
放っておくと何回も同じ場所に出てしまう 
(川の上流と下流がくっついているなんて 
へんなの！）。おまけにいつのまにか敵の船 
がどんどん迫ってくる。こいつはライフル 
やナイフじゃ効き目がない。いま増えたば 
かりのロケツトランチヤーを使うしかない。 
弾は1発しかないから絶対にはずせないぞ。 
うわ 一， はずれ！敵の体当たりをくらって 
一巻の終わり。またロードしてと。 

やっつけたものの，次はどうすりゃいい 
の？よし思い切って向こう岸へ上陸しよ 
う。おっ，どうやら船着き場らしきものが 
あるぞ，あ一っとっとっ通り過ぎちゃった 
よ。まあ次に回ってきたときに……あれ， 
様子がおかしいぞ，なんだあの岩場は。う 
わ一滝だ一！ 助けてくれ一！また死ん 
じゃったよ，今日はもうだめだ。 

怒りを体感 

この ゲームには ザナドウのような成長の 
喜びよりも，何度も死んでしまう怒りのよ 
うなものがある。これも「ランボー」とい 
うキヤラク ターの せいではないだろうか。 

ついに対岸に着くことに成功した私は， 

もう戻れないことを石萑認した。果たしてセ 
ーブすべきだろうか？ しかしこちらへ渡 
った 苦労を考え4とやはりセーブすべきで 
あろう。さあこれで後戻りはできないぞ。 

ところがここでも敵はうじやうじやいて， 
私をメツタ打ちにしてくれた。つ，強い。 
だんだん手強い奴が出てきたぞ。 

おっと，天の助け 

苦しい闘いを続けた。もうダメージは最 
高潮に達し，死ぬ寸前で私は世紀末救世主 


に出会ったのだ。なるほどこれがゲームの 
展開上で重要なアイテムであるのか。しか 
し，いったいどうやって取ればいいのやら。 
それはいままであまりやらなかったことを 
やればいいんだ。おまけに こいつは なくな 
ったらまた補充にくればよい。しかし，そ 
のとき油断した私はある地帯に入ってまた 
もや死んでしまった。う一むあの色は死の 
色だったのか。ちょっと触ってもすぐ離れ 
れば大丈夫。さてまた例のものを取りにい 
くか。あれ？どうもうまく取れないなあ 
(どうして CAPS LOCK がしてあると例の 
ものが取れなくなっちまうんだよお)。 

お次はトーチカのようなものがある不思 
議な地帯に出た。なんだこいつは！手り 
ゆう弾を投げてきやがる。手強いぞ。例の 
ものがなかったらまたやり直しだったぜい。 
しかし2人もやっつければきっと恐れをな 
して逃げるだろう。 

フフフ，もう驚くことはない。セーブす 
るかな，いやもうちょっと歩いて次の展開 
を探そう。と思ったとたんまた地雷にやら 
れてしまった。このあたりは地形がみんな 
同じで区別がつきにくい。私はこの地雷に 
3回も当たってしまったようだ。無念 . 〇 

これだけプレイすると，もうそろそろ敵 
が出ることが予測できるようになってしま 
う。だってほら，ね（まあやってみればわ 
かるよ）。 

2日間ほどこのあたりをうろついていた 
私だが，ある偶然から次の展開を見つけて 
しまった。本当は最初に出た地図から判断 
できるのかもしれない力 5 '，次の展開はなか 
なか見つからんかった。しかしきったね一 
よなあ。ブツブツいいながら私はさらに先 
へと 進んでいった。 


謎はさらに難しく 

この辺から私はまっ赤になって燃え続け 
た。なにしろ地雷，地雷，地雷！さらに 
残骸？ 進めないもう戻れない。うお 一， 
なにをやってんだあ，俺は。実はここで大 
切なものを見つけなくてはならない。そう， 
私はそいつすら見つけらんなかったのだ。 
あとで考えると実にわかりやすい場所にあ 
ったのに。 

さて，私はこのゲームを続ける気を すっ 
かりなくしてしまっていた。ところが'私は 
このテのゲームの必勝法「とにかく歩き回 
れ」を忘れていたことに気づいた。そうだ， 
あのフアンタジアンのときのようにブラブ 
ラと散歩気分で歩き回るのさ，ドウへへへ， 
ほうらあった。ダフ，ぼっぼくの勘ではね， 
このあとあっちの面に戻るんだよ。そして 
ね，お散歩さ，ブーラブーラ （1 時間の間 
私はテレビも見ないで歩き続けた )0 

そしたらねえ，あったの。なにがって， 
次のところへ入る洞穴よ。ここから入って 
悪いやつらに 「めっ」 てするのよ。 

もう例のものも失ったかわいそうなラン 
ボー。だめよ，そっちへ行っちゃ，危ない 
わ。お願いやめてちようた^い。 

「うるさい。俺は行かなくちゃあならない 
んだ。進まなくちゃ生きてゆけないんだ」 

そして……。 

彼はその後の任務を実に見事に果たした 
のだ。しかしそれは命令による行動ではない。 
彼自身の魂がそうさせたのだ。君もランボ 
一の心を持ちたまえ。そのとき，ゲームだ 
けにとどまらないなにかを，君は得られる 
だろう。そして最後のヒントは，「下へ行き 
たまえ」だ!！ 
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と友情の旅 


根っからの SF ファンが無謀にも SF . RPG の世界に飛び込んでしまった。それも地形その 
ものが敵になってしまうという不思議な RPG の世界に0ゲームが進むにつれ，これまでの 
自信は過去のものとなり，しだいにのめり込み，そして最後にこのゲームのタイトルの意 
味を深く考えたのだった。 




シナリォセット{错ミ: 

(□版 4,800円 

ITK 5 3,800円 
803(360)3623 


口ーダーセット 
ホット•ビイ 


ある日，「面白い RPG がやりたいよ一」な 
どと，ひとり暇そうな顔でわめいていたと 
ころに差し出されたのがカレイド.スコープ 
第2弾の“発•汗•惑•星”だった。うかつだ 
った。そのとき，私に与えられた原稿締切り 
までの10日間という時間の重みをもっとよ 
く考えておくべきだったのだ。 

タカをく くって安うけあいした甘さはゲ 
ームを 始めて3日たった時点で発覚した。力 
レイド •スコープ はそう簡単に終わらせてく 
れるほどやわな RPG ではなかったのだ。か 
くして，私はなるべくしてカレイド地獄に 
はまり，朝から晩まで（というより昼から 
明け方まで) MZ の前で孤軍奮闘し続ける羽 
目になったのである。 

RPG とじこの SF 

第1弾が Oh .! MZ 5月号で紹介されたが， 
それを読むまでもなく，カレイド•スコープ 
は SF . RPG である。 SF といっても舞台が恒 
星系で，武器がソードでなくブラスターで 
あるといったくらいであるから，特に構え 
る必要はない。従来のファンタジーものと 
くらベてネーミングやストーリーの自由度 
が高まった点が重要なのである。もう指輪 
物語や神話のキャラクターに縛られなくて 
もよいのた^反面，すべての舞台，キャラ 
クタ ー， アイテムを新しく創りあげなけれ 
ばいけないので，想像力がより必要となる。 
SF もの特有のシュールな名前が横行するゆ 
えんである。 

この ゲーム も ご 他聞にもれない。 レイガ 
ンやブラスタ ー， バリアやカットオフはわ 
かるにしても，フランジャーが武器で，ジ 
エネラがシールドの名前だなんてそうは思 
いつかない。おまけに，惑星の名にいたっ 
ては，カリカピやリッポリッピなんてもの 
まで'ある。 

それでも，たまにどこかで聞いたことが 


ある名前にぶつかる。第1弾の舞台のひと 
つとなったサフラジェットシティはデビッ 
ド•ボウイの古典的名作『ジギー スター ダス 
卜』に同じ名の曲があったし（名曲である）， 
ブロン スキ 人が両性具有だというのも，ブ 
ロンスキー.ビー トという バン ドの元ボーカ 
ルがホモだったことを考えると笑える。武 
器店をイシヤーと呼ぶのも， A.E. ヴァン•ヴ 
ォタトの『イシヤーの武器店』という SF を 
知っているとうなずけるし，砂、漠の惑星が 
フレー メン だというのは フランク.ハーバ、 
一卜の『砂の惑星』シリーズに出てくる砂漠 
の民フ レーメン から取ったに違いない0 

そのほかにもカメ ロイト恒星系のカメロ 
イトなどは，恐らく筒井康隆の短編「カメ 
ロイド文部省」から取ったものだろう。敵 
にはスーネアや ハイ ハツ トなんてのもいる。 

冒険世界へ行くと，映画監督の名前をもじ 
ったものも出てくる0たとえば，ア•ルジェ 
ント大陸はダリオ•アルジェント（フェノミ 
ナを撮った監督）だし，トフォリューはいう 
までもないがトリュフォーなのである。ほ 
かにも探せばまだまだあるはずだ。 

さて， SF.RPG といったが， SF といって 
もスペースオペラのシリーズものである。 
途中で拾った美女のぉかげで面倒に巻き込 
まれるというこの“発•汗•惑•星”の展開な 
どはその典型だ。楽しい限りである。 

基本世界での無味乾燥な戦い 

カレイド •スコープ シリーズのシナリオに 
は，ご周知のとぉり基本世界と冒険世界の 
2つがある。前回と同じ〈市民ランクを上 
げるためのランキングプレイが話の中心と 
なってはいるが，第1弾と違って目的のラ 
ンクが第2市民であるから，その分舞台と 
なる惑星の数も多く，難しくなっている。 
なんといっても，基本世界だけで11もの惑 
星があるのだ。 


第1弾で育てたキャラクターをそのまま 
使うこともできるのだが， MZ - 2500用のキ 
ャ ラクターフ アイルは なかったので新しく 
育てることにしたのが間違いのもとだった。 
基本世界なんて2，3日で終われるだろう 
と思った私が甘かったのだ。 

どこかの惑星の地下にある“アンダー•ザ. 
ジャンク”に隠されている，女優“イオデ 
イーヌ”のホロマイドを見つければいいわ 
けだが，地下エリアどころか隣の惑星へ行 
けるだけの金とレベルを手に入れるので精 
一杯。なにが悲しゅうて女優のホロマイド 
なんて捜さにゃならんのだ，と叫んでもし 
かたがない。ほかの RPG みたいにひとりに 
金を集めていいものを買うとか，拾ったも 
のを売って金をもうけることは一切できな 
いので，まず金に困る。必死になって金を 
集めて武器を買い，スタート地点である惑 
星“アルコ”を隅々まで探検しようと出か 
けると，苦労しても買えなかったいい武器 
がひよこっと落ちていたりするから泣いて 
しまう。もしかしたらこれは基本世界など 
という生やさしいものではなく，1枚のデ 
イスタにシナリオが2本入っていると考え 
たほうが正解だったのではないか，という 
ことにやっと気づいたのである。 

初めは単調だ0ひたすら戦い， レベルを 
上げ，退屈しのぎに定期便に乗っかってほ 
かの惑星にでも行こうものなら強い敵に叩 
きのめされ，ただただ地道に何度も歩いた 
道を繰り返さねばならない。これはただ忍 
耐である0それでも，アルコの敵をみんな 
倒せるようになり，なかなか上がらないレ 
ベル も5 くらいになったならやっと ミルト 
ーンくらいに遠征できる。そこでまた修行 
を繰り返し，じわじわとアトラン恒星系を 
制覇したころにはすでに レベル も2ケタ。 
パーミッションも手に入れ，宇宙船である 
コズミックホッパーも手に入って いる こと 
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だろう。そこまでには，マッピングは必要 
な〈とも（何度も歩いていればすぐに覚え 
るはずだ)，それぞれのキャラクターのパラ 
メータを克明にメモした表は作ってお〈必 
要がある。通常はマップが画面全体を占め， 
パラメータは見えないし，またインベント 
リモードにしても HP の上限がわからないの 
だ0そのほかにもレベルアップするたびに 
不老不死協会へ行き， HP を少しずつ回復 
させながら上限値を確認していく必要があ 
る0実にプレイヤーに苦労をかけるゲーム 
である。そのうえ，イシヤーに行ってシッ 
プヤ ー ドへコズミックホッパーを買いに行 
っても，商品の値段を絶対に教えてくれな 
いので苦しい。いったいなにを考えている 
のやら。 

なんとか頑張ってコズミ ックホッパーで 
ほかの十亘星系へ出られるようになるといよ 
いよ佳境である。 ワープ や地下世界に悩ま 
されな、すら，少しずつ核心に近づいていく 
のが肌ご感じとれるようになるのだ。 

基本世界を旅する際のコッの話をしよう。 
まず，資格（特に医学）を取っていないと 
通してくれない道があるので資格はまめに 
取らねばならない。武器やシールドは落ち 
ているものを拾うべきで，特に遠くの星へ 
行くと，イシャーでも売っていない高性能 
のアイテムが落ちている。これは金の節約 
になろう。怠慢なことに，1回拾ってなく 
なったアイテムもまた立ち上げ直せば同じ 
ところに落ちている。特に，カノンシユー 
卜やカットオフはいくつも落ちているので 
苦労して高い武器を買うとばかばかし〈な 
ってくる。もっとも，いいものを拾いに行 
けるまで強くなるのがたいへんなのだ。そ 
して，いうまでもないことだが，初めて行 
く惑星ではまず宇宙 PUB へ通って情報を仕 
入れるべしといっておこう。 

さて，第1弾では宇宙軍に入りさえすれ 
ば冒険世界へと行けた。ところが今回はそ 
う甘くない0シークレットクラブにいるチ 
ューガ（美女に化けている）を助け出し， 
発汗惑星であるデファンクへ行くためのコ 
ズミックホッパーを持っていることが条件 
なのだ。それでも，イオデ ィースの ホロ マ 
イドを捜しだして第2市民の資格を得るよ 
りチューガを見つけるほうが簡単だ。ワイ 
アット星系にある某所へ乗り込んでクラブ 
チケットを手に入れれば いいの だ'。そうい 
うわけで，私も基本世界を終える前に冒険 
世界へと向かうことにした。 


冒険世界への無謀な旅立ち 

チューガを連れて宇宙港へ行くと，「デフ 
ァンクへ 向かいますか？」と聞かれたので， 
思わず 「 Y 」 を押してしまった〇すると，ハ。 
ーテイが冒険世界用のファイルに引っ越し 
てしまった。しかたなしにデフ ァンクへ チ 
ューガの仲間を捜しに行くことになった。 

5人でいっしよに，ベイカント号とかい 
う水陸両用で乗員の精神力と連動して動い 
てしまう不思議なマシンに乗り込んで探検 
をするのだが，こいつが機能ばかり豊富で 
動きが遅いのだ。なんでこんなに遅いんだ 
ろう。困ったもんだ。でも，こうして5人 
がメカに乗って敵と戦っていると，なんと 
か戦隊シリーズを思い出すなあ。 

とにかく，精神力で動いているのだから， 
敵に攻撃をくらうとそれぞれの HP も落ち 
る。落ちた HP は移動するたびに復活する 
が ，どうしようもないときにはチューガに 
頼むと回復してくれる。また，サイコアー 
ムなどという精神力を使う武器もあり（コ 
ブラのサイコガンみたいだ)，なかなか面白 

い0 

かくして，遅いス クロー ルと，うっとう 
しい敵に悩まされながら大陸を進んで行っ 
たのだが，初めは水中や地中に入れるアタ 
ツチメントを持っていないのであまり遠出 
はできない。海岸線の砂地を進んで行くと， 
いつのまにか潮が満ちてきて死にそうにな 
る。たまにチューガが喋るのでワクワクし 
て聞くと，「この先は危険です」などと毒に 
も薬にもならないことしかいってくれない。 
ひぇ 一〇 

延々とさまよっていると突然，“ェカ•テ 
リナ” や“ピヨー テル”などというカトリ 
ーヌやピエールを ロシア語読みしたような 
古代遺跡に出くわす。ェカ•テリナではコン 
ピュー タが現在地を教えてく れ たり倉庫に 


眠っていたパーツをくれたりするので嬉し 
い。しかし，道は長そうだ。寿命の短いテ 
ラ人などは更年期障害に悩まされ始めるこ 
ろ。 

海へ潜ると，深度計がゃっと意味を持ち 
はじめる。あまり深く潜ると水圧でドッカ 
ーンだが，アタッチメントの性能を上げる 
とかなり深くまで潜れる。地中は迷宮であ 
る0視界は悪く，レーダーでもないとつら 
い。チューガよ，なにか教えてくれ。 

いつになったらチューガを無事仲間のと 
ころへ届けられるのだろう。それが終わっ 
たら基本世界に戻ってランキングプレイの 
続きが待っている。なんということだ。力 
レイド地獄はまだまだ続くのだ0 

と,い5わけで …… 

基本世界は強い者が勝つ，と頭が足りな 
〈て不器用な戦士ばかり育てていると，ち 
ゃんと冒険世界で地獄をみるようにできて 
いる。各キャラクターのパラメータがもろ 
にベイカント号の力にはね返ってくるのだ。 
かといって，力の弱い者は足手まといにな 
る。寿命の短い種族はどんどんレベルが上 
がるのに，平均寿命が200歳というブロンス 
キ人になるとレベルがぜんぜん上がらない 
し，金もなかなか儲からない。とんでもな 
いシビアなゲームだったのだ0そのうえ， 
冒険世界は遅くて広くて，マッピングのき 
らいな私でさえ耐えかねて方眼紙を用意し 
てしまった。いったいいつになったら第2 
市民ランクが手に入るのだろう。 

私の堕落した10日間はどこへ消えたのだ 
ろう。 

ところで，疑問に思ったことがあるのだ 
が，基本世界では「*」を押してコマンドモ 
ードになるのに，冒険世界では ESC キーな 
のだ。操作性の統一くらいしてほしかった 
ものである。 



與 パ 1:1 メ !1 ^i ： MI 


1 メ I し叶 メ it 


. ■. 

•ご. ' 

ぼ！^:0愈* .• 

: U<! ,<151- <i i,*<i t .^i i .<11,.<| I 

^([i3QS!^S i 09@ , Q , 3 i S , {3 ， ] こ '：' 

$ ： 9 ： Q ： S'S ； S ； (2^5*9*§'Q^x' ... 
一•一 •一一 




■毀' 

UI I メ 1:1 .<1.1 メ 1: 


基本世界 




“ rm 

IS 


画 


冒険世界 


THE S 0 FT 0 UCH 36 

















































































Koumoto 

こうもと 


髮の長い美少女クリス，彼女の失われた記憶のなかにはいったいどのような秘密が隠され 
ているのだろうか。宇宙空間を漂う恒星間航行用宇宙船「ダイダロス」 を舞台に繰り 広げら 
れる SF アドベンチャーの世界。美しいアニメ処理に感動しながら，君も惑星びを目指せ0 
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ブロ□ーク 

西暦2101年，人類初の1•亘星間航行用宇宙 
船ダイダ' ロスは， 地球を離れること遥か10.7 
光年もの彼方，エリダヌス座イプシロン星 
系の惑星ぴへと飛び立った。それは，太陽 
系を探査しつくした人類にとっての新天地 
だったのだ。 

そして何百年もの時が流れた。今や宇宙 
船ダイダロスには地球を旅立ったころの夢 
や希望はなく，人々はただ無気力に日常を 
送っていた。 

そんな人々が暮らす街並みを一望できる 
小高い丘の上にひとりの少女が立っていた。 

「私はだれ。そうだ，名前はタリスだった 

わ」 

今，少女にとって思い出せることはそれ 
だけだった。そして，そのときだった。居 
住区の一角が炎に包まれたのは。 

おお一っと，いいよ，いいよ，なかなか 
SF チックな始まりじやない力、これはやる 
気をそそられるぜ。主人公の女の子もなか 
なかカワユイぞ。ふ一ん，クリスというの 


か。おや，ほとんどすべての面で隠れキャ 
ラク ター （正義の味方 オニ ギリ マンにはまい 
った）があるぞ。列車ステーションのポス 
ターに 書かれた文字（世紀末 ロマン 「ジェ 
ネシス」，愛と悲しみの「ウィル」など）も 
いいねえ。前作（だっけ？）「ウィル」で培 
われた アニメーション 処理という やつ も 健 
在だ。さすがスクウェアさん。その筋の趣 
味というものをよく理解していらっしゃる。 
表面上の見せかけだけでなく，ストーリー 
もそれなりにハードしているのも感激もの 
だ。このアドベンチャーは結構売れちゃう 
んだろうな あ。マニア もオタクも xx コン 
も，すべての人を巻き込んで，さあ，「アル 
ファ」の始まり始まり。 

仲間 

「私，自分の名前がクリスということしか 
覚えていないの。住民リストにも登録され 
てないというし……」 

「そりゃ，気の毒にな」 

その革命派のサブリーダーと名乗る男は 
続けた。口元に薄笑いを浮かべているが， 



彼の癖なのだろう。悪い人でないことは話 
してすぐにわかった。 

「あの革命騒ぎは俺たちがやったのさ。人 
間がコンピュータやロボットに支配されて 
るなんておかしいと思わないか。俺は機械 
なんぞに支配されるのはまっぴらだ。なあ， 
お嬢さん。いまはひとりでも多くの協力が 
必要だ。ぜひ，俺たちと一緒に戦ってくれ」 

こうして，運命の糸にでも繰られるよう 
に私は革命へと巻き込まれていった。しか 
し，この初めてできた親しい仲間たちも， 
ポリスロボットの手によって皆殺しにされ 
た。あとに残ったのは廃虚と化した彼らの 
アジトと，ガレキのなかで見つけたわずか 
ばかりの武器だけだ。 

「この レーザー ガンはエネルギーを入れれ 
ば使えそうね」 

私はリーダーを救出し，この革命を成功 
させなければならない。それが私の使命な 
のだとかすかに思った。 

やみくもに動きまわって，そのたびにポ 
リスロボットに捕らえられて身ぐるみをは 
がされてばかりいたクリスにも，やっと目 
的らしきものが見えてきましたね。えっ， 
そんなこと最初からわかってるって？ま 
あいいじやない。それにしてもこのゲーム， 
なんとなく『メトセラの子ら』（ハインライ 
ン）とか『都市と星』（クラーク）という雰 
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囲気が漂っている（作者が意識したかどう 
かは知りませんが）と思いません？ クリ 
スは ユニーク （わからない人は『都市と 星』 
を読んでみよう）じゃないのかな，ゲーム 
を始めてすぐの感じがそうだったんだ。あ 
るいは『地球へ…』（竹宮恵子）のミューと 
いったところかな。 

アドベンチヤーゲーム「アリオン」は映 
画の感動が背後にあったけど，「アルファ」 
には古典 SF の世界が背後にあると思えば 
いっそう興味深いよね。 

さて，ゲームのほうはクリスが レーザー ガ 
ンを撃つシーンがかなり多いけど，このア 
二 •メーシヨンシーンにもっとバラ エティ （原 
画を変えないまでも，背景の色を変えると 
かして，日本サンライズしてほしかった） 

を持たせてくれたらよかったんだけど。で 
も，クリスの表情がカヮイイから許しちゃ 
う。タリスがやらねば誰がやる。 

キース 

「俺は革命派のリーダー，キースだ」 
ポリスの牢のなかの男が話しかけてきた。 
結構ハンサムで私の好みみたい0 

「俺が革命派を結成したのは住民たちの自 
由と希望を奪い続けてきたポリスをたたき 
つぶすためだ。ポリスのロボットたちは， 
すべてメインコンピュータからの指令によ 
って動いている。だから，このメインコン 
ピュータを破壊しなければならないんだ。 
何百年もの旅の間にダイダロスの住民たち 
は，目的や希望を失ってしまった。こんな 
状態ではたとえびに到着したとしても，新し 
い環境に順応することはできないだろう。 
そんな住民たちを目覚めさせるために，俺 
は革命を起こしたんだ」 

リーダーの名前がキースだって。ますま 
す『地球へ…』の影響を感じるなあ。コン 
ピュータに管理された社会，それに対立す 
る異分子，う一ん， SF のパターンを継承し 



駅の ホーム 


ていて安心感が持てる。しかし，出会いは 
別れの始まり，美形キャラは悲運の最期を 
遂げるという法則はここにも生きていたの 
である。 

別離 

BOOOOM ! 

ポリスロボットの撃ったレーザーガンが 
キースの胸で閃光を発した。私も持ってい 
たレーザーガンでロボットを破壊したのだ 
が，一瞬遅かった。 

「キース，しっかりして」 

そのときだった，私はキースの胸の傷口 
から無数の精密機械がはみ出しているのに 
気がついた。 

「キース，あなたはアンドロイドだったの 
ね」 

「そうだ……，俺は革命を起こすために， 
ダイダロスと同時に造られたアンドロイド 
なんだ……。クリス……，住民たちを救え 
るのは君しかいない。メインコンピュータ 
を破壊し，人々をびに導いてくれ」 

ほほう，やっぱりね，キースはアンドロ 
イドだったのか。これもパターンだなあ。 
でも，ついに究極の目的が明らかにされま 
したね。メインコンピュータを破壊すれば 
いい。と，誰もがそう思うことでしょう。 
しかし，それはまだ甘い。アイスコーヒー 
のシロップを大福モチにぶっかけたくらい 
に甘かったのです。実は，クリスの本当の 
使命はもっと別のところにあったんだ。そ 
れがなにかということはちょっといえない 
けど，勘のいい人ならわかるでしょう。道 
は宇宙船ダイダロスの先端部分にまで行っ 
て初めて開けてくるからね。さて，君はも 
う2種類のカードとキーを手に入れた力 > い。 


a 軌道 

目の前で大きなレーダースクリーンが点 
滅している。私はそのスクリーンを眺めた0 



感動のエンデイングだ 


ここはダイダロスのレーダー室みたいだ 
わ。えっと，これが地球でこれが目的地の 
びね。ふ一ん，このダイダロスが地球を出 
発したのは今から350年も前のことなの。 
えっ，ダイダロスはもう1年も前にびの軌 
道上に到着しているじゃない。なぜ早く着 
陸しないのかしら。着陸を阻止するポリス 
のメインコンピュータを破壊したのに …… c 

ここら辺のストーリー展開はいまいち不 
満た f 。 どうしてスクリーンなんかに x x x 
x という文字が書かれているのだろうか。 
説得力に欠けるような気がする。ご都合主 
義は，打ち切りが決定して話数が足りなく 
なってしまったテレビアニメだけにしても 
らいたいものだ。しかし，ご都合主義が従 
来のアドベンチャーのパターンだといえば 
そのとおりだ。ここはそういう伝統に従っ 
ただけなのかもしれないなあ。 

クリスはついにダ'イダ'ロスのコントロー 
ルブリッジにやってきた。ブリッジに足を 
一歩踏み入れたそのときである。突然部屋 
のなかに声が響きだした。録音されていた 
テープが回り始めたようだ。 

「クリス，よくぞここまできた。この録音 
は君のために用意したものだ。落ち着いて 
聞きなさ^ . 」 

そしていま，すべての謎が解き明かされ 
るのだった。 

ついに，ついに，やってきました。感動 
のエンデイング。果たして，クリスの正体 
は……。ここまでたどり着いたあなたは， 
これまでの苦しかった思い出が走馬灯のよ 
うに次から次へと浮かんできていることで 
しよう0レーザーガンを見つけられなくて 
何日も行き詰まっていたことや思いもよら 
ぬところからエレベータに乗り込んだこと 
(だって，あんなとこでカードを差すなん 
て）。ロボットを何体も破壊しないと先に進 
めなかったこと。などなど，すべてが夢の 
ようです。今にして思えばそれらもみなこ 
の日のためにあったのですねえ。オマケの 
ピクチャーレコードを聞きながら，2度3 
度とゲームの余韻をかみしめる僕なのでし 
た。うるうる（感動の涙を流している音）。 
P . S . ブラステイーがやっと発売されまし 
たね。もう侍ちくたびれちゃったじゃない 
です力、ところで，パッケージの裏に書か 
れた FM 音源対応というのは間違いと力、 
まったくう。 
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Yamamoto 


これぞニュータイプのゲームと呼ぶべきものなのだろうか。自分が，相手が，そして存在 
する世界や目的すらもすベて不確かなままだ。この空間には善も悪も存在しない。ただあ 
るのはけだるい空間をさまよっている私と“俺”の2つの意識だけ。果たして実体は存在 
するのか。 


X ど聽〇用議 


私は，コンピュータの前に座った。数分 
後，ディスプレイにはもやもやとした影の 
ようなものが映っていた。それが，“俺”だ 
った〇 

漂5瑰 

俺は海に浮かぶ遺跡のなかにいる。なぜ 
そこにいるのか，以前俺がなにをしていた 
のかはわからない。気がついたときには， 

この遺跡の片隅にフワフワと漂っていた。 
あるべき肉体はなく，ただ意識という力*， 
精神というか，それだけが影のように漂っ 
ていたのだ。ぼんやりとして，どうかする 
と消えてしまいそうな影。俺はその存在に 
耐えられず，肉体を求めてうさぎのような 
生物の体にとり憑く。 

いったい なにをすれば いいの かま るっき 
りわからない。ただなんとなく，自分の体 
はどこか別のところにあるような気がする。 
俺は，自分の体，意識のよりどころとして 
の肉体を求めてあてもなく歩く。 

突然，俺の目の前に不気味な替備マシン 
が現れる。そして，赤い服を着た替備兵。 
姿勢を低くする。警備兵は靴紐を結んでい 
る。今のうちに階段を上がる。右手に不気 
味な偶像。調べてみるが別に変なところは 
ないようだ。一応持って行くことにする。 

いきなり体が宙に浮き，深く沈んだ。床 
に穴が開いていたらしい。真っ暗な部屋。 
俺は必死で上に登る手掛かりを捜す。あっ 
た。俺は穴から抜け出る。また赤い服の警備 
兵力 ? 現れた。今度は見つかってしまったよ 
うだ。「あっち行け？」俺は無視して階段を 
上がろうとする。いきなり腹部に鈍い痛み, 
目の前が暗くなる。撃たれたのだ。床が急 
速に近づいてくる。死ぬんだな，と俺は思 
ラ。 

床が目の前に見える。すぐ近くに，うさ 


ぎのような生物が倒れている。俺は記憶の 
糸を手繰る。擊たれて，倒れたところまで 
は覚えている。それから先はわからないが， 
どうやら生きているようだ。俺は立ち上が 
ろうとする。手をつく。そこに見えるのは 
銀色に光る銃。そして，それを持つ赤い服 
を着た人間の手。そこにあるのはうさぎ 
のような生物の姿でなく，赤い服を着た警 
備兵の姿だった。 

広大な mmt 、 で 

俺はゅっくり立ち上がる。体を動かして 
みる。体は，まるで自分の体のように自由 
に動く。だが，俺にはこの体が俺の本当の 
体ではないことがわかっていた。意識のど 
こかで，俺は自分の本当の体を求めていた。 
俺はまた本当の体を捜すため歩き出す。 

ある階段を下りると奇妙な通路に出た。 
近づくと，上から針のようなものが降りて 
くる。通ることはできない。どうにかして 
向こう側に行けないだろうか。目の前には 
銀色に鈍く光る針。その向こうで，なにか 
が動いたような気がする。はっきりとは見 
えない。俺はあきらめて引き返す。 

倒れて苦しそうにしている人がいる。な 
んとなく気の毒に思いながら通り過ぎる。 
俺と同じ格好をした警備兵に声をかけられ 
る。異常はない力*，といってきている。「異 
常？」いったい彼らはなにを替備している 
のだろう力 1 。 

通路はもう行き止まりである。右手にド 
ア。なかに入ってみる。なにかの倉庫らし 
い。棚のようなものが4つある。ひとつだ 
け開いている。なかには'ビンに入った薬。 
なんの薬かはわからないが，とりあえず持 
って行くことにする。 

さっきの人はまだ' Pj れている。あまりに 
苦しそうなので介抱してやる。いくらかよ 


くなったようだ。彼は礼をいい， 「 HELL を 
信じていたのは間違いだった」といった。 
俺はその言葉の意味を考えた。しかし，ど 
ういう意味かはわからない。 

—私は，このシーンはやらせたと思う。 
どうも話ができ過ぎている。 

はしごがあったので登ってみる。テラス 
になっている。外には，夕焼けの空と一面 
の海。ほかにはなにも見えない。向こうの 
隅になにか立っている。人か人形かはわか 
らない。少しずつ近づいてみる。近くで見 
ても，その正体はわからない。突然，それ 
は俺に語りかけてきた。彼は，俺にいくつ 
かのメッセージを託した。それによると， 
彼がこの遺跡を造り上げたらしい。しかし， 
HELL という人物に乗っ取られてしまった 
という。 HELL ? さっき倒れていた人も 
HELL という言葉を口にした。 HELL とは 
なに者なのだろうか。だが，その質問をす 
る間もなく，彼はかき消すように姿を消し 
てしまう。俺はなにか2つの勢力がぶつか 
ろうとしているのを感じる。そして，そこ 
に俺がなぜここにいるのかという理由が隠 
されているような気がする。 

俺はさらに遺跡のなかをさまよう。階段 
を上ったり下りたり，部屋に入ったり出た 
り。不気味な機械、像，しきりとうろつく 
释備兵。俺はなんとなくこの遺跡の構造に 
違和感を感じていた。しかし，それがなに 
かはわからない。 

一私もこの世界になにか不自然さを感 
じていた。 

神秘な扉の向ころ側 

いきなり紫色の強そうな奴が殴りかかっ 
てきた。俺は夢中で銃を構え引き金を引く。 
弾は当たったが少しよろめいただけだ。続 
けて引き金を引く。突然目の前が暗くなる。 


^8 Oh ! MZ 1986.10. 




乗り移ってみたものの 



おまえはいったい誰なのか？ 


ムカ ? RPG て、，はなくてリアルタイムゲームな 
のだと悟った。これを RPG でございという 
のは少々難がある。私の感じていた不自然 
さはここに根ざしていたようである。しか 
し，リアルタイムゲームとしては今までに 
ない方向性を持ったゲームである。まあ， 
今は RPG ばやりだから， RPG だといって 
宣伝したほうが売れるんだろうけど。ここ 
らへんは RPG がブームだというと， RPG 以 
外見向きもしないユーザーにも問題がある 
わけで，困ったものである。 

俺は決意を固めて，穴に飛び込んだ。な 
かでなにが侍っているのかはわからない。 
恐ろしい怪物がいるかもしれない。しかし， 
俺は先へと進む。俺の本当の肉体と，俺の 
存在理由を求めて。 

一10数分後，私は“俺”が崩れるよう 
に倒れるのを見た。そして……。 

俺は，ディスプレイ上に浮かぶ私を見た。 
俺は電源を切りゆっくりと立ち上がった。 



気がつ〈と，目の前に赤い服を着た人間が 
倒れている。また乗り移ったようだ。俺は 
ゆっくりと起き上がって，体を動かしてみ 
る0今までの体と同様スムーズに動く。だ 
が，俺は心のどこかで，これも本当の俺の 
体ではないことを感じていた。俺の体はど 
こにあるのだろう力、。そして，俺はいった 
いなに者なんだろう力、 

俺は針の通路の仕掛けを止めるのに成 
功した。行く手に俺の本当の体があると 
いう証拠はまった〈なかったが，俺は本当 
の体を求めて通路を進む。向こうに人影が 
見える。近づいて行く。またもや変な奴 
が出てきた。俺と同じような色だが，頭が 
とんがっている。近づいたら，炎を飛ばし 
てきた。とんでもない奴だ。俺はジャンプ 
して殴りかかる。 

数分後，俺はそいつを倒した。また，目 
の前が喑くなり，気がつくとそいつの体に 
乗り移っていた。俺は先に進もうとする。 
だが，行き止まりだ。扉のようだが横にな 
にかの端末が見える。パスワードを入れる 
のだろうか。俺はどこかで聞いた言葉を入 
れてみる。いきなり扉が開く。どこからか 
声がした 。 「WELCOME TO HELL 」 そう 
いったようだ。それともそら耳だろう力、。 

——私は，ここでいきなりウケてしまっ 
た0ちっともシークレットコードじやない 
じやない力*。困ったもんだ。 

空虚な空間 

奥にも扉がある。開けようとするがびく 
ともしない。俺はあきらめて，近くのはし 
ごを登る。波の音が聞こえる。またテラス 
だ。前から変な奴が近づいてくる。なに 
かいったようだ。なんていったのだろう。 
近づいてみたところ，いきなり殴られた。 
こっちは炎をぶつけて応戦する。 

数分後，奴は倒れた。俺は奴に乗り移る 
のを侍つ。なにも起こらない。なぜだろう 
力、。俺はふと外の景色を眺めた。外はまだ 
夕焼けだった。なぜかさっきの違和感がま 
た思い返される。それにしてもこの遺跡# 
いったいなんなのだろう。前のテラスで会 
った奴， HEAVEN ソルジャーのひとりだと 
かいってたけれど，そういえは 1 皮がこれを造 
ったっていってたっけ。しかし，彼はいっ 
たいなんのために，こんな世紀末的な建物 
を造ったのだろう。彼は，こっちの質問に 
は答えないで，勝手に消えてしまった。そ 
れじや，もう一方の HELL とはなに者なん 



だろうか。警備兵がやたらにいるが，彼ら 
は HELL の部下なのだろうか。彼らはなに 
を警備しているのだろうか。そういえば， 
数々のドキュメントに書かれた文章。あれ 
はいったいなんなのだろう。ひょっとして 
俺の存在理由になにか関係があるのかもし 
れない。 

俺はふと，妙なことに気づく。さっきの 
テラスにいたときから30分以上たっている 
のにいまだに夕日のままだ。俺は突然さっ 
きから感じていた違和感の原因がわかった。 
この遺跡には生活臭がまるでないのだ。お 
まけにいつまでたっても夕日は沈まない。 
まるで，この遺跡のなかでは時間が止まっ 
ているかのようだ。そもそも，この世界を 
溝成する物質自体が本当に存在しているの 
だろうか。いや待てよ，存在するとはなん 
だ。知覚されることが存在することなのだ 
としたならば，知覚しない限り存在すると 
いう言葉は定義されない。この世界では時 
間が止まっているのではなく，時間という 
ものが定義されていないのではないか。俺 
はそう考える。 

新たな意黴の目覚め 

一私は，単なる手抜きだと思う。まあ， 
そこまでやれとはいわないけれど。 

今度は下に降りる。奥の扉を開ける。な 
かに入ると，人が立っている。手に剣のよ 
うなものを持っている。いきなり，彼はひ 
ざまずいて倒れた。俺は突然目の前が暗く 
なるのを感じる。 

目の前に紫色のとんがった頭がある。い 
つの間にか，さっきの奴に乗り移っていた 
ようだ。あたりを見回してみると，奥に力 
プセルのようなものがある。人が入ってい 
るようだ。近づいてみる。女だ。眠ってい 
るのだろうか，びくりとも動かない。ほか 
にはなにもない。完全に行き止まりの部屋 
である。上に戻ることにする。 

さっき動かなかった扉が今度は開いた。 
さっそくなかに入る。不気味な気配が漂っ 
ている。床力 5 '割れて，穴が開いている。下 
は見えない。俺はどうしようかと考える。 

—私もどうしようかと考える。ここで 
とりあえず セーブした いところだが，しか 
し，いくら マニュアルを 見ても セーブと い 
う文字はない。なんでこんなに難しいゲー 
ムにセーブ機能がないんだ。私はこのゲー 
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Saito Ryo 


リ 3 お前 L 逢いたいよと 


斎藤亮 


おいブルー，ちょっと当てるの下手なんじゃないのか？ なんて心のなかで思っても口に 
出していってはいけません。君とブルーは最後のライーザ戦士なのです。さあ，元気を出 
して仲よく戦いましよう。地球のために，リミのために。 



SF アニメ ロールブレイだせ 

君を侍ってたんだぜ，やっほ〜。アニメ 
してるぜ，ライー ザ。ルンルン。 

というわけで，皆さまお待ちかねの地球 
戦士ライーザの登場です。最近，はやって 
いるアニメ 効果が取り入れられ， FM -7 で 
は大ヒットとなったわけです。僕もやるか 
ら，君もやれ。みんなでライーザをやっち 
まおう！それでは，始まり始まり。 

それは火星から始まった。 

太陽系第4惑星「火星」。この惑星で今回 
の主役たち， NEW とブ'ルーは任務を遂行し 
ているのだ0もちろん NEW はプレイする 
あなた（名前は勝手に付けましょう）〇ブル 
一はひょうきん者で，そして頼りない奴。 
でも彼がいるおかげで ゲームは モリモリに 
盛り上がっている。それにコンピュータ•ド 
•ー ルの オペレータ も一緒だ。彼女は貴重な 
情報を伝えてくれるんだよ。 

そこでとどのつまりは，例のごとく敵さ 
んが登場し，やりたい放題して帰って行く 
のだが，そこを NEW とブ> レーで撃退するわ 
け。けど，火星基地カオスを壊滅させられ 
てしまう。憎っくきガルムめ！ 戦いに疲 
れた2人は，「帰ろ一ぜ一」と一路地球を目 
指すのであった。 

カブセルや〜い 

マップ1を見てほしい。3個の惑星を見 
て「俺，知らね一よ」という方は，小学校 
に戻っていただきたい。これら惑星のほか 
に，連邦軍の宇宙要塞であるミンスク，フ 

エニックス，ターリエンがあり，ガルムメ 

力が出現する G ホール1，2, 3，4など 

がマップ1のなかに存在しているのだ。こ 
のマップを中心にゲームは進められていく。 
これは，ライーザが地球へ戻るまでのスト 
ーリーなのだ。 


まず初めは，ターリエンへ立ち寄ろう！ 
ここではターリエンの残骸とともにカプセ 
ルを見つけることができるだろう。脱出用 
カプセルには誰が乗っているのかは残念な 
がら宇宙では確かめることはできない。力 
プセルを地球へ持って帰ってからでないと， 
素敵な人には会えないの AT よ〜ん。 

戦いだつてコツがある 

ライーザよりも HP が'低けりや，こっちの 
ものってんで一気にやっつけちまおう。問 
題なのはガルムメカの HP が高いときだ。 
こうなったら逃げるが勝ち，というわけで 
撤退しなければならない。この場合，通常 
モードと跳躍モードがあり，跳躍モードの 
ほうが逃げやすいというわけた力 5 '，このモー 
ドではライーザの HP が大幅に減ることに 
なる。そうしないためには，状況に合わせ 
て跳躍距離を少なめにすればよいのだ。 

マップ1のなかでは宇宙要塞ミンスクが 
補給基地となって，ライーザの行動を支え 
てくれるので，ミンスクを活用してマップ 
のなかを自由に動き回ることができる。こ 
のミンスクには，面白いミンスク親父がい 
る。なかなか気のいいコンピュータ親父で， 
ブルーとはウマが合うようだ0 

「ガ 'ルム来てからみんな逃げてしまったあ 
るよ。あんた方，来てくれて嬉しいあるよ。 
ガルムの 情報，持ってるあるよ」 

こうしてミンスク親父は，ガルムメカの 
データを出血大サービスして教えてくれる 
のだ。 

休息をとったあとは，地球へ帰還すれば 
万々歳！となる。ブルーなんかは「この 
夏は一度も海へ行けなかったなぁ」などと 
僕と同じようなことを考えているだろうし， 
2人は地球へ帰ったら好き勝手なことをし 
たいナ〜と甘い考えをしていた。ところが 
どっこい。世の中は2.9%の失業率なので 


す0しっかりと地球には，バリアが張り巡 
らせてあったのだった。 

「なに考えてんだ，地球の奴らは！」 

ただ，こ一いうことを考えているのです， 
地球の方々は。 

数時間後，地球から突然交信があった。 

それは地球総司令官 エン トル • コーダーから 
で， 「 RTV 作戦は失敗に終わり，ブエノス 
アイ レスはビーム 砲により全滅し，残され 
たライーザ隊は G ホールに潜んでいる 4 隻 
のガルム艦を沈めるべし」という。戦士に 
休息はない！ NEW とブ'ルーは，ガルムホ 
ールへと再び旅立っていた0 

わたしは英雄 

航行中に出会ったガルム艦は，船体すベ 
てにビームバリアを張っているので，ピー 
ムは まったく 通用し ない 0 そこでミサイル 
全弾発射となる。しかしこの場合，射程距 
離内に入るまでガルム艦の集中砲火の的と 
なるので， HP は高くなければならない。通常， 
シール ドを張っているガルム艦はセンサー 
に反応しないが， エン トル. ユー ダーに会う 
ことによって道は開かれるのである。 

NEW とブルーが地球へ帰還するところ 

•マップ1 

/金星 
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ガルム軍の総攻擊が始まった 


から，自動紙芝居が始まる。スペースキー 
を押し続けていけば，僕らはグラフィック 
とストーリーを楽しむことができる。 

仕事を終えた2人は，本来ならば「英雄」 
になれるはずだったが，これには時代が悪 
かった。「英雄と語ろう会」などが催される 
わけなどなく，2人は平凡な休暇を手に入 
れただけ。 

そして3日目 の朝， NEW とブルーのも}: 
へ病院からカプセルで救出した人が助かっ 
たと連絡があった。人物照会用のファイル 
には美しい女性の写真があったために，ブ 
ルーはひとりで騒ぎ出し， NEW を連れて病 
院へと急いだ。 

抱えきれないほどの花束を手にしたブル 
一の表情はたるみきってしまった。彼女の 
名前はリミ，それ以外のことはすベて記憶 
にはないという。ブルーは「美人の命の恩 
人になった」と，大騒ぎ。そして，ゃっと 
のことで僕たちはリミと海へ行く約束をし 
て Good - by するのだった。 

リミの回復は以外に早く，数週間後に2 
人の願いは実現することになった。 

青い空，青い海，ピチピチしたギャルと 
一緒に， NEW とブルーの胸のなかには幸福 
の2文字が浮かんだことだろう。 

「リミ，俺はこう見えてもサーフインの元 
世界チャンピオンなんだぜ」と，はしゃい 
でいたそのとき，上空に閃光が走った。ガ 
ルム軍総攻撃の始まりだ 0 

ガルム母艦は月から6万 km の空間に位置 
し，地球へ兵力を送り始めた。ガルム母艦 
を叩き，再び地球に平和を取り戻さねばな 
らない。 NEW とブルーは，リミの制止を振 
り切ってライーザに乗り込むのだった。 

君がライーザに乗れ 


さあ，いよいよガルム帝国の野望を打ち 
砕くためにも，君がライーザに乗り込むの 
だ。ガルム母艦を叩き，ガルム大帝との決 
戦に備えるためにもマップ2の宇宙を跳ん 



苦しい別れのとき 


でほしい。ここでの補給所はネマだ。ネマ 
では破壊力絶大のホーミングミサイルが供 
給されるし，ガルムメカの貴重な情報を得 
ることができる。 

ここで必要となってくる武器は，念波砲 
と反物質ミサイル，サーベルのどれかであ 
る。それと身を守るためのシールドだ。念 
破砲を装備しないことには互角に戦うこと 
ができない。 

スターダストへ行けばブレードが貰える。 
しっかり2人分を確保してほしい。つまり， 
2回行けばいいのだ。念波砲の確保は，ア 
タックしてくる相手がそれを装備していれ 
ば，破壊したあとに遺留品として回収すれ 
ばよい。シールドもミサイルも同様，とい 
うわけになる。 

リミは地球に置いてきぼりのままなのか 
な〜，と残念がっている人は喜んでくれ。 

リミの ESP 能力は地球上にぉいて突然覚醒 
し，君とブルーのライーザとともに戦うこ 
とになるんだね。やったね。 

•マップ2 



ブルーの 表情が変わる 



最後にいわせていただ吉やす 


SF アニメ ロール プレイングとは称する 
ものの，ブラス テイ ーや アルフ アのように 
ハデな アニメ 効果はないので期侍はしない 
ように。ただライーザは，それらのゲーム 
よりも以前に発表されていたことを XI ユ 
ーザーは忘れてはいけないのだ。 


_ライーザの武器 

■ビーム 

ビームキヤノン1 


" 2 


ビームライフル 

ビームキヤノン3 

念波砲 

■ミサイル 

スカラーミサイル 

ホーミングミサイル 

反物質 ミサイル 

■サーベル 

ビームサーベル 

ビームアツクス 
ブレード 

ロッド 

スー ノく _ ブレ ー ド 


•ガルムメカ • 能力 
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GAME REVIEW 


かねてから話題となっていたソフトはすでに語りつくされた感があり， 
ゲームソフトとしてはザナドゥを越える作品が待たれている0今月は 
新星ウイバーンがダントツの評価を受けているが，テグザーやザナド 
ゥを越えられるかどうかはユーザーの判断を待たねばならない。 


マーべラス 

地下迷宮ものとしてオーソドックスにまと 
められたファンタジー RPGo 画面を見れば 
いかにもといった感じだが……。 

▼ RPG である。5人までのパーティを組ん 
で進む。地上が街であり，地下の洞窟が迷 
宮である。3 D 迷路でマッピンダが不可欠 
である。戦闘シーンはフアンタジアンして 
いる。キャラクターは典型的。いろんな R 
PG のおいしいところをもらって新しいス 
トーリーを付けたようだ。でも，1回組ん 
だパーティは解散できないし，パーティの 
仲間が死んでも補充も蘇生もできないのは 
っらい。敵は弱いものいじめをするので戦 
士や騎士以外は力を発揮する前に死んでし 
まうのだ。地下に住む精霊や，エクスカリ 
バーのような勇者にしか抜けない剣など面 
白いイベントはたくさんあるようだ。 


迫力の OPM サウンドが楽しめる 
リ•バース + FM 音源ボード 

先ごろ発売されたマイコンハウス SPS の 
起大作ディスク4枚組アドベンチャーゲー 
ム，リ•バース。美しくも大量のグラフイ 
ツクシーンでビジュアルに迫るのが最大の 
売り。バラエティに富んだ会話が楽しめ， 
内容もなかなかのようだ。 

さて，じつはこのリ•バース， X 1/ X 1 turbo 
にオプションの FM 音源ポードを接続すると， 
感動の FM サウンドによるゲームミュージツ 
クが楽しめる。特にオープニングに使用さ 
れているメインテーマは迫力満点！ 音色 
も GOOD でじつにカツコイイ。 FM 音源対応 
のソフトはおそらくこのリ • バースが初め 
てだろうが，音楽も安易には作らない SPS 
ならではの凝った出来となっている。 
Xlturbo 用 5 D 版4枚組7,800円 

2ドライブ専用，要漢字 ROM 
マイコンハウス SPS 00245 (45)5777 


キャラクターのロード/セーブに異様に 
時間がかかることを除けばとても面白そう 
なのだが，あまり熱中できなかったのはゲ 
ームバランスが 悪いせいではないだろうか。 
それとも，僕がマッピングをひたすら面倒 
がる怠慢な性格のせいかもしれないね。 

熱中度 ► ►►►>>> K . Y . 

▼最近，ファンタジー RPG は出揃った感が 
あり，私としてはやや食傷気味である。よっ 
て，ちょっとやそっとの RPG では驚かなく 
なってしまった0このマーべラスは，プレ 
イ感覚はブラックオニキス+ゲームブック 
(ソーサリーみたいなやつ）といったとこ 
ろ。ゲーム内容はまずまずで，1年前に出 
ていれば大ヒットしたかもしれない。けれ 
•ども，ここまで RPG をやり込んでしまうと， 
悪いところばかり見えてしまう。まずいち 
ばん不満なのは戦闘画面。いきなり敵のま 
っただ中で囲まれ，敵の移動は8方向，こ 
っちは4方向である。さらに進行が，味方 
の移動—敵の移動 — 同時攻撃，となり，不 
利なことこの上ない。強い敵に当たれば， 
確実に全員死ねる。逃げることさえ許され 
ないのだ。 データのセーブも長いし，スタ 
—卜も時間がかかる。戦闘中の食事に対す 
る配慮が足りない。と，イマイチのめり込む 
には欠点の多いゲームでした0 
熱中度 ►►►►>>> H . M . 

MZ - 2500用 3.5 D 版 6,800円 

データウヱスト 006 (968) 1236 



ゥィバ-ン 

なんといっても圧巻は スクロール する3 D 
迷路だが，これまでのゲームの集大成とも 
いえる大作。本気で取り組めそうだ。 

▼ 「飛べばレギオス，座ればダイタンク， 
歩く姿はウイングマン」しかしてその実体 
は？そう，ウイバーンなのです。私は久 
久に感動的なゲームに出会いました。昔， 
サンダー フォースのスクロールに 感動しま 
せんでしたか？ テグザーの動きに魅せら 
れたことはありませんか？ プラズマライ 
ンの3 D ではどうでしたか？ 3 D 迷路に 
アニメ処理と，ハイテク化が進むこの業界 
でもウイバーンは最高のテクニックを見せ 
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てくれます。肝心のシナリオですが，ゲーム 
の進行とともに解明された謎がさらに新た 
な謎を呼び，ウイバーンの戦闘力も上がっ 
ていくという，手を出せばハマってしまう 
なかなか危険な出来です。 BGM のノリもま 
ずまず。ただスマートなプログラムに合っ 
た，もっと飛び抜けたキャラクターデザイ 
ンがほしかったところですが， PC -8801 版 
とのデータ互換など細かな配慮もうかがえ， 
思わずうれしくなります。 

熱中度 ►►►►►►> S . N . 

▼俺が愛したゲームたち。数々のキラメキ 
を見せながら……，タイムシークレット，サ 
ザンクロス，ザナドウ，東京ナンパストリ 
一卜。そして，毛色こそ違うが，このウイ 
バーン。もしかしたら……本物!？ 

本格的といえば，あまりに本格的してい 
争迷路内での動き，これだけですでに「世 
赤」傍点付きを感じてしまう。3通りの変 
形なんてもうどうでもよい。とにかく迷路 
が連続で動き，しかも本格的 RPG ときた。 
パッカ野郎，てめ一ら俺の前に立ちふさが 
るんだな？ いいんだな？ 

目標がわからないこのゲーム0ではなん 
のために？ 努力とは？ 苦しみとは？ 
そして私は……。やはり久々の大物と思っ 
た。グラフィック，効果音，ストーリーの 
深さ，こいつは遊べるフアンタジアン。 


ザ•スクリーマー | 

コミックとコンピュータ RPG が合体した意 
欲作として話題をまいた作品。ゲーム内容 
も一線を越えているようだ。 

▼パッケージはどう見ても本で，開けてみ 
るとやはり本である。これはマンカ、、付きソ 
フトなのである0マニュアルはけっこう分 
量があり，本格的 RPG の感触だ。マンガを読 
んで，気分を盛り上げたらスクリーマーの 
開始である。手持ちの金で武器を買い，化 
け物退治に BIAS へと赴く。 BIAS の内部は 
3 D 迷路になっていて，方眼紙なしでは道に 
迷ってしまう。しかし，ぞろぞろと化け物 
が出てくるのでマッピングは大変である。 
化け物との戦闘はリアルタイムゲームにな 
っていて，まさに売れ線狙いである。首尾 
よくしとめた怪物の首がたまったら外に出 
て，首屋に戦闘結果を見せて賞金をもらう。 
金がたまるまではこの繰り返しである。そ 
のうち，レベルも上がり，武器も防具もよ 
くなり，情報も集まってくる。全体として， 
正統派の S F ロールプレイングという感じ 
で，結構楽しめるゲームとなっている0 
熱中度 ►►►►►[>!> M.Y. 

▼とんでもね 一， と思った。あまり大声で 
はいえない力す，「私は会話することができな 
い！」のだ0このゲームは RPG なのに，私 
はここでハマってしまった。あ一情けない。 
遺伝子操作によって怪物ランドと化した B 



コツとしては敵に合った武器を使うこと。 
では君ら の 幸運を祈る。根性が必要なんだ 
よ。 FM 音源で遊んでる場合じやない。 

熱中度 ►►►►►►> K . S . 

Xl / Xlturbo 用 5 D 版 6,800円 

アルシス ソフトウェア 00956(22)3881 


IAS へ， スクリーマーとなった若者が乗り 
込んでいくという物語。気味の悪い怪物く 
んが迷路の中を歩きまわっているわけだが, 
それらの首を首屋へ持ってい〈ことによっ 
て賞金がもらえ，装備もよくなっていく。 
これこそ労働の基本理念だ。汗水流して戦 
うことは素晴しい。 

ただせっかくの美しいグラフィックも， 
戦闘モードに入るとシラケてしまう。“モン 
スターが出た！”というシーンのままでア 
クシヨンすれば上出来だったのではないか， 
と思う。それ以外ではマイナスとなること 
はなにもない。ただ面倒くさいことは，街な 
か用のディスタと BIAS 用のディスクを差 
し換えることぐらいだろう力、。 

熱中度 ►►►►>>> R . S . 

Xl / Xlturbo 用 5 D 版 7,800円 

アスキー 003(486)8080 



評価 グループ 

有田隆也浅野惠造祝一平エ 
藤誠挙市哲司こうもとやすひ 
こ古村聡小森隆近藤弘幸 
斎藤晋斎藤亮佐藤友彦佐藤 
学清水和人白河哲武沢英明 
立花かおる中川智哉中野修一 
堀内保秀茗原秀幸山本信 
吉田幸一 



a/w 
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ワープロの拡張利用に 

SUPER 春望 

rachibana Kaoru 

立花かおる 


数々の話題をまいた SUPER 春望が，い 
よいよシャープ系のマシンに登場した。ま 
ず Xlturbo 用がこのほど発売され， MZ- 
2500用も開発中という。前口上をみると強 
力な日本語入力機能，編集機能を持ち，さ 
らに段階的にカード型データベース機能， 
グラフイック機能，通信«能まであるとい 
う。ここまでくれば，もうなにもかも詰め 
込んだという感じのハイハ。フオーマンスな 
製品だ。 



基本仕様 

文書のサイズは最大4800文字で，これは 
標準 A 4 判用紙にして，だいたい10枚ほど。 
もちろんページに区分できる。 320 K バイ 
トフロッピーデ、イスタを文書デ'イスクとし 
て使ったときは最大で64文書まで登録でき 
るという。 

ただし，ここで要注意なのは，いわゆる 


「口 ー ルペーノ、。一」方式ではなく，1ページ 
ごとをディスクから呼んでくる方式である 
ところ。したがって，前のページの下の行 
を見ようとしても，そうはいかない。いち 
いちロード/セーブしなければならないの 
である。うっかり行挿入なんかしたらその 
行数だけ消滅してしまう。これは，ま見代的 
感覚でいうワープロ以前の仕様であるとい 
わざるを得ない。 

辞書のサイズはメーカー登録4万語にユ 
—ザー登録5千語。使える漢字は JIS 第2水 
準漢字まで。文字のサィズは拉大が4倍角 
までで，縮小力_カナで4分の1角まで。 
デザイン文字は7種類のアンダーライン，15 
種類の網かけ，反転，3種類の郭線オー 
トタブ機能……など。 

さて，この文字デザイン处理や文書編集 
機能についてはまずまずなものを持ってい 
るので，日本語処理機能について言及して 
みよう0 


印字例（使用プリンタ AR - 2400 +太ゴシック体力ートリツジ，縮少率74%) 


O M / M Z 仮面舞踏会 

開催のお知らせ 


1 ) 日時 . 9月18日（木） 

2 ) 場所 . 日本武道館が使えればいいネ 


3) 参加«格 •• •〇 h / MZ を読んだことのある人であればどなたでも 

4) 内容 . 露^^と设_'鎌_を前にして、これからの日本 

の未来を語り合おうといラ、まつだ<仮面舞踏会とい 
う内容を無視した誰にでも楽しめるパーティです。お 
暇な方はふるってご#加<ださい。 




日本語入力機能 


日本語入力のために，①重文節変換，② 
自動逐次文節変換，③ワンタツチ複合変換 
と3種^もの漢字変換が用意してあること 
がセールストーク 0 しかし，よくよく見て 


みると，いずれも JET やユーカラと同じく 
最初から順に文節を認識して変換していく 
逐次変換方式だ 。 

感想をあえていわせてもらうと，生®勺 
に好きになれない。変換は0キーで無変換 
がスペースキーだからだ。しかも IXFERI 
には別の用途があるので，うかつには押せ 
ない。読者自身がご存じだと思うが，これ 
は世の中の流れとは逆0だからいけないと 
短絡的にいっているのではない，具体的な 
根拠もあがっている。 

まず，ひらがな一ひらがな/カタカナ変 
換が極めて弱い。なかば致命的とさえいえ 
る欠陥だ。つまり「このほんは」をそのまま 
文節と認識して「この本は j に変換してくれ 
ない。昨年以降に開発されたソフトとして 


はあるまじきこと。この角毕決策としては非 
常に初歩的な方法である辞書登録をするし 
かない。いくぶんかは基本辞書に登録され 
ているようた^が'，なにせ「この」，「その」， 
「あの」などの接頭語がない。 

ひらがなでさえこの始末でありカタカナ 
になると，もう言語道断ものである。コン 
ピュータもなければソフトウェアもない。 

し力*もこれが変換対象にならなければまだ 
しも，ごていねいにもカタカナもちやんと 
漢字になる。ああ……。 

ほかにもいろいろと，使いにくい点があ 
るので列言己してみると， 

①スペースは無変換キーであるにもかかわ 
らず，変換作業中は「次候補選択キー」にな 
るのでややこしい。②変換対象文節を短 IS 
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したり伸ばしたりすることは基本的にでき 
ない。®^り物の APAX を使うと間違った 
漢字に自動変換されてしまうことが多い。 
④よく使う記号がキーボードには配置され 
ておらず「特殊文字 I 旨定」というファンク 
ションキーのなかにツリー状で階層的に納 

められており探しにく I . などなど。 

はからずも欠点ばかりを指摘してしまっ 
たが，欠点は気にせずに前向きに利用しよ 
うという人のために，私が発見した「使い 
こなし術」を以下に説明する。 

1) まずはきりのいいところまで，ひらが 
なで一括入力し，カーソルを頭に戻す0 
間違っても APAX は使わないこと。 

2) 右手人差し指を | — | に，中指を P 1 に， 
左手小指を I CTRL I に，人差し指を圍 
に，親指*をスペースキーに置く。これは 
私の場合だが，要するに両手の動きを最 
小限にするためで，各自で工夫するよう 
に。 

3) 文頭から順に！"を押して，ひらが 
なをなぞり短く处理していく。ひらがな 
のままならスペースキーを，漢字に変換 
するならを，カタカナにするなら， 
[5 T 5 E 1 +[ X 1 を押す。コッは文節変_ 
能をアテにせず，なるべく単語単位でこ 
まめに変換していくこと。 

の轉を繰り返していくと，なんと 
か文書作成ができる0 
ちなみに自動変換 APAX だが，文章に使 
用する単語の f 憩頁が極めて限られている場 
合には効果的だ。だから学習機能を相当使 
い込んだ'うえで、，ユーザー辞書も整備し， 
特定の目的に使い込んでいこうというので 
あれば実用的であろう。ただボキャブラリ 
一の豊富な人や，カタカナ技術用 S 吾の多い 
場合などは誤変換がかなり発生しそうなの 
で，住所録定型的な社内回覧文，法律文 
書など専門用語が多く使われる場合に向く 
といえよう。 



3種のソフト 


さて， SUPER 春望は本題のワープロソ 
フトにカード型デ、ータベース，グラフイツ 
クツール，ターミナルソフトの3種類をバン 
ドリングして，情報検索，作画，通信の3用途 
を導入し，ワープロソフトの抗大展開を図 

つている。 

日本マイコン販売，東海クリエイト，管 
理工学研究所といったワープロの“老舗企 


業”でもようやくになって，統合型ソ 
フトを目4•旨したワープロの多角化に着手し 
たばかりだから，¥斤規参入でこの取り組み 
姿勢は立派とさえいえる。 

ただ，今回の製品を見た限りでは，いず 
れも本体ワープロソフトとのデ、ータの共有 
化，すなわち「統合化 j は最小限しかでき 
ていない。このあたり，急いで開発した商 
品だからか，十分な対応がなされたとはい 
えないだろう。具体的には以下の3種のソ 
フトの紹介のなかで説明する。 

カー ド型 データベース 

始めに項目を設定してから，入力/登録 
し，それを閲鼠検索，修正，削除する。一 
応は複合検索もできるし，並べ換えも可能0 

統合イ職能としてはワープロで文書作成 
中に，指定した位置に検索したカードの情 
報を張り付けたり，印刷時に差し込み印刷 
できる点があげられる。 

しかしビジネス用として活用するにはデ 
ータベース機能が弱い。作表ができないし， 
リレーショナル機能である項目の抽出，合 
成などはできない。 

デービーソフトではその昔 ， 「NEW VIP 」 
というカード型データベースを販売してい 
たが，いってみれば今回のデータベースは 
NEW VIP をシンプルにしたものといえ 
そうだ。 

グラフイックツール 

マウスを使って描画し，描いた絵をディ 
スクに保管，あとで差し込み印刷するソフ 
卜。3種のなかでは一番使えそうな感じだ。 
マウスをサポートしているし， 抗大モ ード 
でのドット単位の描画，タイルペイント表 
示の中間色による塗りつぶしなどなかなか 
の機能がある。難点はマウスの動きがのろ 
いことと，着色/色変更力 5 '®倒なこと0 

統合化については，40桁 X 12 行までの文 
字列を画面に合成できるので，まずまず。白 
黒/カラーモードともあり，カラー画像はデ 
モで，白黒酿は印刷で活用できそうだ。 
ターミナルソフト 

全二重300ビット無手順で，7ビットまた 
は8ビットノンパリテイの選択式。通信ビッ 
卜数や漢字コードなど6種類の項目をセッ 
卜したあと，カブラと電話機を接続して， 
通信相手は商用データべースやパソコン通 
信 サービスに アクセスし，通信できる。文書 
ファイルのアツプ/ダウンロードも可能で， 
ダウンロード文はワープロ文書として加工 
できる。このアップ/ダウンロード文は文書 


SUPER 春望どうしでネットワーク 
デービーモデム I M -300 

IM -300 は，全二重通信方式 （300 bis / s ) に 
よる多機能なモデム。自動発着信 （ AA ), 手 
動発信自動着信 （ MA ), 手動発着信 （ MM ) 
が可能であり，電話の相手が人間かコンビ 
ュータかを自動的に判断して，電話機また 
はコンピュータに回す「特殊着信モード」を 
始め，インタフェイス信号を容易にモニタ 
する発光ダイオードランプなどさまざまな 
特長がある。 

そして， SUPER 春望どうしの通信に利用 
すれば独自の機能を生かしたクローズドネ 
ットワークが作れる。センター（情報提供 
者）側， ユーザー (情報利用者)側の設定が 
自由にでき，旧，パスワードの設定ができ 
るなどブライベートなバソコン通信に利用 
できるというものだ 29,800円 


エリアメモリをそのまま利用するので'，欠 
点としては1アクセスで1文書しかアップ 
/ダウンロードできないことだ。今後，改 
善が望まれる。ただ統合能自体は悪く 
ない。 

011だが，ワープロソフトを軸に，各種 
のアプリケーシヨンソフトで統合化環境を 
構築していこうという狙いはいい。しかも 
価格が全部セットにしても50,000円程度と 
いうのは魅力的だ。 

とくに Xlturbo 用ということを考える 
とこれから各種の実用アプリケーシヨンソ 
フトを使っていこうとする人にはなかなか 
粒捕[いの“セットソフト”である。それだ 
けに，中核となる日本語ワープロとのデー 
夕共用化をもっと詰めてほしかったし，何 
よりもフロントプロセッサー形式で全ソフ 
卜に関与するワープロの日本語处:理機能は 
も う少し整備してほしいものだ。 


SUPER 春望 XI turbo 用 5 D 版 

くプライマリー〉 17,800円 

ワープロ+計算機能 
くビジネス〉 27,800円 

プライマリ ー+ ユーザー カード 
くクリエイティブ〉 34,800円 

ビジネス+グラフィック ツール 
くネットワーク〉 44,800円 

クリエイティブ+ターミナルソフト 
くネットワーク J 「> 19,800円 （10 月発売予定） 

デービー ソフト 001 1(251)7462 
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話題の GAME SOF ^ 

まず，ウィザードリィの MZ - 2500版がよう 
やく日の目を見ることになった。たし力*「噂 
どおり MZ - 2500用ウィザードリィが発売とな 
る」と書ぃたのが2月号だからはや半年，た 
ったぃま MZ - 2500という シールの 貼られた パ 
ッ ケージが編集室に届ぃたところなのだ。 ふ 
たを開けるとちゃんと 3.5"2 DD のディスタが 
入ってぃる。しかも立ち上がるとちゃんと夕 
イトルが出る“ウイザードリイのせかぃによ 
うこそ”とぃうわけで，めでたしめでたし。 

さて， MZ - 2500用ではまもなくレイドック 
が10月ごろの発売予定となって ぃる。 ティー 
アンドイー ソフ トが グラフィ ックに命を賭け 
て開発した MSX 2用の目玉商品で，広告どお 
り魅せてもらっちゃった人もぃるだろう。 MZ - 
2500は MSX 2 と同じく 256色モードがあって， 
しかもスクロールは得意中の得意であるから， 
これは期待が持てそうだ。また， FM 音源を 
利用した BGM も10曲ほど用意されてぃるとぃ 
う。また，ハイドライド II も発売となったし。 


このほかにも ， ABYSS II 帝王の涙，夢幻の 
心臓 II と大作が続くが， MZ - 2500が一番に発 
売されるソフトもある。ホット•ビイのムーン 
チャイルドがそうたフアンタジッタな RPG 
で，作ったキャラクターを友人と交換したり， 
2人で同時にプレイできる“マルチプレイモ 
ード”もあるという意欲作。設定資料を見る 
かぎり内容もユニークでとても楽しみである。 

次に Xl/Xlturbo シリーズだが，“あの”が 
3つぐらいつきそうなスーパーマリオブラザ 
ーズの移殖版スーパーマリオブラザーズ“ス 
ぺシャル”が発売された〇広告では Xlturbo 版 
となっていた力 ? X 1/ C / F/G でもジョイスティ 



夢幻戦士ヴァリス 


ックかジョイカードがあればちゃんと動く。 
ただし残念なことにかなりスピードがひどく 
てマリオのおじさんも元気がない。まつ，し 
かたないか。 

今後 Xl/Xlturbo で期待できるのは，ラグ 
ランジユ L -2 のパート2 “ D - SIDE ”， そして日 
本テレネットの最新作“夢幻戦士ヴァリス” 
はビッグスケール （ 1ステージ 32 X 32 画面） 
のアクション ゲーム だ。また，日本 ファルコ 
ムの最新作“ロマンシア”と“ザナドウシナリ 
才 II ”も気になるところだ。えつ，ブラステ 
イーが発売されたって？というところで次 
号へ0 



スーパーマリオフラザーズ“スペシャル” 


Z 80 アセンブラ開発セツト 

MR-ASM/MFHD 


Z 80 の時代 

CP / M でマシン語の勉強をしようと思う人 
は8080の ニーモニッ クでプログラムを書き， 
デバッグすることを余儀なくされます。とこ 
ろ力す，マシン語の教科書にしても ， Oh ! MZ 
などのパソコン雑誌にしても，私たちが8080 
の ニーモニック にお目にかかることはまずあ 
りません。ほとんどは Z 80 の二ーモニックで 
記述されているからです。実際，私たちのパ 
ソコンの中に入っている CPU は8080ではなく 
Z 80 なのですから，それはもっともなことで 
す。ですから，もともとは8080のために開発 
された CP / M とはいえ，いつまでも8080の二 
ー モニックに 付き合わされるのはまったくも 
って迷惑な話です （ Z 80 のオリジナル命令は， 
ASM ではアセンブルできないし， DDT では逆 
アセンブルできない）〇 

もっとも，現在では CP / M 用の Z 80 アセンブ 
7 ( Macro -80), Z 80 用のデバッガ ( ZSID ) 

も発売されていますが，それらは目の玉が飛 
び出すほど高価です。 CP / M でちょっと遊ん 


でみようかといった軽い動機で買うようなも 
のではないでしよう。 

そこで MR - ASM と MR - ID 

これまで，安価な Z 80 アセンブラとしては 
ワンダーソフトの Small - Mac パツケージのア 
センブラがありました力 ? ，これは Macro -80 と 
同様なリロケータブルなアセンブラですから， 
CPU への負荷が重く （ Smal 卜 C で記述されて 
いたことも手伝って），リンクの手間までを考 
えると，あまり高速なものとはいえません。 
リロケータブルでなくていいから， CP/MO 
ASM のような“軽い”アセンブラが欲しかっ 
たところです0 ASM の出力はへサキファイル 
ですから，ロードによって実行形式に変換し 
なければなりませんが， DDT を用いればヘキ 
サファイ ルの ままでもデバ、ッグができてしま 
います（ロードの手問が省ける）。 

今月，アーマットから発売された Z 80 アセ 
ンブラ MR - ASM と Z 80 デバ、ツガ MR - ID のセ 
ットは，そういう要求を満たしてくれるもの 
なのです。それぞれは ASM と DDT に対応する 


ソフ トウ エア ツールですが， MR - ID のほうは， 
DDT よりも1段上の ZSID に対応したシンポ 
リックデバッガになっていて私たちを喜ばせ 
てくれます。気になる値段は2つのセットで 
12,800円ですから，まあお買い得といえるで 
しょラ。 

アセンブラ MR-ASM 

M R-ASM はプログラムが Z 80 のニーモニッ 
クで書かれることを除けば， ASM と同じ機能 
を 持っています。 ASM 力す Z 80 で記述できるよ 
うになったものと思って差し支えありません。 
つまり，プログラムは MR - ASM によって ヘキ 
サ形式のファイルに変換されます。私たちは 
それを ロードに よって実行形式の プログラム 
に 変換するというわけです。 プログラムの 書 
き方は Macro - 80の書き方と同様で，標準的な 
Z 80 アセンブラの 記述です ( Macro - 80 のプロ 
グラムを ほとんどその ままアセンプノ <きる） 
から， 誰でもす ぐプログラムを 作ることがで 
きるでしょう。 

MR - ASM に特徴的なこととしてはシフト 
JIS 方式のカナ，漢字をサボートしているこ 
とが挙げられます。このためコメントに漢字 
を入れてもアセンブラが発狂することはあり 
ませんし， DB 命令で文字列の中に漢字を埋め 
込むこともできます（ラベルには漢字は使え 
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ランゲージシリーズ MZ - 卩500/ 

シャープから， MZ - 2500用のランゲージシ 
リーズが発売された。これらは XI ランゲー 
ジシリーズと同じくライフボートの a シリー 
ズのシャーフ。フ、'ランド版で， FORTRAN ， C ， 
COBOL , LISP , PROLOG の5種類 0 いずれ 
も 3,5"2 DD 版で， P - CP / M 上で利用できる。各 
種言語に関心の高い MZ - 2500ユーザーにとっ 
てはじつにうれしいことである。 

FORTRAN IP -1213 
C IP - 1214 
COBOL IP -1215 

LISP IP -1216 いずれも 3.5 D 版 

PROLOG IP -1217 各13,800円 

シャープ 006(621)1221 


新作ソフト情報 


•ウィザードリィ 

ファンタジー RPG の大御所ともいえるウィザー 
ドリィの MZ-2500 版。皆さん，お待たせいたしまし 
た。ぜひとも挑戦してくださいませ。 

MZ- 2500用 3.5D 版 9,800円 

フォーチューン 003(667)2707 

争八イドライドII 

ハイドライドに引き続きハイドライドIIも MZ- 
2000/2200/2500版が発売となった。 RPG として一 


段とパワーアップした本格派を楽しもう。 MZ-2000 
のグリーンモニタにも対応している。 

MZ- 2000/2200用 5D 版 6,800円 

MZ- 2500用 3.5D 版 6,800円 

ティーアンドイーソフト 0052(776)8500 

•スーパーマリオブラザーズ“スペシャル” 

ファ ミコンでお馴染みのスーパーマリオの大冒 
険。ピーチ姫を救い出してキノコ王国に平和を取 
り戻せ。 

X1/Xlturbo 用 5D 版 6,800円 

ハドソン S0I 1(841 )4622 

參は〜りいふぉっくす雪の魔王編 
母を失った悲しみをのり越えて，子ギツネは町 
へ旅立った。1年前，子ギツネを救ってくれた少 
女の名はマリ。雪の魔王の謎を解きマリさんを救 


い出せ。 

Xl/X1turbo 用 5D 版 7,800円 

マイクロキヤビン 00593 (51 )6482 

參ドルアーガの塔 

ド ルアー ガの塔のXI/XI turbo 版がついに発売さ 
れた。さらに洗練されたグラフィックに，楽しい 
アイテム，意地悪な設定，そしてお得な裏ドルア 
—ガなど数々の話題をまいた名作。さあ，君にも 
カイの呼ぶ声が聞こえるはずだ。 


X1/X1turbo 用 

電波新聞社 

參エリカ 


f5D 版 6,000円 

1 T 版 3,800円 

003(445)61 I I 


SF 感覚のアダルトアドベンチャーゲーム。悪の 
組織“ブラックシャドウ”に立ち向かう君の運命 
は美少女エリカにかかっている。ディスク版には 
隠れキャラもたくさんあるぞ。 



デイーバ”イメージイラスト 


ディーヴァ最新情報 

ティーアンドイーソフトの新作“ディーヴァ” 
の製作発表会が9月3日に行われた。ディーヴァ 
はシミ ユレー シ ヨン ウォ ー ゲームを リアルタイ 
ム化した新しいコンセプトの大作である。その 
最大の特長は，壮大な宇宙を舞台とした7つの 
サブストーリーからなり，それぞれが7つの機 
種 （X1/XUurbo, PC-8801 SR, FM-77AV, MSX, 
ファミコンほか）に割り当てられ，それら全体 
がディーヴァの世界を構成するというものだ。 
また，各自の戦力状況を表すパスワードによっ 
て異機種の ゲームに 参加することもできるのだ。 
X1/X1turbo 用（ニルヴァーナの試練）の発売予定 
は11月末の見込み。予価7,800円 

テイーアンドイーソフト 0052(776)8500 


Xl/X1turbo 用 
ジャスト 


|5D 版 6,800円 
1 T 版 4,800円 
S03(706)9766 


ない）。また，日立の HD 64180という， Z 80 に 
ア ッ バーコンパチな CPU に新設された拡張二 
ー モニック もサポートしていますが， Z 80 マ 
シンにとってはどうでもいい機能です。個人 
的には6文字以上の長さのラベルも区別して 
くれる （ Macro -80 は6文字までだったので） 

ことが気に入っています。 

ところで， ASM に対応している MR-ASM 
にはマクロ機能はありません。そんなものを 
入れてアセンブラが“重く”なることを避け， 
あくまでもシンプルさを保っていることが魅 
力といえるでしょう。 

デバッガ MR-ID 

MR - ID は DDT の機能を大幅に拡張したデバ 
ッガです。そのためか， DDT でのコマンドは 
すべて，そのまま使用することができるよう 
になっています0逆アセンブルはもちろん， 
Z 80 のニーモニックで出力されます。このと 
き，画面にはどういうコードを逆アセンブル 
したか，そのコードも一緒に出力されるので 
便利です（この機能は ZSID にもない）。また， 
トレース時のレジスタダンプは裏レジスタの 
値まで表示されます（当たり前ですが)。ブレ 
—クポイントは， G コマンド以外でも，あら 
かじめ指定してアドレスによって4つの場所 
に設置することができます。 


そして，なんといっても特徴的なコマンド 
は C コマンドです 0 これは プログラムをトレ 
ース する T コマンド（このコマンドもある） 

と似ていますが，コール命令で飛んだ先は卜 
レースしない（実行はする）点が異なってい 
ます0ある サブルーチンをいくつかつなげて 
プログラムを作る場合，すでに完成されてい 
るサブルーチンの中までトレースするのは無 
意味ですし，プログラムの全体の流れを見失 
ってしまう危険性もありますから，プロダラ 
ムの幹の部分だけをトレースするコマンドは 
貴重なのです0また，ヘルプコマンドを設け 
る心遣いも感心します。 


のなかったアセンブラ （ ASM ) とデバッガ (D 
DT ) ですが， MR - ASM と MR - ID の出現によ 
って，その役割を終えてしまったようです。 
これで， Macro -80 と力 ' ZSID とかいったツー 
ルをわざわざ使わな く ても CP / M でマシン語 
( Z 80) の利用する環境は十分揃ったといえ 
るでしよう。 S - OS の ZEDA もいいけど ， CP 
/ M でマシン語の勉強はいかがですか。いい 
忘れましたが，大人数で大規模なプログラム 
を開発する場合は，リロケータブルで高機能 
な“重い”アセンブラを使ったほうが効率が 
いいということを付け加えておきます。 

* * * 


さて， MR - ASM が DDT と決定的に違うの 
はアドレスをもとのプログラムに書いた ラべ 
ルで指定できること（アセンブル時に作られ 
るシンボルフアイルを利用する）です。これこ 
そシンボリックデバッガの本領発揮といった 


Z 80 ニーモニックを 覚えて いる ものは幸せ 
である。われわれはその記憶を持って CP/M 
に接したのにもかかわらず，8080 ニーモニッ 
クしか使うことのできない性を負わされた。 
それ故に アーマッ トの作ったこの ソフ トを伝 


ところで，あるサブルーチンやデータ領域の 
アドレス（おそらくはアセンブルするたびに 
変わるだろう）をいちいち覚えていなくても 
名前を指定するだけで逆アセンブルや実行， 
メモリダンプができるということは思ってい 
るよりずっと便利なことなのです。 

さらば ASM よ DDT よ，そして 

CP / M を買っても，ほとんど利用すること 


えよう。 


(向原あゆむ) 


CP/M-80 版 
XI/XI turbo 対応 
5D 版 12,800円 

アーマット 

3045(911)7427 
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Aoki Minoru 

青木実 


コンピュータや映像技術を使った立体視の技術は未知の空間へのインタフ if スとい 

える 韻しょう。ここでいう立体視とは，まさに立体的に見えるもの . で，今月から 数 

回に わたって本当の立体画像を追求してみましよう。まずは赤青メガネの登場です。 


立体視の魅力 

遠い宇宙の彼方の出来事，肉眼では見る 
ことのできないミクロの世界など，私たち 
が見た こ とのない未知の世界に ついては， 
ぜひとも3次元の立体像としてとらえてみ 
たいものです。 

1976年に火星に着陸したバイキング1号， 
2号には，それぞれ2台のカメラが積み込 
まれていました。もちろんこれは立体映像 
の撮影のためです。古くは初めて月面に人 
間が降りたアポロ計画の宇宙飛行士も立体 
像の撮影をして帰ったといわれ，最近では 
チエルノブイリの原発事故を撮影して有名 
になったフランスの地球観測衛星 SPOT (ス 
ポット）でも立体画像の撮影が可能となっ 
ており，この画像は今年から日本でも入手 
できるようになっています。 

一方，プロテインエンジニアリング（夕 
ンパク質工学）といって，タンパク質の合 
成シミュレーシヨンにも，コンピュータに 
よる立体視の技術が実体グラフィックとし 
て活用されています。分子の立体的な並び 
方が合成のカギを握っているからです。ま 
た電子工学の分野でも，集積回路の超 LSI 
化が進んでいますが，最近ではこれをさら 
に進めて，平面的に作られている超 LSI 素 
子を立体的に積み重ねた3次元回路素子 (3 
dimentional integrated circuits) で-集積度 
を高める回路素子の開発が行われています。 
また，通信衛星，放送衛星時代を迎え，電 
子回路も立体回路が使われているのです。 
48 Oh!MZ 1986.10. 


このように，コンピュータや映像技術を 
使った立体視の技術はさまざまな高度先端 
技術で応用されているのです。 

そして，科学万博——筑波’85。立体視を 
利用した多くの映像ショウがありました。 
立体というよりは，もうその空間の中に自 
分が入ってしまったかのような臨場感。ご 
覧になった皆さんならおわかりだと思いま 
す。 

赤と青のセロハンを使ったメガネなら昔 
から知っていることと思います力 ? ，偏光フ 
イルターと力 1 ，液晶 シャツ ター方式とか呼 
ばれるものも，基本的には人間の両眼視差 
を利用したものに変わりはありません。た 
だ，立体のコンピュータプログラムについ 
て多少でも勉強した人は，なんだか最初か 
ら3次元の座標が2つも3つも出てきたり， 
sin 沒だのマトリツクスだのが出てきて，立 
体は難しいものだと思っている人も多いよ 
うです。 

この連載では，赤青メガネを使用するも 
のから フルカラーの ものまで， コンピュー 
夕による立体像の作り方や加工の方法など 
を紹介していきたいと思っています。まず 
第1回目の今回は，お馴染みの赤青メガネ 
を利用した立体視のプログラムをいくつか 
用意しました。いずれも基本的な内容です 
ので，これらの考え方をしっかりと理解す 
れば，立体プログラムも“フツー”の感覚 
で書けるようになると思います。立体ゲー 
ムを作ったり，3次元のデータをグラフに 
したり，立体のアイデアを立体像にするな 
ど，いろいろな利用の可能性が開けると思 
いますよ。 


立体視のしくみ 

先ほど両眼視差という言葉を使いました 
が，ここでの立体視というのは，両眼視差 
(Binoculer parallax) による立体視 (Stere 
oscopic vision) ということになります。 

人間には左右2つの目があって，ちよっ 
と離れて ついている ため，それぞれの目に 
よって見ることのできる像にはズレが生じ 
ます。これが両眼視差というもので，遠く 
の物体ほどこのズレは小さくなりますが， 
近くの物体を片目ずつ閉じて見てみれば違 
いがわかるでしよう。人間はこの両眼視差 
によって遠近感を得ることができるのです。 

まず，図1は水平面にある2 点 P U P2 が 
網膜に結像する様子を簡単に示したもので 
す0次に，図1の レンズ （水晶体）を写真 
の レンズ， 網膜を写真の フイルム Pl (左）， 
Pr (右）に置き換えると図2のようになりま 
す0ここで 凸レンズは， よ〈知られている 
ように反転した像となるので，左右の像を 
それぞれ A - A ’， B - B ' を中心に反転させる 
と フイルム Pl _ Pr 上に Pi，P2 の 像が RlP’ir 
と Pk，Ph のペアの像として得られます。レ 
ン ズの 中心と P’ 1L ， P’lR または P2L, Pk を結 
ぶと Pi，P をと いう 点が求 まり，こ れは C-C： 
面に対して Pl，P2 と対称の位置にあること 
がわかるでしよう。 

そこで，この2つの レンズと 像の関係を 
利用して立体撮影のしくみを表したものが 
図3，図4です。図3は写真機やテレビカ 
メラで写す場合で，基準面を図のように設 










定して点 Pu P 2 が2次元のイメージとして 
撮られると，基準面より遠い Pi の場合は左. 
カメラの像 PlL が右カメラ像 PlR よりも左に 
なり，逆に基準面より手前の P2 の場合，左 
カメラの像 P2L は右カメラの像 P2R よりも右 
となります。これを CRT やスクリーン面に 
置き換えたものが図4で，右カメラの像 P 
1R，P2R を 右目で，左カメラの像 PlL ， P 2 L を 
左目でそれぞれ見れば， Pi はスクリーンよ 
りも奥に， P2 はスクリーンよりも手前に見 
えるというわけです。 

さて，実際に立体像を得るためには，右 
カメラの像は右目だけで，左カメラの像は 
左目だけで見るように工夫しなければなり 
ません。今回の赤青メガネを使用する方法 
はアナグリフ （anagliph) と呼ばれる代表 
的な立体視の手法です。簡単に説明してお 
くと， CRT には，右カメラの像は青色で出 
力し，左カメラの像は赤色で出力します。 
これを右に青，左に赤いセロハンを使った 
メガネで見るわけです。右目の青いセロハ 
ンは赤い光を吸収してしまうので赤い左力 
メラの像はまっ黒で見ることはできません。 
同様に左目の赤いセロハンも青い光を吸収 
して青い右カメラの像は見えないのです。 
ただし，白い紙の上に赤と青で印刷された 
ものを見るときは赤い色は青いセロハンで 
黒く見え，青い色は赤いセロハンで黒く見 
えるため，像の手前と奥が逆転してしまい 
ます。アナグリフ方式ではカラーでの立体像 
は望めませんが，奥行き•の感じは左右の像 
の位置の差によって変えられるので，立体 
視の入門用としても適していると思います。 


立体像のプログラム 

さて，アナグリフでは赤青のそれぞれの 
像をどちらかにずらすと，奥行き感が変わ 
ることがわかりました。この簡単なことを 

立体感と立体視 

平面上に立体感のある画像を表現するため 
にはさまざまな手法があります。図法によっ 
て遠近感を表現する透視図法を初め，光と影 
によって立体を表したり，色やタッチを変え 
たりなどの工夫がなされています。しかしそ 
れらは，遠くのものほど小さく見えるとか， 
物体に光が当たるとどのように見えるかなど， 


立体視のしくみ 




プログラム すれば，立体像が得られるわけ 
です。 

それでは皆さんに立体像を実際に体験し 
ていただ〈ために，赤青メガネで見るアナ 
グリフ方式の立体像のプログラムをご紹介 
しましよう。いずれも， HuBASIC で書か 
れています。XI turbo BASIC の場合は， 
実行時に25行モード (WIDTH，25) にしてく 
ださい。 

♦リスト1“ヒコウキ” 

これは，飛行機が飛んでいるところをさ 
らに上空から見たものです。どうですか？ 
飛行機が下の道路や建物のはるか上空に見 
えてなかなか感じが出ているでしよう。原 
理は簡単，上に見えるものほど左，右すな 

ふだん私たちが立体的にものを見ている経験 
から，遠近や凹凸を判断しているにすぎませ 
ん。私たちが絵や画像に立体感を感じるのは， 
それが立体であることをはじめから知ってい 
るからなのです。 

これに対して，ここで紹介する両眼視差に 
よるものは，日常の経験が適用できないよう 
なものでもちやんと立体像として見ることが 
でき，まさしく立体視ということができるの 
です。 




わち赤と青のズレを少しずつ大きくしてい 
るだけなのです。 

♦リスト2 “オホシサマ” 

リスト1の原理を使って，ちょっと凝った 
絵を描いてみました。夜空のお星様です（何 
かキー入力があるとプログラムは終わりま 
す)。星は人間の目の間隔に比べて無限に 
遠い距離にあるため，本当はこのデモのよ 
うな立体感はありません。もし，このよう 
な立体感がもてる人がいたとしたら，その 
人の右目と左目の距離はじつに数光年〜数 
百光年もあることになるのです。でも，美 
しい星座がこのように見えたら，大昔から 
の人類の夢である宇宙は，より神秘的にな 
りませんか？ 

それから，リスト1，2は次回説明する 
肉眼立体視のために，プログラムを終了さ 
せて， HCOPY(l)，HC0PY(2) で青（右）の 
絵と赤(左）の絵を別々にプリントアウトし 
ておいてください。どのように使えば肉眼 
で立体像が見られるかは次回のお楽しみで 
す。 

さて，ここまでくると何かものを動かし 
てみたくなったでしよう。それも簡単です。 
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參リスト 3 “ヨコイドウ” 

PATTERN 文を使って四角のものを左右 
に動かしてみました。近くに見える四角は大 
きく動きが速く，遠くのものは小さく動き 
が遅いため立体感が出ています（キーを押 
すとプログラムは終わります)〇 
•リスト4 “ウミ トカニ” 

これはリスト3の応用です。リスト3で 
は動くものをグラフィック画面に書いてみま 
したが，背景をつけようとするとものを動か 
すのが難しくなるので， PCG を使ってみま 
した。 PCG にカニやヨットを定義し（デフ 
チャーツールで作れば簡単）横に動かして 
います。少し動きが遅いのですが，スピー 
ドが必要ならこの部分をマシン語で作れば 
かなり速く動かせるはずです。挑戦してみ 
てください。 

♦リスト5 “カイテンウンドウ” 

これはリスト3，4の応用です。丸いキ 
ャラクタが奥行き感を持って回転している 
様子を表しています。プログラムを実行す 
ると，“ ハヤサハ？” 1 〜 3 (0 : END ) と 
表示が出ますので，1〜3のいずれかの番 
号と‘‘ CR ” を入力してください （3 がいち 
ばん速く回転します)。すると，物体が回転 
し始めます。スペースを入力すると，速さ 
を指定できる入カモードに戻ります。 

VH □で立体ビデオ 

シャープから昨年のエレクトロニクスシヨ 
ゥなどで出展されて話題を呼んだ， VHD 方式 
で立体映像が楽しめるアダプターとスコープ 
が商品化された。 

この 3D.VHD システムは，両眼視差の原理を 
利用したもので，家庭で本格的な立体映像が 
楽しめる初めてのものである。システムは， 

3 D 対応の VHD プレーヤーに， 3 D ビデオディス 
ク，立体アダプター，および立体スコープか 
らなる。 3 D ディスクには左右の映像が記録さ 
れており，立体アダプターから60分の丨秒の 
高速シャッター信号が立体スコープに送られ 
る。立体スコープはシャープめ開発した高速 


回転は円の方程式に従っており，それぞ 
れ視差を変えることにより遠近を表してい 
ます。少し工夫して手を加えればもっと面 
白い表現ができると思いますので，いろい 
ろ試してみてください。 

さて，リスト1〜5では，簡単に立体像 
を表現できる手法を紹介してきましたが， 
リスト6では，一般に3 D グラフィックと 
して広く知られているワイヤ フレームの 立 
体手法を紹介します。 

春リスト6 “リッポウタイ1” 

これは物体をワクのみで表現するワイヤ 
フレーム という手法で，立方体を描いたも 
のです。プログラムを実行すると，回転角 
度を聞いてきますので x ， y，z 軸に対する回 
転角度を入力してください。ただし， x 軸 
はディスプレイの横方向， y 軸は縦方向， 
z 軸は奥行き方向です。 

たとえば0， 0， 0と入力すると，真正 
面から見た立方体が表示されます。 

これも肉眼立体視ができますので，前（リ 
スト 2) で説明した方法でハードコピーを 
取っておくとよいでしよう。 

籲リスト7 “リツポウタイ2” 

これはリスト6の回転入力を自動にした 
ものです。 x ， y，z 軸が各々10°ずつ変わっ 
ていきます 

液晶シャッターが採用されており，左右の映 
像とスコープの左右の切り換えが同期して立 
体映像が得られるというものだ。立体スコー 
プはへッドバンド式で重さ180グラム。眼鏡 
をかけたままでも使用できる。 

また，日本ビクターからは 3 D ビデオソフト 
として，“ジョーズ3”，“13日の金曜日パート 
3" などを初め，年内に10タィトルほどが発 
売される予定である。 

立体 アダプター VO - U 40 20,000円 
立体 スコープ VO - U 41 13,000円 

以上，シャープより9月 I 日発売 
ジョーズ3 12,800円 

13日の金曜日パート3 12,800円 

VHD MOMOCO CLUB 4,900円 

以上，日本ビクターより9月発売 


♦リスト8 “キユウタイ” 

これはワイヤ フレーム 手法を使って球体 
を表現してみました。プログラムを実行す 
ると，球の半径を聞いてきますので，入力 
してください。リスト8も肉眼立体視が可 
能です。 

次のりスト9， 1 Q はアナグリフの手法で 
自由課題にチヤレンジしたものです0 
♦リスト9 “ブラツクホール” 

ブラッホールのイメージを，数学の幾何 
で有名なリサージュ曲線を使って描いてみ 
ました。 sin , cos によって計算させていま 
すので，描き終わるのに時間がかかります 
が，計算が終わると立体的なリサージュ曲 
線が浮かびあがります。 

原理はリサージュを構成する曲線の各点 
を8色で描いておき，行番号240〜280で各 
ドットの色をパレット変換で黒，緑，赤の 
順で出力しています。赤青メガネで見ます 
と，立体的に浮かびあがります。 

春リスト10 “ウチアゲハナビ” 

打ちあげ花火に挑戦してみました。 

行番号140で，ビル街を描いています。行 
番号190〜240で，乱数で花火を打ちあげて 
います。行番号250〜350で，3点の色デー 
夕を赤線で順次表示させ，立体的に見せて 
います。行番号360〜440は，花火の円弧デ 
ータを描き出すルーチンです0 

氺氺 * 

以上，立体のプログラムを10例ほど紹介 
しましたが，いかがですか。この手法によ 
ってすばらしい臨場感，実体感が加わるの 
です0えっ，リスト6〜8を見るとゃはり 
sin ， cos が出てくるじゃないかですって？ 
次回はそんな悩みを解決してあげましょう。 
これがあれば立体のプログラミングはいら 
ないという立体グラフイックツール“アナ 
グラフ”を紹介します。また，立体視でな 
ければ見えないようなサンプルも用意する 
予定です。 


リスト 1 “ヒコウキ” XI /XI turbo 


100 * 

101 ，本本ヒコ勹キ .L1 本本 
102 1 

110 INIT:WIDTH 40 : CONSOLE 0,25 : CLS4 
120 » 

130 ，本本本 PLOT 本本本 
140 ^OAD 

150 SCREEN ,,0 : COLOR 3 

160 LINE (140,0)-(140,120)-(0,120) 

170 LINE (0,140)-(140,140)-(140,199) 
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180 LINE (180,0)-(180,60)-(319,60) 

190 LINE (319,80)-(180,80)-(180,199) 

200 COLOR 7 

210 FOR N=0 TO 40 STEP 40 
220 X=115:Y=20+N 
230 "SQUARE" 

240 NEXT 
250 1 

260 FOR N=0 TO 80 STEP 40 
270 X=210+N:Y=30 
280 ”CIR." 

290 X=35+N ： Y=100 
300 "SQUARE" 

310 Y=170 
320 "PLANT" 

330 NEXT 
340 1 

350 X=250:Y=140 
360 ..POLY" 

370 X=150:Y=140 
380 "PLANE ，， 

390 * 

400 SCREEN ,,0 
410 A$=INKEY$(0)：IF A$=" 

420 END 
430 » 

440 LABEL "SQUARE" 

450 FOR 1=1 TO 2 
460 SCREEN "I 
470 X11=X ： Y11=Y 
480 X21=Xll-7:Y21=Yll+7 
490 X12=X11 + 12+12*(I-1): 

500 X22=X12-15:Y22=Y12+15 

510 LINE (X11,Y11)-(X21,Y21),PSET,B 

520 LINE (X12,Y12)-(X22,Y22),PSET,BF 

530 LINE (X11,Y11)-(X12,Y12),PSET 

540 LINE (X21,Y21)-(X22,Y22),PSET 

550 LINE (X11,Y21)-(X12,Y22),PSET 

560 LINE (X21,Y11)-(X22,Y12),PSET 

570 NEXT 

580 RETURN 

590 * 

600 LABEL "CIR." 

610 FOR 1=1 TO 2 
620 X1=X+(I-1)*10:Y1=Y 
630 SCREEN "I 
640 CIRCLE (XI,Y1),12 
650 PAINT (XI,Yl),1,1,2 
660 NEXT 
670 RETURN 
680 * 

690 LABEL "PLANE” 

700 FOR N=1 TO 2 

710 SCREEN ,,N 

720 X=X+(N-1)*20:Y=Y 

730 Xl=X-2: X2=X+2: X3=X+5 : X4=X-5: X5=X-15: X6=X+15 

740 Yl=Y+38: Y2=Y+8 ： Y3=Y+10: Y4=Y+13 

750 CIRCLE (X,Y),2,7,1,0,180 

760 LINE (X1,Y)-(X5,Y1)-(X6,Y1)-(X2,Y) 

770 LINE (X4,Y2)-(X4,Y1) : LINE (X5,Yl-7)-(X5,Y1) 

780 LINE (X3,Y2)-(X3,Y1) : LINE (X6,Yl-7)-(X6,Y1) 

790 CIRCLE (X,Y4),2,7,2 

800 PAINT(X,Y4),1 ： PAINT(X5+1,Yl-1),1 ： PAINT(X6-1,Y1-1),1 ： PAINT(X5+6 f Yl-l),1：PAINT 

(X6-6.Y1-1),1 

810 NEXT 

820 RETURN 

830 * 

840 LABEL "PLANT" 

850 FOR 1=1 TO 2 

860 SCREEN ,,1 

870 Xl=X-10 ： Yl=Y-20 

880 X2=X1 : Y2=Yl+40 

890 X3=X+(I-l)*8-4:Y3=Yl+50 

900 X4=X3 ： Y4=Y1-10 

910 X5=X+10:Y5=Y1 

920 X6=X5lY6=Y2 

930 LINE (X4,Y4)-(X1,Y1)-(X2,Y2)-(X3,Y3)-(X4,Y4)-(X5,Y5)-(X6,Y6)-(X3,Y3) 

940 NEXT 
950 RETURN 
960 » 

970 LABEL"POLY" 

980 FOR N=1 TO 2 
990 SCREEN ,,N 
1000 FOR 1=0 TO 3 

1010 X1=X+<N-1>»I 本 4-1 本 2 : Y1=Y ： Rl=40-I*10 

1020 POLY (X1,Y1),R1,7,60 

1030 POLY (XI,Y1),R1-1,7,60 

1040 POLY (XI,Y1),Rl-2,7,60 

1050 POLY (XI,Y1),Rl-3,7,60 

1060 NEXT 

1070 NEXT 

1080 RETURN 
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リスト 2 “オホシサマ” XI/XI turbo 


100 1 

101 ，本本オホシサマ .L2 本本 
102 1 

110 INIT：WIDTH 80: SCREEN0 ,0,0 ： CONSOLE0 ,25： CLS 4 
120 READ XX, XX2,YY：RESTORE 
130 READ X,X2,Y,Z：IF X=-l THEN 220 
140 IF Z=0 THEN XX=X : XX2=X2 : YY=Y ： GOTO130 
150 SCREEN ,,1 

160 ON Z GOSUB 450,430,410,400 
170 LINE (XX,YY)-(X,Y),PSET,7,&H8888 : XX=X 
180 X=X2：SCREEN ,,2 
190 ON Z GOSUB 450,430,410,400 

200 LINE (XX2,YY)-(X,Y),PSET,7,&H8888 : XX2=X : YY=Y 
210 GOTO130 
220 DOT=200 
230 FOR 1=1 TO DOT 

240 SCREEN ,,2 »Left eye "RED" 

250 X=640*RND ： Y=200*RND 
260 GOSUB 400 

270 SCREEN,,1 »Right eye "BLUE” 

280 X=X+INT(RND*10) 

290 GOSUB 400 
300 NEXT 
310 SCREEN0,0,0 

320 LOCATE 38,3：PRINT "Pole Star” 

330 LOCATE 64,5:PRINT ” Giraffe” 

340 LOCATE 36,8:PRINT "Little Bear" 

350 LOCATE 6,10：PRINT "Dragon" 

360 LOCATE 34,22:PRINT "Hound" 

370 LOCATE 61,2 2:PRINT "Great Bear" 

380 A$=INKEY$(0) : IF A$="" THEN 380 
390 END 

400 PSET(X,Y):RETURN 

410 LINE(X-1,Y)-(X,Y+1)-(X+1,Y)-(X,Y-1)-(X-l,Y) 

420 PAINT(X,Y),7,1：RETURN 

430 LINE(X-2,Y)-(X,Y+2)-(X+2,Y)-(X f Y-2)-(X-2,Y) 

440 PAINT(X,Y),7,1：RETURN 
450 CIRCLE(X,Y),2, 7，1 
460 PAINT(X,Y),7,1：RETURN 
1000 1 GREAT BEAR 
1010 DATA 425,41 6,186,0 

1020 DATA 425,416 ,186,3,424,410,156,2,369,360,150,3 
1030 DATA 198,202 ,136,1,240,249, 126, 1,274,287,127,1 
1040 DATA 321,330 ,127,2,345,353,136,2,411,420,126,1 
1050 DATA 395,40 3, 110, 1,321,330,127,2 
1060 DATA 395,403,110,0 
1070 DATA 395,403 ， 110 ,1,463,471,98,3,524, 514,88,2,562,575,118,2 
1080 DATA 463,47 1,98,0 

1090 DATA 463,47 1,98,3,465,473,111,3,513,523,121 ， 2,506 ,492,151，3 
1100 DATA 573,568,122,0 

1110 DATA 573,568,122,3,494,504,155,2,418,428,191，3 
1120 » LITTLE BEAR 
1130 DATA 351 ， 341,40，0 

1140 DATA 351,341 ,40,1,322, 309,44, 3,287, 282,50，3 

1150 DATA 264,269,60 ， 3, 239,246,58,4,242,228, 72,3 

1160 DATA 258,266 ,72,1,264,269, 60，3 

1170 » HOUND 

1180 DATA 282,29 5,165,0 

1190 DATA 282,295,165,3,246,251,173,2 

1200 * DRAGON 

1210 DATA 81, 90 ， 45，0 

1220 DATA 42,48, 44,1,57, 51 ， 55, 2,77,72,53, 4,81, 90, 45,3 
1230 DATA 173,181 ， 25, 2, 214,201,20 ,3 
1240 DATA 173,181,25,0 

1250 DATA 173 ， 181,25,2, 192,202,39,3,204, 214,38, 3 
1260 DATA 192,202 ,39,0 

1270 DATA 192,202 ,39,3, 156, 165,57,2, 137, 146,72,2 

1280 DATA 126 ， 134,82,3,150,157 ,92,2,242,238, 99,3 

1290 DATA 314,317 ,94, 4,358,362,96,3 

1300 » GIRAFFE 

1310 DATA 500,497 ,47,0 

1320 DATA 500,497 ,47,4,452,437,52,4,518,510,26,3 
1330 DATA 572,55 6,25,3,607, 612,17,3 
1340 DATA 518,510 ， 26，0 

1350 DATA 518,510.,26,3,460,464 , 17,4,506,492,9,4 
1360 DATA 572,556 ,25,3,-1,0,0,0 


リスト 3 “ヨコイドウ，’ X 1/ X 1 turbo 


100 * 

101 1 *t ヨコイト * ウ ， L3 * 本 

102 » 

110 INIT:CLEAR:WIDTH 40 ： CONSOLE0 ,25 ： CLS4 

120 A$=HEXCHR$("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF") 
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130 B$=HEXCHR$("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF") 

140 C$=HEXCHR$(" 000000000000000000000000000000000000000000000000 M ) 
150 J 

160 Xla=160:Xlb=160 ： Yla=120:Ylb=80 
170 Y2a=Yla ： Y2b=Ylb 

180 » 

190 SCREEN 0,0,0 

200 POSITION Xla,Yla：PATTERN -24,C$,C$,C$ 

210 POSITION X2a,Y2a：PATTERN -24,C$,C$,C$ 

220 SCREEN ,,1 

230 Xla=Xla-20:IF Xla<0 THEN Xla=280 
240 POSITION Xla.Yla:PATTERN -24,A$,A$,A$ 

250 SCREEN ,,2 : X2a=Xla+10 » 10 ••• シサ 

260 POSITION X2a,Y2a:PATTERN -24,A$,A$,A$ 

270 * 

280 SCREEN 0,0,0 

290 POSITION Xlb.Ylb:PATTERN -16,C$,C$ 

300 POSITION X2b,Y2b:PATTERN -16,C$,C$ 

310 SCREEN ,,1 

320 Xlb=Xlb+8:IF Xlb>303 THEN Xlb=8 
330 POSITION Xlb,Ylb:PATTERN -16,B$,B$ 

340 SCREEN ,,2 : X2b=Xlb-8 » 8 シサ 

350 POSITION X2b,Y2b：PATTERN -16,B$,B$ 

360 1 

370 PAUSE 5 

380 S$=INKEY$ : IF S$=”" THEN 190 ELSE INIT:WIDTH 80:END 



リスト 4 “ウミ トカニ” XI/XI turbo 


100 1 

101 ，本本ウミトカニ .L4 本本 


102 


110 INIT:CLEAR：WIDTH 40: SCREEN 0,0,0 ： CONSOLE©,25 ： CLS4 : CGEN1 : PRW &B1110 
120 GOSUB ” PCG” 

130 SCREEN ,,1 ： CL=1 ： GOSUB ，，ハイケイ ，. 

140 SCREEN , ,2:CL=2: GOSUB ， • ハイケイ ，，： SCREEN 0,0,0 

150 SOUND 6,20：SOUND 7,&H37：SOUND 8,16：SOUND 11,0：SOUND 12,90:SOUND13,14 

160 ， [シ ョキ セッティ ] 

170 Ya=l:Yb=7 ： Yc=20 
180 Xa=20:Xb=20 ： Xc=0 
190 FLb=l ： FLc=l 

200 ，[シャトル ヒ b ウシ *] 

210 X=Xa : Y=Ya : No=24 : GOSUB"PRNT M » 本マエノキャラクタヲケス 
220 Xa=Xa-l : IF Xa<0 THEN Xa=35 

230 X=Xa : No=0 : GOSUB"PRNT" » 本ツキ*ノイチニカク 

240 ，[ヨット ヒョ ウシ '*] 

250 X=Xb : Y=Yb : No=24 ： GOSUB"PRNT" 

260 ON FLb GOTO 270,280 

270 Xb=Xb-l:IF Xb く 17 THEN FLb=2:GOTO 260 ELSE 290 
280 Xb=Xb+l:IF Xb>35 THEN FLb=l：GOTO 260 
290 X=Xb:No=8:GOSUB. ， PRNT" 

300 ， [ カニヲカク ] 

310 X=Xc : Y 二 Yc : No=24 : GOSUB"PRNT" 

320 ON FLc GOTO 330,340 

330 Xc=Xc+l：IF Xc>20 THEN FLc=2:GOTO320 ELSE 350 
340 Xc=Xc-l : IF Xc<0 THEN FLc=1 ： GOTO320 
350 X 二 Xc:No=16:GOSUB”PRNT ，， 



360 1 

370 KK$=INKEY$:IF KK$= U " THEN 210 ，本ナニカキーヲオシタラシュウリ b ウスル 

380 INIT：SCREEN 0,0,0: WIDTH 80: CLS4 : CGEN0 : SOUND 7, &H3F : SOUND 8,0： END 

390 »=============================================================== 

400 LABEL”PRNT" ’ （ 4x2 ノキャラクタヲヒヨウシ '' スルルーチン } . 

410 FOR J=0 TO 1 


420 FOR 1=0 TO 3 

430 LOCATE X+I,Y+J ： PRINT#0,CHR$(No+I+J*4) 

440 NEXT 

450 NEXT : RETURN 


460 1 

470 LABEL”PCG”*(PCG ノ テ イキ •}. 

480 DEFCHR$(0)=HEXCHR$( "000000000000000000000000000000030000000000000000" ) 
490 DEFCHR$(1)=HEXCHR$( "000000000000000100000000000 103FF 0000000000000000" ) 
500 DEFCHR$(2)=HEXCHR$(" 0000000000000 IFF 00000000 C0C0C0E 00000000000000000 ") 
510 DEFCHR$(3)=HEXCHR$(" 0000000060 E0E0F 000000000000000000000-000000000000 ") 
520 DEFCHR$(4)=HEXCHR$("00000000000000000C1F0F 000000000000000000000 00000") 
530 DEFCHR$(5)=HEXCHR$("060F 070000000000 FFFFFF3F 000000000000000000000000 M ) 
540 DEFCHR$(6)=HEXCHR$( M 7FFFFF1F 00000000 E0C0E0C 00000000000000000000000 00") 
550 DEFCHR$(7)=HEXCHR$("F0E0F0E 00000000000000000000000000000000000000000 ") 
560 DEFCHR$(8)=HEXCHR$("000000000000000000000000000000000000000000000000") 
570 DEFCHR$(9)=HEXCHR$("0000000000000000000008080C0G0F0F 00000000000000 00") 
580 DEFCHR$(10)=HEXCHR$(" 00008080 C0E0F0F 800000000000000800000000000000000 ") 
590 DEFCHR$(11)=HEXCHR$("000000000000000000000000000000000000000000000000") 
600 DEFCHR$(12)=HEXCHR$( "000000000000000000000000030100000000000000000000" ) 
610 DEFCHR$(13)=HEXCHR$( "00000000 1F0F 07000 F0F0F0FFFFFFF 0000000000000000 00") 
620 DEFCHR$(14)=HEXCHR$("FCFFFCF0FFFFFF00C0F0C000F8F0E 00000000000000000 00") 
630 DEFCHR$(15)=HEXCHR$("00000000C 08000000000000000000000000000000000000 0") 
640 DEFCHR$(16)=HEXCHR$("0000070C 07030100000000000000000000000000000000 00") 
650 DEFCHR$(17)=HEXCHR$ (”00008000 B 33392 D 200003 C603D190C 0600000000000000 00”> 
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660 DEFCHR$(18)=HEXCHR$("0000780C 783060 C 0000003009 B 9993960000000000000000 u ) 

670 DEFCHR$(19)=HEXCHR$("00000000000000000000C060C 080000000000000000000 00") 

680 DEFCHR$(20)=HEXCHR$("070817081314050000000000000000000000000000000000") 

690 DEFCHR$(21)=HEXCHR$("7FFFF3E1E1FF 00003 B47BF479FA 7280000000000000000 00") 

700 DEFCHR$(22)=HEXCHR$("B8C4FAC4F2CA2800FDFE9F0E0FFE 0100000000000000000 0 U ) 

710 DEFCHR$(23)=HEXCHR$("0000000000000000C020D 0209050400000000000000000 00") 

720 DEFCHR$(24)=HEXCHR$( "000000000000000000000000000000000000000000000000" ) 

730 DEFCHR$(25)=HEXCHR$("000000000000000000000000000000000000000000000000") 

740 DEFCHR$(26)=HEXCHR$( "000000000000000000000000000000000000000000000000" ) 

750 DEFCHR$(27)=HEXCHR$( "000000000000000000000000000000000000000000000000" ) 

760 DEFCHR$(28)=HEXCHR$( "000000000000000000000000000000000000000000000000" ) 

770 DEFCHR$(29)=HEXCHR$( "000000000000000000000000000000000000000000000000" ) 

780 DEFCHR$(30)=HEXCHR$( "000000000000000000000000000000000000000000000000" ) 

790 DEFCHR$(31)=HEXCHR$( "000000000000000000000000000000000000000000000000" ) 

800 RETURN 
810 » 

820 LABEL” ハイケイ ”’ （ハイケイヲカクルーチン）本本本本本本本本本本本本本本本本本 :*: 本本本本本本本本本本本本本 :*: 本本本本本:!:本本本本本本本 

830 LABEL” クモ ー A” ： RESTORE 1170 ： » . 

840 READ X,Y,R：IF X = Y AND Y=R THEN ，，クモ ー B" 

850 CIRCLE(X+<CL=2>*8,Y>,R,CL:PAINT(X+(CL=2) 本 8,Y},CL,1,2 
860 GOTO 840 

870 LABEL” クモ ー B”：RESTORE 1210 

880 READ X,Y,R,I：IF 1=0 THEN " ィワ - A” 

890 CIRCLEU+(CL=2>*6,Y),R,CL,I ： PAINT(X+(CL=2)*6,Y),CL, 1，2 
900 GOTO 880 
910 1 

920 LABEL" ィワ - A”：RESTORE 1320 : 1 . 

930 LINE(148+(CL=2)*10,56)-(248+(CL=2)*10,56),PSET，CL 

940 LINE(6+(CL=2)*7 ,72)-( 319+(CL=2)*7,72),PSET,CL 

950 LINE(6+(CL=2)*6,74)-(319+(CL=2)*6,74),PSET,CL 

960 PAINT(88+(CL=2)*8,56),CL ， 1 ， 2:PAINT<184+(CL=2>*8,48),CL, 1，2 

970 » 

980 LINE(-8-(CL=2)*8,99)-(6-(CL=2)*8, 101 ),PSET,CL 
990 READ XI,Y1 : IF X1 = 0 AND Y1 = 0 THEN .■ ィワ - B” 

1000 LINE -(X1-(CL=2)*8,Y1) 

1010 GOTO 990 
1020 1 

1030 LABEL” ィワ - B”：RESTORE 1350 

1040 LINE(126-(CL=2)*4, 174)-( 129-(CL=2)<4,171),PSET,CL 
1050 READ X2,Y2:IF X2=0 AND Y2=0 THEN 1080 
1060 LINE -(X2-(CL=2)*5,Y2) 

1070 GOTO 1050 

1080 LINE(179-(CL=2)*4,177)-(120-(CL=2)*4,177),PSET,CL 
1090 LINE(125-(CL=2)*4,177)-(127-(CL=2)*4,174),PSET,CL 
1100 PAINT(37-(CL=2)*4,166),CL,1,2 ： PAINT( 149-( CL=2)*4,166),CL,1,2 
1110 » 

1120 LABEL . ，ゥミ ，，： RESTORE 1220 ： ». 

1130 READ X1,Y1,X2,Y2:IF X1=0 AND X2=0 THEN RETURN 

1140 LINE(X1+(CL=2)*(110-Y1)*.2,Y1)-(X2+(CL=2)*(110-Y2)*.2,Y2),PSET,CL 
1150 GOTO 1130 

1160 » [LINE & PAINT サ '• ヒヨウテ • 一夕 ] 

1170 DATA 48,64,8,56,56,8,60,44,8,68,32,8,80,24,12,102,26,10 
1180 DATA 108,44,10 ， 120 ， 56,8,120 ， 68,4 

1190 DATA 148,52,4,160,45,10 ， 156,32,8,160,24,4,172,18,10,190 ， 21，10 
1200 DATA 200 ， 32,8,212,40 , 10,228,36,8,240 ， 40 ， 4,248,46,10,0 ， 0，0 
1210 DATA 258 ， 11 ,19, _4,283,19 ， 17, .3 ， 0 ， 0 ， 0,0 

1220 DATA 0,76,319,76,330,108,248,113,248,113,198,112,198,112,122,108 

1230 DATA 153,103,83,112,83,112,41,110,41,110,18,104,18,104,15,101 

1240 DATA 0 ， 79 ,5,78,5,78,14,79,14, 79,45,78 ,45,78,58,79,58,79 ,62,78 

1250 DATA 62,78,68,79,68,79,118,78 , 118,78,130 ， 79,130,79,286,79 

1260 DATA 286,79 ,311,78, 319,81,228,80 ， 228,80 , 162,81 ， 162,81 ,5 7,80 

1270 DATA 57,80,21,81,21,81 ,0,81,0 ， 85, 21,86,21,86,87 ,83,85,85, 174，89 

1280 DATA 164,85 ,223,91,223,91,319,85,264,83,196,84,56,86,71,87 

1290 DATA 74,86,105,88 ,30,89 ,69,91,48,93,79,94,120,92 ,177,91 ， 170 ， 96 ,240,95 

1300 DATA 248,104,309,103 ， 77,103 ， 120, 100 ， 147 ， 106 ， 167 ， 105,129 ， 78 ， 205 ， 78 

1310 DATA 0,0,0,0 

1320 DATA 6, 101, 13, 100, 16, 101,18, 104,21, 105,23,112,25 , 113,30， 116 
1330 DATA 32,119,35, 128,38,138,42,143,4 5 , 149,55,155,58 , 159,60， 166 
1340 DATA 58 ， 170 ， 57 ， 173,57 ， 176,61 ， 182,63,187,71 ， 194,84 ， 199,0，0 
1350 DATA 131,166,135,163,136,161 ， 139, 160, 143,161,149 ， 162 ,155 
1，360 DATA 161,165,164,168,168,170,172,175 ， 177,0，0 

1370 » [Program End] 本 * 本本本本 * 本本本本 * 本本本本本本本本本本本 : 本本本***本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本 



リスト 5 “カイテンウンドウ” Xl/X1tu「bo 



100 » 

101 ，本本カイテン勹ント '• ウ .L5 本本 
102 » 

110 INIT:WIDTH 40： CONSOLE 0,25：CLS 4 
120 INPUT” ハヤサハ？ 1-3 (0:END) M ,S 

130 CLS4 

140 IF S=1OR S=2 OR S=3 THEN GOTO160 ELSE IF S=0 THEN GOTO150 ELSE GOTO120 
150 INITlCLS 4 : END 
160 S=S*6 

170 GOSUB.'DEFI .CHR” 

180 1 

190 * 本本 PLOT 本本 
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200 XH=20:YH=4 ： LH=11 
210 GOSUB "POLE" 

220 FOR 1=180 TO -180+S STEP -S 

230 X=150 本 COS(RAD(I))+160:Y=40*SIN(RAD(I))+100:D=16*SIN(RAD(I)) 

240 A$=HEXCHR$( "0000000000000000" ) : "PLOT” 

250 X1=X:Y1=Y ： D1=D 

260 A$=HEXCHR$("3C7EFFFFFFFF7E3C ”）： "PLOT" 

270 B$ = INKEY$：IF B$ = ，’ " THEN CLS4 :GOTO120 
280 NEXT 
290 GOTO 220 
300 » 

310 LABEL"PLOT” 

320 FOR N=1 TO 2 
330 SCREEN ,,N 
340 X2=X1+D1*(N-1) : Y2=Y1 
350 POSITION X2,Y2 
360 PATTERN-8,A$ 

370 NEXT 
380 RETURN 
390 * 

400 LABEL"POLE” 

410 CGEN 1 
420 FOR N=0 TO LH 
430 FOR I=-l TO1 
440 XH1=XH+I ： YH1=YH+N 
450 LOCATE XH1,YH1 ： PRINT#©,CHR$(&H3 )； 

460 NEXT 
470 NEXT 
480 CGEN 0 
490 RETURN 
500 1 

510 LABEL ” DEFI.CHR” 

520 DEFCHR$(3)=HEXCHR$("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 0000000000000000 ") 
530 RETURN 



リスト 6 “リッボウタイ 1” iW/XIturbo 


100 » 

101 ，本本リッホ • ウタイ 1.L6 本本 
102 » 

110 INIT：WIDTH 40: CONSOLE0 ,25 ： CLS4 : CLEAR 
120 DIM PX(7),PY(7),PZ(7),ixR(7),ixL(7),iy(7) 

130 WINDOW(0,0)-(319,199),(-160,100)-(160,-100) 

140 SCREEN 0,0,0:CLS4 

150 LINE(-160,0)-( 160 ， 0 > ， PSET ， 3:LINE(0 ， 100)-(0,-100) ， PSET,3 

160 ， [ シ * a ウケンセッティ ] 

170 ee=3! ， [cm]•••• リ b ウメ ノカンカクノハンフ*ン 

180 ce=80 ! *[cm]•••• CRT トメノ キ b リ 

190 ， [ チ日ウテンサ '• ヒ日ウノヨミコミ ] 

200 RESTORE 440 
210 FOR n=0 TO 7 
220 READ PX(n),PY(n),PZ(n) 

230 NEXT 

240 GOSUB "ROTATION" 1 ••• カイテンシタサ•ヒョウヲケイサンスル 
250 ， [ ヒタ，リメヨウ & ミキ • メヨウノリッタイトウシシタカ • メンサ '• ヒ b ウヲケイサンスル ] 

260 FOR n=0 TO 7 

270 ixR(n) = (((PX(n)-ee) 本 ce/(ce-PZ(n)>)+ee)*11.7 
280 ixL(n) = ( ( (PX (n)+ee > *ce バ ce-PZ (n > > )-ee)*U .7 
290 iy(n)=(ce*PY(n)/(ce-PZ(n)))*11.7 
300 NEXT 
310 * [ ヒ a ゥシ -] 

320 SCREEN 0,0,1 : RESTORE 430 
330 READ A,B：IF A=B THEN 360 

340 LINE(ixR(A),iy(A))-(ixR(B),iy(B)) : GOTO330 

350 » 

360 SCREEN 0,0,2 : RESTORE 430 
370 READ C,D:IF C=D THEN 400 

380 LINE(ixL(C),iy(C))-(ixL(D),iy(D)) : GOTO370 

390 * 

400 ST$=INKEY$:IF ST$= ” ” THEN 410 ELSE IF ST$=CHR$(13) THEN 140 ELSE 400 
410 INIT：WIDTH 80:END 

420 ，= = = = = = ニニ = = = = = = = = = = = ニニニ：：二 === 二 == 二 === ニニニ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 



430 DATA 0,1,1,2,2,3,3,0,4,5,5,6,6,7,7,4,0,4,1,5,2,6,3,7,0,0 
440 DATA -5,5,5 ， P(0> ノ イチ 

450 DATA 5,5,5 *P( 1 ) 


: »LINE コネクトテ*-夕 


460 DATA 5, -5,5 
470 DATA -5,-5, 5 
480 DATA -5, 5, -5 
490 DATA 5,5,-5 
500 DATA 5,-5,-5 
510 DATA -5,-5,-5 
520 » 


P(2) 

P(3) 

P(4) 

P(5) 

P(6) 

P(7) 


530 LABEL"ROTATION " ，本本本本本本本本本本本本本本本本 : I ： 本本本本本本本本本本本本本本本本本本本本本本本本本本:!:本本本木本本本家本本本本本本 

540 ， [INPUT … PX(n) , P.Y(n) , PZ(n)] 

550 CLS : INPUT"> カイテンカタト * (x,y,z) = " , RRx , RRy , RRz ： CLS 
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I スト 7 “リッポウタイ 2” XI/XI turbo 


，本 : ！：リッホ 0 ウタイ 2 . L7 ** 

I 

INIT:WIDTH 40 ICONSOLE0 ,25 ： CLS4 ： CLEAR 
DIM PX( 7 ) , PY( 7 ) , PZ( 7 ) f ixR(7),ixL(7),iy(7) 

WINDOW(0,0)-(319,199),(-160,100)-(160,-100) 

， [ シ * a 勹ケンセッティ ] 

ee=3! ， [cm]•..• Vb ウメ ノキ日リノハンフ•ン 

ce=80 ! ' [cm]♦••• CRT トメノ キ bV 

， [ チ a ウテンノイチヨミコミ ] 

RESTORE 470 
FOR n=0 TO 7 
READ PX(n),PY(n),PZ(n) 

NEXT 

GOSUB "ROTATION M 1 ••-カイテンシタイチヲケイサンスル 

COLOR 4: LOCATE 0,0: PRINT”*X-ANGLE= ” ； RRx ;” 

COLOR 5: LOCATE 0,1: PRINT"*Y-ANGLE= M ； RRy ； . 

COLOR 6 : LOCATE 0,2:PRINT”*Z-ANGLE=” ； RRz; ” 

， [ リッタイトウシシタカ • メンサ * ヒ 3 ウヲケイサンスル ] 

FOR n=0 TO 7 

ixR(n)=(((PX(n)-ee)*ce/(ce-PZ(n)))+ee)*U.7 
ixL(n) = (((PX(n)+ee)*ce/(ce-PZ(n)))-ee)* 11.7 
iy(n)=(ce*PY(n)/(ce-PZ(n)))*11.7 
NEXT 

1 [ ヒ B ウシ * スル ] 

SCREEN 0,0,0:CLS0 

LINE( -160,0)-( 160,0),PSET,3 ： LINE(0,100)-(0,-100) ,PSET，3 

9 

SCREEN 0,0,1 : RESTORE 460 
READ A,B：IF A=B THEN 400 
LINE(ixR(A),iy(A))-(ixR(B),iy(B)) : GOTO370 

I 

SCREEN 0,0,2 : RESTORE 460 
READ C,D:IF C=D THEN 440 
LINE(ixL(C),iy(C))-(ixL(D),iy(D)) : GOTO410 

f 

K$=INKEY$ : IF K$="" THEN 180 ELSE CLS4 : WIDTH 80 : SCREEN 0,0,0:END 



DATA 0,1,1,2,2,3,3,0 
DATA -5,5,5 
DATA 5,5,5 
DATA 5,-5,5 
DATA -5,-5,5 
DATA —5,5，- 5 
DATA 5,5,-5 
DATA 5,-5,-5 
DATA -5,-5,-5 


4,5,5,'6,6,7,7,4,0,4,1,5,2,6,3,7,0,0 :， LINE コネクトテ•-夕 

pUj ノィチ （ x,y,z> 

P ( l ) 

P(2) 

P(3) 

P(4) 

P(5) 

P(6) 

P(7) 


LABEL"ROTATION " ，本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本本 

， [INPUT … PX(n),PY(n),PZ(n)] 

RRx=RRx+10 : IF RRx>360 THEN RRx=0 
RRy=RRy+10:IF RRy>360 THEN RRy=0 
RRz=RRz+10：IF RRz>360 THEN RRz=0 


FOR n=0 TO 7 

〃本 X シ•タノマワリニ RRx # カイテン 

Xx=PX(n) 

Yx 二 PY(n>*COS(RAD(RRx>)-PZ(n)*SIN(RAD(RRx)) 
Zx=PY(n>*SIN<RAD<RRx> >+PZ<n> 本 COS(RAD(RRx> > 
、 W ，り ）マワリニ RRy° カイテン 

Xxy=Xx*COS<RAD(RRy})+Zx*SIN(RAD(RRy)) 
Yxy=Yx 

Zxy=-Xx 本 SIN(ftAD(RRy))+Zx 本 COS(RAD(RRy>) 

1 本 Z シ * クノマワリニ RRz* カイテン 


560 IF RRx く -360 OR RRx>360 THEN 550 

570 IF RRy く - 360 OR RRy>360 THEN 550 

580 IF RRz く - 360 OR RRz>360 THEN 550 

590 » 

600 FOR n=0 TO 7 

610 〃本 X シ • クノマウリニ RRx * カイテン 

620 Xx=PX(n) 

630 Yx=PY(n}*COS(RAD(RRx>)-PZ(n)*SIN(RAD(RRx)) 
640 Zx=PY(n)*SIN(RAD(RRx) 卜 PZ<n>*COS(RAD<RRx>) 
650 ，本丫シ * クノマワリニ RRy * カイテン 

660 Xxy=Xx 本 COS(RAD<RRy> 本 SIN(RAD(RRy} > 

670 Yxy=Yx 

680 Zxy=-Xx*SIN(RAD(RRy>>+Zx*COS(RAD(RRy> > 

690 ’ 本 Z シ • タノマワリニ RRz * カイテン 

700 Xxyz=Xxy*COS(RAD(RRz))-Yxy*SIN(RAD(RRz)) 
710 Yxyz=Xxy 本 SIN(RAD(RRz)>+Yxy 本 COS(RAD(RRz}> 
720 Zxyz=Zxy 
730 1 

740 PX(n)=Xxyz : PY(n)=Yxyz : PZ(n)=Zxyz 
750 NEXT：RETURN 


0 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0001234567890123456789012345678901234567890123456789012345678901 
1111111111112222222222333333333344444444445555555555666666666677 
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720 Xxyz=Xxy*COS(RAD(RRz))-Yxy*SIN(RAD(RRz)) 
730 Yxyz=Xxy*SIN(RAD(RRz)}+Yxy 本 COS(RAD(RRz}> 
740 Zxyz=Zxy 
750 1 

760 PX(n)=Xxyz : PY(n)=Yxyz : PZ(n)=Zxyz 
770 NEXT:RETURN 


リスト 8 “キユウタイ” Xl/X1tu「bo 


100 1 

101 ，本本キユウタイ .L 8 ** 

102 * 

110 INIT:WIDTH 80： SCREEN 0,0: CONSOLE 0,25:CLS 4 
120 EYD=6 ： OFS=2:C=2 

130 QAX=-20:QAY=40 ： QAZ=-50:STP=20 ： STP1=10 
140 TX=-30:TY=-30 ： PSZ=-300:GOSUB 210 

150 * - メインルーチン - 

160 CLS : LOCATE 1,0: INPUT '，キユウ ノ ハンケイ = ",R 
170 E=-l ： COLOR 2: SCREEN j ,2 ： GOSUB 250 
180 E 二 - E:COLOR 1 ： SCREEN ,,1: GOSUB 250 
190 BEEP 
200 INIT:END 

210 » - カタト * ノケイサン - 

220 SS=SIN(RAD(TX)) : SF=SIN(RAD(TY)) 

230 TS=COS(RAD(TX)) : TF=COS(RAD(TY)) 

240 RETURN 

250 ， - ワイヤーフレームテ * ィスフ•レイ - 

260 FOR J1=0 TO 180 STEP STP 

270 X0=R 本 COS<RAD(> >:R1=R 本 SIN(RAD(J1}) 

280 X=X0 ： Y=R1 ： Z=0 

290 GOSUB 440：LINE (X,Y)-(X,Y>,PSET 
300 FOR J2=0 TO 360 STEP STP1 

310 X=X0:Y 二 R1 本 COS(RAD(J2}) ： Z=R1*SIN(RAD(J2)) 

320 GOSUB 440：LINE -(X,Y) 

330 NEXT 
340 NEXT 

350 FOR J1=0 TO180 STEP STP 

360 Y0=R*COS(RAD(J1)) : R1=R 本 SIN(RAD<J1)> 

370 X=R1 ： Y=Y0 ： Z=0 

380 GOSUB 440 ： LINE(X,Y)-(X,Y),PSET 
390 FOR J2=0 TO 360 STEP STP1 

400 X=Rl*COS(RAD(J2)) : Y=Y0 ： Z=R1*SIN(RAD(J2)) 

410 GOSUB 440:LINE -(X,Y) 

420 NEXT 
430 NEXT:RETURN 

440 1 - サ•ヒヨウノヘンカン - 

450 X=X-QAX:Y=Y-QAY:Z=Z-QAZ 

460 XX=X*TF+Z*SF 

470 YY=X 本 SS 本 SF+Y«TS-Z 本 SS 本 TF 

480 ZZ=-X 本 TS 本 SF+Y 本 SS+Z 本 TS 本 TF 

490 X=XX ： Y=YY:Z=ZZ 

500 X=X-EYD*E 

510 PS=1-Z/PSZ : X=X/PS : Y=Y/PS 
520 X=320+(X+OFS*E)*2 ： Y=100-Y 
530 RETURN 



リスト 9 “ブラックホール” XI/XI turbo 


100 » 

101 * 本本フ • ラックホール .L9 本 * 

102 1 

110 INIT：WIDTH 80： CONSOLE 0,25：CLS 4 

120 * - make - 

130 r=30 : p=45 

140 FOR i = 0 TO 2*3.14 STEP 3.14/15 
150 rr=SQR{r 本 r+p 本 p+2 本 p 本 r 本 COS(i)) 

160 FOR j=0 TO 2*3 .14 STEP 3.14/2/rr 
170 x=(rr 本 COS<j>+r 本 COS(i)) 本 2+320 

180 y=rr*SIN(j)+r*SIN(i)+100 

190 c=c+l : IF c > 7 THEN c=0 

200 PSET (x,y,c) 

210 NEXT j 
220 NEXT i 

230 * - palet - 

240 FOR q=0 TO 3000 
250 FOR w=0 TO 4 STEP 2 
260 PALET (q+w)MOD7+l,w 

270 NEXT 
280 NEXT 

290 CLS 4 ： INIT：END 
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リスト 10 “ウチアゲハナビ” X1/X1tu「bo 


100 » 

101» 本本ウチアケ • ハナヒ * 本本 

102 > 

110 INIT:WIDTH 80： CONSOLE 0,25：CLS 4 
120 WINDOW (0,0)-(639,199),(0,50)-(639,249) 

130 1 - main - 

140 GOSUB 450 

150 xe=RND(1)*500+100 : ye=100-RND(1)*30 : rl=RND(1)*4+2 
160 FOR c=3 TO 6:PALET c,0：NEXT c 
170 PALET 1,2:PALET 2,4:PALET 7,3 
180 GOSUB 360 

190 FOR y=154 TO ye STEP -2 
200 x=RND(1) 本 8+xe 
210 PSET (x,y,1) : PSET (x+1,y,2) 

220 FOR i=0 TO10：NEXT i 
230 PSET (x,y,0) : PSET (x+4,y,0) 

240 NEXT y 

250 f - palet - 

260 FOR q=0 TO 100 
270 FOR w=0 TO 4 STEP 2 
280 PALET (q+w)MOD4+3,w 

290 FOR i=0 TO10：NEXT i 

300 NEXT w 
310 NEXT q 

320 xa=-rl*20+xe-b:ya=-rl 本 10 本 ye 
330 xb=rl 本 20+xe+b:yb=rl 本 10+ye 
340 LINE (xa,ya)-(xb,yb),PSET,0,bf:GOTO 
350 END 

360 f - hanabi - 

370 FOR b=l TO10 

380 FOR k=0 TO 6.28 STEP 3.14/18 
390 xl=rl*b*COS(k)*2+xe ： yl=rl*b*SIN(k)+ye 

400 cl=(b+7)MOD4+3 ： c2=(b+9)MOD4+3 

410 PSET (xl,yl,cl) : PSET (xl+b,yl,c2) 

420 NEXT k 
430 NEXT b 
440 RETURN 

450 * - make town - 

460 FOR c=0 TO 7 : PALET c,0：NEXT c 

470 RESTORE 730 

480 READ c,n,x,y,xx,yy 

490 LINE (x,y)-(xx,yy),PSET,c 

500 FOR i=l TO n-1 

510 READ x,y 

520 LINE -(x,y),PSET,c 

530 NEXT i 

540 PAINT (10,190),0,1,2,3,4,5,6,7 

550 RESTORE 770 

560 FOR jj=0 TO16 

570 READ wr,w f wx,wy,wxx,wyy 

580 FOR j=0 TO wr STEP w 

590 c=INT<RND(l)*8> 

600 IF c=0 OR (2 く c AND c く 7) THEN 610 ELSE 590 

610 LINE (wx,wy+j) - (wxx,wyy+j),PSET,c,&H8888 

620 NEXT j 
630 NEXT jj 

640 LINE (0,199)-(639,210),PSET,0,bf 

650 LINE (0,199)-(639,199),PSET,2 

660 FOR x=0 TO 640 STEP 20 

670 LINE (x,199)-(x*3-645,249),PSET,2 

680 NEXT x 

690 FOR x=0 TO 640 STEP 20 

700 LINE (x, 199)- (x*3-635,249),PSET,1 

710 NEXT x 

720 RETURN 

730 * - twon data - 

740 DATA 7 ,60 ， 0,160 ， 2 0, 160,2 0, 185,30 ， 180 ， 30 ,160, 40 ， 155,60 ， 160,60 ， 175,65,175,6 5,1 
65,100,160,130,165,130,176,140,180,140,165,200,155,220,158,220,185,230, 185,230, 1 
55,260 ， 155,270 , 160,270 ， 180 ， 280 ， 180 ， 300 , 172,300,165,296,165,310 ， 160 ， 324 , 165,320， 1 
65 

750 DATA 320 ， 172,340,180 ， 350 ， 180,350,175,380,170,410,175,410,180,420, 180,420, 165 
,440, 158,460, 165,460, 180,470,180,470,167,500,160,520, 160,520, 155,550,155,550,170 
, 560,170 ， 560 ， 160 ， 580 ， 155 ， 600 ， 160 ， 600 ， 170 ， 610 ， 170 ， 610 ， 180 ， 620 ， 180 ， 639,172 
760 DATA 639, 199,0,199,0,160 

770 DATA 25,2,230,158,260,158：DATA 22,3,140,168,200,158 
780 DATA 36,4,100,163,65,168：DATA 36,4,100,163,130,168 
790 DATA 36,4, 100, 164,65,169：DATA 36,4,100,164,130,169 
800 DATA 36,4,500,163,530,163：DATA 36,4,500,164,530,164 
810 DATA 36,4,500,163,470,170:DATA 36,4,500, 164,470,171 
820 DATA 36, 3 ， 0,163 ， 17，163 : DATA 14,2,190,187,270,187 

830 DATA 30,4,540,173,607,173 : DATA 30,4,5^, 174,607,174 
840 DATA 20,3,440, 162,460, 169:DATA 20,3,440,162,420,169 
850 DATA 10,3,400, 190,46 8,190 ^ ^ 
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その筋 

プログラミング 

作法 

パーソナルコンピュータを使5いちばんの 
醍醐味ってなんだろ5。ゲーム9ワープロ 1 ? 
どんなに八ードやソフトが進んでも，僕は 
“ブロクラ5ング”って答えたい。プログ 
ラムによって僕らはマシンを自在にコント 
ロールすることがで S る。それはまさにマ 
シンとの対話/コミュニケーシヨンである 〇 
定石とかテクニック，スタイルなどは単な 
る“手法”にすぎない。 BASIC であれマ 
シン語であれブログラ5ンクを楽しむ“精 
神”が大切なのだ。さあ，5人の戦士の投 
稿作品とあわせてドーンといってみよ5。 


プログラミングの楽しみ 中川智哉 

多桁演算と円周率 一 粜野雅彦 

電卓ブログラムである— 一祝一平 

BBS シミュレータ 一高原ひでき 

おかしなおかしなプログラマ 吉田幸一 
mz - 2500 グラフィックツール Su per Pai nt —— 赤松慶三 

mz- 2500 pyramid WARS —— 软庭崇 

XI/XI turbo ZOONE 長沢淳博 

Mz-i5oojocose John - 裔藤和佳 


MZ -700/1500 80 B /2000 2200 2500：|[ J 斗の男 西谷久範 
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し、方が多様化した今日でもプログラム制作はコンピューテイ 
であり，それに熱中するユーザーはたくさんいます。いったいどこがそんなに 
面白いのか，プログラミングの魅力•楽しみについて考えてみましよう。 


Norichika 


II 智哉 




ノ r ソコンと プログラミング 

市販のソフトがまだ少ないころはまさに 
“パソコン = BASIC ” だった。 0 A 化のき 
ざしが見え始めたころも，窓際にすわって 
いるオジサンたち.が電車の中などで BAS 
1 C の入門書を開いていたものだ。いまなら 
それは ワープロと か データベースと力 1 にな 
るのだろうが，当時としては必要な ソフト 
は自分たちで作るのがあたりまえだったの 
である。その人たちのうちのどれだけが実 
際にそれを仕事に役立てることができたか 
疑問であるが， パソコン そのもの（つまり 
ハードウェア）を勉強するよりも BASIC 
を通してのほうがハ。 ソコンと いうものをよ 
りよく知ることができたであろうし，そう 
いったことが原動力となって現在のような 
0 A 化があるのだろう。 

さて，市販の パッケージ ソフトが数多く 
出回り，パソコンも多機能になってその使 
い方もますます多様になってきた今日，プ 
ログラミングという作業は必ずしも重要で 
はなくなってきた。しかし，ほとんどのユ 
ーザーはそれぞれプログラミングを楽しん 
でいるし，以前のような強迫的観念からで 
なく，もっと気軽に BASIC と付き合って 
いるように思われる。お仕着せのプログラ 
ミング スタイル とか テクニック とかは重要 
ではない。プログラミングをいかに楽しむ 
かが肝心なのだ。 



BASIC との出会い 





僕が初めて BASIC に触れたのは4年ほ 


ど前，当時発売されたばかりの MZ - 2000を 
注文した（当時はパソコンの在庫を持って 
いる店は少なかった）馴染みの電気屋さん 


に遊びに行ったときのことである。その日 
はたまたま，パソコンに初めてさわる人の 
ための講習会みたいなことをやっていて， 
僕が行ったときは講習会も残り30分ぐらい 
になっていた。そこで，受講料は払ってな 
いけど少しぐらいならいいだろう，と覗い 
てみたのである。 

部屋では10数人の受講者が2人1組で M 
Z -80 B に向かっていて， FOR 〜 NEXT の説 
明を受けているところだった。いちばん後 
ろのあいている椅子にすわり，リスト1，2 
のようなを縦とか横に10個表示する 
プログラムの説明を聞いていたら ， BASIC 
について（というよりも パソコンに ついて） 

の予備知識はまったくなかったのだけれど， 
フ 。ロタ、、 ラムや変数， PRINT，FOR 〜 NEXT 
の意味がなんとなく漠然と理解できたのだ。 
BASIC って意外と簡単だ，それが第一印象 
であった。 

そして， TO 〜の値を変えれば任意の数だ 
けを書けること， FOR 〜 NEXT の1 
重ループでの長方形の塗りつぶし（リスト 
3)，2重ループによる任意の大きさの長方 
形の塗りつぶし（リスト 4) などが説明され, 
最後にリスト5と同じ働きをするプロダラ 
ムを考えてみてください，ということで講 
習会は終了した。 

何人かが残ってそのプログラムを作って 
いる中に中学時代の同級生がいたので，彼 
の隣にすわり一緒に考えてみた。じ〜っと 
考えた末，リスト4の20行の15を I にすれ 
ばいいんじゃないかと思い，やってみると 
うまくいったのだ。 BASIC を知っている人 
にはごくあたりまえのことだったのだが， 
そのときの僕にとってはものすごい発見を 
したように感じられたものである。たった 
1力所変えただけでまるで違う働きをする， 
プログラムって奥が深い，それが第二印象 


だった。 

うまくいって気をよくした僕は次に ピラ 
ミッド型の（画面上方を頂点とする）二等 
辺三角形を描いてみようと考えた。そして 
試行錯誤ののちリスト7のような プロダラ 
ムが できた。それじゃあ逆ピラミッドは？ 
次々と新しいテーマが浮かび，僕はそれら 
を プログラム にするのに夢中 になって いっ 
たのである。 

パソコンを購入する直前のこの講習会で 
の体験（しかもタダですませてしまった！） 
は，その後の僕のプログラミングに対する， 
というカリ、。ソコンに対する姿勢に少なから 
ぬ影響を与えている。 

ク U エイテイブスピリッ ツなのだ 


読者の中にも僕と同じような経験をした 
人はたくさんいることだろう。僕にとって 
あのときの感覚がプログラムを作るうえで 
の大きな原動力となっている。それは，難 
しいパズルを解いたとき，数学の証明問題 
を解いたとき，新しいアイデアを思いつい 
たときのようなあの“感覚”である。 

ひとつのプログラムが完成するまでの間 
に僕らはそういった感覚をいくたびか味わ 
うことになる。もちろんそれは実際にマシ 
ンに向かってプログラムをするときだけの 
話ではない。テーマ設定の段階から，アイ 
デア/構想を練ることもプロダラミングの作 
業の一部なのだから。 

“クリエイティブスピリ ッツ ” というも 
のは誰もが持っているものだろう。そして 
僕らはプログラミングという小宇宙の中で 
自分にとって新しいなにかを創造すること 
ができる。それらの多くはすでにほかの誰 
かがやったことだろうし，ひょっとしたら 
ごくごくあたりまえのことかもしれない。 


60 Oh! MZ 1986.10. 







FOR 1=1 TO10 
FOR J=1 TO I 
PRINT ， • 拿 , ，； 

NEXT 

PRINT 

NEXT 


リスト 7 ピラミッド 

10 FOR 1=1 TO10 
20 FOR J=1 TO 11-1 
30 PRINT" 

40 NEXT 

50 FOR J=1 TO 1*2-1 
60 PRINT，，*"; 

70 NEXT 
80 PRINT 
90 NEXT 


ただし，ここでちょっと注意しておきた 
いことがある。初めから改造するつもりが 
あるときでも，ごくごく短いプログラムや 
完全に全体が把握できた場合は別として， 
最初からあちこちに修正を加えながら打ち 
込んだりしてはいけない。じつは僕もこれ 
で失敗したことがあるのだ。変数の使い方 
とかサブルーチンの組み方などで気にいら 
ないところがあったので少しずつ変更しな 
がら打っていったら，ものの見事にわけが 
わかんなくなってしまった。つまらないと 
ころで主義主張を通そうとするものではな 
いようだ0ましてや改造したプログラムが 
うまく動かないからといって“バグ電話” 

に問い合わせをするなんてもってのほかで 
ある（以前本当にあったらしい）。 

美味しんぼ/いやしんぼ 塵 


雑誌に載っている他機種用のプログラム 
でおいしそうなのがあったら君はどうする 
だろうか0こういったプログラムの移植も 
またプログラミングの楽しみのひとつであ 
る。え，移植はプログラミングとは違う？ 
冗談じゃない，プログラミングに関する幅 
広い知識がなければ移植なんか簡単にはで 
きないのだよ。 

ところがところが，ここでもうひとつの 
大逆転がある。 HuBASIC とか MZ - 2500の 

リスト5三角形⑴ 

10 PRINT "*，， 

20 PRINT" 拿拿 " 

30 PRINT” 拿本本 M 
40 PRINT " 拿本本拿 " 

50 PRINT ，， 拿 *…" 

60 PRINT" 拿拿本拿拿本 ” 

70 PRINT” 本本拿拿拿本本 " 

80 PRINT" 拿拿拿拿拿本本本 " 

90 PRINT" 拿拿拿拿拿拿拿寒本 " 

100 PRINT” 拿拿拿拿拿拿家拿本 *" 

リスト6三角形 (2) 


BASIC - M 25 は非常に高い水準の機能を持 
つ BASIC であるから，雑誌で発表されてい 
る才ール BASIC のプログラム，特に PC -88 
や FM -7 用のものなどは，ほとんどそのまま 
利用できるものが多いのである。中にはま 
ったく変更の必要がないのに PC -88 用とし 
か書いて•ないものもあるのだ。こういった 
カラクリを見破るのもまた重要なことだと 
思うのである。 

ある程度プログラミングの力がついたら， 
1〜4月号の BASIC DATA LIST や1月 
号の特集記事を見て，ぜひ他機種のプログ 
ラムの移植にも挑戦してみていただきたい。 
そういった意味で，雑誌というペーパーメ 
デイアは強力なプロテクトのかかったパッ 
ケージソフトにはない魅力があるのである。 
“美味しんぼ”というより“いやしんぼ” 
といわれるくらい雑誌の記事が利用できる 
ようになれば，プログラミング，ひいては 
パーソ ナル コン ピュータの世界がまたひと 
つ広がることだろう。 

シンとのコ三ユニケーシヨン 

あんなゲームを作ってみたい，こうすれ 
ばこのツールはもっと使いやすくなるぞ， 
あのプログラムを僕の マシ ンでも走らせた 
い，プログラミングは僕らに夢を与えてく 
れる。それは市販のパッケージソフトを使 
うだけでは決して味わえない夢である。た 
とえうまくいかなかったとしてもそれはそ 
れでいいのだ。僕らは確実に創造力を働か 
せ，楽しいひとときを過ごせたのだから。 
そしてまた，新たな夢に向かっていけばい 
いのである。 

プログラミングというものはコンピュー 
夕にある仕事をさせるための手段である。 
しかし僕らアマチュアプログラマにとって 
それ自体が目的でもある。ここがプロと決 
定的に違う t ころだ 。僕らは自由気ままに 
テーマを選んでプログラミングそのものを 
楽しめばいい。だから，プロがとても手を 
出しそうにないことにも挑戦することがで 
きるし，彼らにはできないスゴイことだっ 
てできるのだ。 

BASIC , PASCAL ， COBOL，FORT 
RAN , LISP , PROLOG ， FORTH , C ， 

そ して アセンブリ 言語などの プログラミン 
グ 言語は，ひとつの目的を達するための開 
発言語というだけでなく，僕らが マシンに 
ものを教える， マシンをコントロール する， 
マシンと より深く付き合うための，独自の 
小宇宙を持った“ コミュニケーションツー 
ル”なのである。 


しかし誰に教わったわけでもない，自分だ 
けで作りだしたオリジナルは，“クリエイ 
テイブスピリツツ”の証なのである。 

八ージヨ ンアツ ブもまた楽 


正直いって僕は，雑誌に載っているプロ 
グラムを走らせてそのままで満足したこと 
はほとんどない。なにかプログラムを見る 
と，例の“クリエイティブスピリッツ”が 
ムクムタと沸きあがってしまうのである。 
初めて バソコ ン雑誌:からフ。ログラムを打ち 
込んだときもそうだった0それは4 K バイ 
卜ほど（だったと思う）の2次元ゴルフゲ 
ームだったのである力 5 '，ボールの動きを滑 
らかにし， コースを 増やし， スコア 表示を 
充実させ……，と改造していくうちに 20 K 
バイト以上にもふくれあがり，オリジナル 
とはまったく別のプログラムになってしま 
ったのだ。 

読者のみんなにもそういったことはけっ 
こうあるのではないだろうか。結局，本当 
に満足できるプログラムはやっぱり自分で 
作ったものなのだ。そして，そうやってバ 
ージョンアップしたプログラムは君の立派 
なオリジチル(世間は認めてくれなくても） 
なのである。さらには，他人のプログラム 
を解析することによって知らず知らずのう 
ちに力がつくという特典もある。 


リスト1 FOR 〜 NEXT (1) 

10 FOR 1=1 TO 10 
20 PRINT "*.， 

30 NEXT 


リスト 2 FOR 〜 NEXT (2) 

10 FOR 1=1 TO10 
20 PRINT" 

30 NEXT 


リスト 3 ボックスフル (1) 
10 FOR 1=1 TO10 

20 PRINT" 拿本本拿家家拿本 : M：" 
30 NEXT 


リスト4ボックスフル (2) 

10 FOR 1=1 TO 10 
20 FOR J=1 TO15 
30 PRINT "*，，； 

40 NEXT 
50 PRINT 
60 NEXT 
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Kuwano Masahiko 

荣野雅彦 


歌って踊れる数学者 (7) 荣野氏が今回は十数桁〜数十桁以上の多桁演算に挑戦しました。 
例によってお話は円周率の計算にまで展開していきます。秋の夜長にたつぶりと時間をか 
けて超越数を求めるプログラムをお楽しみください。 




アマチユ アだから面白い 

数百桁まではいかないまでも， BASIC の 
16桁程度の有効数字では不足を感じること 
は少なくないでしょう。世の主流を占める 
マイクロソフトの BASIC は細かい数値計算 
をやらせると誤差だらけになってしまい， 
倍精度でも有効数字が8 , 9桁とれればま 
しなほうといったこともあります。 

どうしても桁数が欲しい，しかし BASIC 
は16桁。ここで「しかたない」とあきらめ 
るのは商売でこの道にいる 人。 たとえ胬で 
あしらわれようとまずはやってみる。それ 
が趣味，それがアマチュアなのです。 

よくよく考えてみれば， MZ / X 1 の頭（力 
シラ）たる Z 80 は基本的には〇〜255の整数 
しか扱えないのに， BASIC インタプリタな 
どというややこしいものが動くのです。文 
法的にはときとしてアセンブラよりもルー 
ズともいえる BASIC で数百桁の演算くらい 
できないはずがない。とにかくやってみて 
ガッカリしたらそれでもいいじやないか。 
それがアマチュアというものさ。 

ああ懐かしの位どり 

- W 

変数ひとつでは数値を表現しきれないと 
いうことなのですから，ほかになんらかの 
表現手段を考えなくてはなりません。と改 
めていうほどおおげさなものではありませ 
ん。昔（現役の 人 もいるかな），小学校で習 
った「位どり」をすればいいのです。 

どんな大きな数値でも〇〜9の10種の文 
字を並べて表現する10進法の考え方をここ 
で思い起こしましょう。 n 個の数字を並べ 
るということを BASIC 的に見つめ直せば， 
やはり「配列」ということになります。 


1桁に配列の1要素を使う場合，1000桁 
の数値を表したければ 
DIM X (999) 

とでもやっておいて， X (0) は1の位 ，X 
(1) は10の位,……， X (999) は10 999 の位 
をそれぞれ表すようにすればなんとかなり 
そうです。これまでは X に10000を代入し 
ていたのを今度は X (4) を1に，他を0に 
するのです。 

これで数の表現はなんとかなりそうです。 
次に問題になるのは演算です。これまでは， 
たとえば引き算なら， 

A = A -3 

といったぐあいに書くだけでよかったので 
すが，今度はそう簡単にはいきません。配 
列を使って桁を増やしたとはいっても，そ 
れは単に私たちの都合， My コンピュータに 
とってそんなのは知ったことではないので 
す。多桁の表現方法を考えたらそれに応じ 
た演算の方法も考えなくてはなりません。 

浮動小数点表記をとったような場合には 
演算を度観的にとらえにくいのですが，今 
回のような整数表現をとったときはわりと 
わかりやすいでしよう。演算の基本ともい 
える四則演算などはお馴じみの手計算のや 
り方をそのままマネさせればよいのです。 
♦加算 

まず手始めにもっとも簡単そうな加算， 


X ( )= X ( )+ Y () 

を考えてみましよう。 

筆算ではどうやったでしようか。そう， 
下の桁から順に足し算をして，結果が10を 
越えたら上の桁に桁上げをして……。これ 
を プログラムに するとどうなるでしよう。 

この場合は相手が融通のきかないコンピュ 
ータだけに，ふつう無意識のうちにやって 
いることも明確にしなければなりません。 
そのことだけ気をつけて作ってみましよう。 
1000 CARRY = 0 
1010 FOR 1 = 0 TO N 
1020 X ( I ) = X ( I ) + Y ( I ) +CARRY 
1030 IF X ( I )> = 10 

THEN X ( I )= X ( I )-10 : 

CARRY =1 
ELSE CARRY = 0 
1040 NEXT I 

変数名の付け方など若干の違 t 、はあると思 
いますが，ほぼこんな感じに落ち着くでしよ 
う。1000行が先ほどいった「無意識」の部分 
です。このプログラムでは下からの桁上げ 
を CARRY という変数にしているのですが， 
最下位の桁を計算するときには下からの桁 
上がりはありませんから CARRY = 0です。 
ここを， 

X (0)= X (0)+ Y (0) : IF X (0)>=10 
THEN X (0 )=X (0)-10 : CARRY 


図 1 配列を使って数値を表現 


1 • 376, 495 


X ( 0 ) = 5 
X ( l )=9 
X (2)=4 

X (7)= I 


8桁の数値を X (0 ) 〜X (7) を使って表す 
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=1 ELSE CARRY = 0 
として次の FOR 文の初期値を 1 にすればよ 
り手計算に近くなるのでしようが，プログ 
ラムとしては無駄という感じがします。ま 
た，下の桁からの桁上がりに関しても，手 
計算のときには桁上げがあるか否かで頭の 
中の処理が分岐していると思いますが，コ 
ンピュータが相手のときは「0の桁上げ」 

と考え直すほうが式を統一でき，すっきり 
と書けますね。 

•減算 

減算は補数の和として計算するほうがよ 
りコンピュータら しいのでしようが， 少々 
面白味に欠けるので，これまた手計算を参 
考にしてみます。 

1000 CARRY = 0 
1010 FOR 1 = 0 TO N 
1020 X (1)= X ( I)-Y ⑴ -CARRY 

1030 IF X ( I )<0 

THEN X ( I )= X ( I )+10 : 

CARRY =1 
ELSE CARRY = 0 
1040 NEXT I 

「CARR Y より BORROW のほうがいいんじ 
ゃないの？」と思った人はなかなかその筋 
の人ですね。桁上げに対するなら桁下げと 
でもいうのでしようか。手計算のときの「借 
りてくる」という作業を行うために CARR 
Y を使っています。動作がわかりにくいと 
きは，実際にデータを入れて1ステップず 
つやってみればよくわかるでしよう。 

_除算 

除算，平た〈いえば割り算です。一気に 
やってしまおうと考えると頭が 「System 
Panic 」 のメッセージを出して Halt してし 
まいます(あぁ懐かしの M 23)。 まずは順ぐ 
りに，筆算でやっている手順を思い出して 
みましよう。 

図3に手計算で商を求めるときのやり方 
を書いてみました。筆算では，割られる数 
を上の桁から順に取っていき（例では4 — 
454456)，割る数を越えたらそこで商 （0 
〜 9) を考え，余りをもとにして再び割ら 
れる数から数字をとってくる……，といっ 
た作業を繰り返すのですね。これをプログ 
ラムにするときいちばんやっかいなのは「商 
を求める」という作業です。割る数が変数 
1個ですめばそれほどたいしたことはあり 
ませんが，今回はそうはいきません。 

いろいろ考えているうち，喫茶店に置い 
てあったタイガー計算機を思い出しました。 
これはレバーを 手で回して20桁く らいの 加 
減乗除を行う手動歯車計算機です。手でな 
く，モーターで動かす「電気計算機」もあ 


ったと力、いう話もあります。リレー式に始 
まり，小型 • 軽量 • 高性能 • 低価格を-直 
線に走った電卓のおかげで，扱い方はおろ 
か存在さえも忘れ去られかけていたタイガ 
一計算機がこんなところで役に立つとは…。 

タイガー計算機の除算は手計算に似てい 
て，「データをシフトしながら引く」ことで 
行います。タイガー計算機の引き算は右の 
ハンドルを回すとカウンタが増し，数が引 
かれるので，先ほどの筆算における商を1 
桁求めるという作業は「引けるだけ引き続 
ける」作窣になり，商は引いた回数という 
ことになるのです。先ほどの例だと，商の 
「3」を求めるのにハンドルを3回，次にデ 
ータをシフトして（レバーをガチヤンと動 
かして）次の商「7」を求めるのにハンド 
ルを7回，計10回回すことで「37」という 
商を得ます。このとき割られる数のほうに 
出ているのが余りです。 

「商を求める」ことを「引けるだけ引く」 

という原始的な作業に還元すればぐっとプ 
ログラム化しやす〈なります。引き算はす 
でに作ってありますからあとは比較だけで 
すね。これは簡単。上の桁から順に比べて 
いって，一致しなかったらそのとき数字の 
大きいほう力 ？ 「大きい数」なのです。 

1000 CARRY = 0 

1010 FOR I = N TO 0 STEP -1 


1020 IF X ( I )= Y ( I ) THEN 1050 
1030 IF X ( I )< Y ( I ) THEN 
CARRY =1 
1040 I=-l 
1050 NEXT I 

このルーチンは X ( )>= Y () なら CARRY 
= 0，逆に X ( )< Y () なら CARRY = 1 にな 
ります。1040行は C 言語なら break 文に相 
当するもので， FOR のループからただちに 
抜け出すために行った小細工です。大小関 
係が判明したらそれより下の桁を見るのは 
無駄ですから，すぐに脱出をはかるわけで 
す。 

これで道具は揃いました。プログラムは 
やや長くなります（リスト1)。1150行から 
は比較，1230行からは先ほどの引き算です 
ね。1070行からが商を1桁求めるところで， 
答えは ANS に求めておき最後に Y ( I ) に引 
き渡しています。 

すべての桁について求めるためのループ 
が1000行以降です。1010行から1030行のル 
ープ，および1040行が「余りをシフトして 
最下位に割られる数を入れる」ところです。 
これを最上位から最下位までまわして商を 
全桁求めます。これで X (0) から X ( KETA ) 
のすベてに商が入って無事終了となります。 
•乗算 

乗算については宿題にしましよう。筆算 


図2 加算の考え方 


a ) 手計算 b ) プログラム （N = 3)による計算 

が隠れていると考えるとプログラム化しやすい 


10 


12 3 4 
+ ) 5 6 7 8 


2 


CARRY : 


X (0) + Y (0) + CARRY = 4 + 84-0=1 2^ X (0)=2 
X ( I ) + Y ( I ) + CARRY = 3 + 7+1 = J ^ I ={> X ( I)=I 
X (2)+ Y (2)+ CARRY = 2 + 6+1=09 = i > X ( 2 ) = 9 
X (3) + Y (3)+ CARRY = I + 5 + 0 = 6 (3)= 6 


図 3 筆算による除算 


3) 

4 5 6 7 


0 0 3 

3 ) 

4 5 6 7 


3 6 9 


厂一 -書かれない0 

0 0 


I 2 3) 4567 


I 2 3) 4567 
3 6 9 


I 2 3) 4 5 6 7 


0 0 3 7 
12 3]" 4 5 6 7 
3 6 9 
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beck 


Long divide routi 
def int A-Z 

print "♦♦♦ 本本入 /B ♦ 本拿拿本 " 

input ~ A ="； A $： A » len ( A $) 

input ~B = “； B $: B-Ien ( B $) 

if A>B then KETA - A -1 else KETA = B - 1 

din S ( KETA ),0 ( KETA),A ( KETA) ， Y ( KETA ) 

for I = A to1 step -1 

S ( A - I ) -vaI ( mid $( A $, 1,1)) 
next 

for I = B to 1 step -1 

0 ( B - I ) : v a I (ib i d $ ( B $, 1,1 )) ：J = J + ] 
next 

gosub 2070 

print "A/B "~； 


t e p 


000 
010 
020 
030 
040 
050 
060 
070 
080 
090 
00 
10 
20 
30 
40 

50 F = 0 
60 for 
70 if 
80 if 
90 next 
200 print 
210 F-0 

220 for I，KETA to 0 step -1 
230 if A (I) <>0 then F-1 

2 4 0 if F then print right$(str$(A(I)),l )； 

250 next 
260 end 
2 0 0 0 
20 10 
2 0 2 0 
20 30 
2 0 4 0 
2 0 5 0 
2060 
2070 
2080 
2090 


※ELSE の使えない BASIC では 
GOTO 文で処理してください 


本 * DIVIDE 


い KETA to 
Y (I) <>0 t 
F then print right$ (str$ (Y (I)),1)i 


e KET 入 to 0 step - 1 
r J=KETA-1 to 0 step 
A(J+l)-A (J) 


2 100 

next 

2110 

A (0) = S ( I ) 

2 120 

gosub 2170 

2130 

next 

2140 

return 

2 150 

- - Long 

2160 

• A ()/0 () によ 

2】70 

ANS -0 

2 180 

K o s u b 2 2 6 0 

2 190 

if CARRY ，1 the 

2 2 0 0 

gosub 2350 


本本 Lo n g 


'♦ 拿 long compare 

2 0 ..If a < o then end 

* 本本 Long sub 

2210 ANS ANS+1：goto 2180 

2 2 2 0 Y (I) A N S ^icopy answer! 

2230 return 

2 乙 1 10 Long compare a >- o ^ - 

2 2 5 0 
2260 
2270 
2280 
2290 
2 300 
23 10 
2320 return 

2 a 3 0 - Long substruct a ■ a-o - 

234 0 - A () から 0 () を引きます•答えは A () に入ります. 

2350 ZCARRY-0 

2360 for ZI-0 to KETA 

2 370 A ( ZI )- A ( ZI )-0( ZI)-ZCARRY 

2380 if A (ZI)<0 then A (ZI)-A (ZI) + 10:ZCARRY-1 else ZCARRY-« 
2390 next 
2400 return 


A () と 0 () の比較を行います. A () <0 () ならば CARRY - 1 になります. 
C A R R Y = 0 

for Z 卜 KETA to 0 step -1 
if A (ZI) -0 (ZI) then 2310 
if A (ZI)<0 (ZI) then CARRY-1 
ZI 1 
next 


したがって ^ の項は消えて 
f ( x ) = 2 J bn sin nx 
となりますソ 
ここで，次のような関数 

l 0( x = 土； r ) 

の形を無限に繰り返す関数を考えると（図 
4) これは奇関数で， 

bn = vIo {{x)s in nx dx 
=—f x sin nx da ： 


4 (平せ H :) 


_2 卜（ -1”+1 、 

7 t \ n ノ 

=|( - l) n+1 

よって 

f ( x ) = 2 bn sin nx 


(- 1 ) n 


sin nx 


•X 

7t 


■icosnx 


] o + F/: COsnxdx 

J スト 


:oV (_ i ) n+i smnx 
v ; n 


= 2 ^sin x 

多珩の割り算（全機種） 


sin 2 oc . sin 3 x sin 
2+ 3 4 


をマネすれば掛ける数は常に1桁ですから， 
除算のように引いた数を数えるといった手 
間もないので，桁上げが1だけでない点に 
注意すればそれほど難しくないはずです。 


無理数を計算しよう 


m 


これで四則演算はできるようになりまし 
た。ここでなにか面白そうな応用はないか 
考えていたらちようどよさそうなネタがあ 
りました。#や 7 T などの無理数です。平 
方根については以前紹介したので今回は 7 T 
に挑戦してみましよう。 

冗というのは少々やっかいな定数です。 
たとえば平方根などは2度桂卜けるとある数 
になるといったぐあいに数字っぽくとらえ 
られるのですが， 7 T は円の円周と直径の比 
という なんだかコンパスで描いた円にそっ 
て糸を張って長さを測っているような感じ 
です。図形から幾何学的に考えていくとす 
ぐに平方根のお世話になることになってし 
まいます。また私たちは四則演算しかでき 
ないのですから平方根はご法度です。 

そこで，少々難しい話になりますが代数 
のお世話になることにしましよう。「理屈な 
んて頭痛くなるからいやだ」という人は読 
み飛ばしてください。 

_冗を求める計算式 
規則的な現象（一定の音階の音などもこ 
のたぐい）を表す周期関数は sin ， cos の級 
数として表すことができるのではないか。 
このことを統計的に研究したのがフーリエ 
さん （1768 〜1830年）です。無線やオーデ 
イオ（ハード）が好きな人ならよ〈ご存じ 
の，入力波形をフイルタにかけて「ある波 
長の成分がどのくらい入っているか」を調 
ベるスぺクトルアナライザという装置があ 
りますが，それを数学的にやるのがフーリ 
エ展開というものです。 

いま，てが一 tt から+冗の間で， 

f(X)= f + n?i (anC0SnX+bnSinrlX) 

と展開され，右側の級数が一様収束すれば， 
a n = 士ノ 〆㈡ cos nx dx 


bn =丄 j _ 冗 f ⑻ sin nx dx 

の 2 つの式が成立します。いま， f ( x ) が奇 
関数とすると， 

a n = 丄厂龙 f (エ ） cosnx dx = 0 

7C J—7Z 

b n =i P f ( x ) sin nx dx 
=—/ f ( x ) sin nx dx 


り 
商余 


Y A 


数 

る 

れ数 
数らる 

桁割割 


Sb ブ A 
桁 

多 V K S 〇 
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1290 

1390 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1449 

1450 
1460 
1479 
1486 
1490 
1596 
1510 
1528 
1530 
1540 
1556 
1560 
1570 
1586 
1598 
1691 
1610 


計算結果の表示を行います.表示されるのは 

COUNT. 躲り返した回数 . U) . 割り算の結果 

X0 . PAI の計算結果 • の 3 つです. 


locate 0,1 0 ： p r i I 
locate 0,12:pri 丨 
for I-KETA to 0 
print right$ 
next I 

locate 0,14 ： p rin 
for I-KETA to 8 
print rig h t $ ( 
next I 
print 

A (6) -0：O (0) -0 (0) 
for 卜 1 to KETA 
A ⑴ -0 ： O(I) -0 (I) 


it "Count - " ； C0UNT 

it Syou ••••"； 
step -1 

(str$(Y (I)),1)；：i f I- 

it -Pai . -: 

step -1 

(str$(X(I)),l )；： 


拿 / 


KETA then p r 


•KETA then pri 


+ 2 ： if 0 (0) >-10 then 0 (0)-0 (0)-10 ： CARRY-1 else CARRY-0 
+ CARRY：if 0 (I) >-10 then 0 (I)-0 (I)-10 ： CARRY-1 else CARRY- 


go to 1250 

* - Long 

X () と Y() を . 

CARRY-9 
for 卜 8 to KETA 

X(I)-X(I)+Y(I)+CAR8Y：if X(I)>-10 then X (I)-X (I)-10 ： CARRY-1 el 


addition x - * + y - 

足します.答えは X () に入ります 


CARRY-0 


bstruct 籯着蕙一 y - 

を引きます.答えは x () に入ります 


- Long s u 

X 〇から Y () 

CARRY-* 
for I-« to KETA 

X(I)-^(I)-Y(I)-CAREY：if X ⑴ <6 then X (I)-X (I) + 1 0 ： CARRY-1 else CARRY-0 
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することにこだわったため，いまひとつコ 
ンピュータ向きでなく，速度の点で必ずし 
も満足のいくものではありませんが，なん 
とか動くというセンまでは行けたようです。 


気合のある人は2進法で計算するようにし 
てみましよう。商を求めるのが比較1回で 
すみますから，害 U り算はけっこう速くなる 
でしよう。 


図 4 関数 f(x) 


f(x) = 





leee 

；/♦ 

me 


1020 


1836 

• # # , 

me 


1056 

d e i • 

1060 

c 1 s ： 

1070 

i n p u 

1080 

d i 騰 : 

1090 

,/* 

1100 


me 


1120 


1130 


1140 


1150 


1166 


1178 

for 

1180 

S 

1190 

next 

1200 

S (KE ， 


tie 


\ i e PAI ) by kuwtny a 


-*/ 


• 以下の計算は固定小数点演算ですので整数扱いで計算しています. 

.S(KETA},0(KETA) などが 1 の位 ， S (KETA-1) は e. 1 の位というぐあいです . 
i n t A-Z 
locate 0,S 

t ^KETA • - ； KETA ： KETA-KETA-1 
S (KETA),0 (KETA),A(KETA) ， X(KETA) , Y(KETA) 



； (KETA)-4：0 (0)-1 

me /*. 

1220 - . 割り算の結果，得られた商を使って PAI の計算を行います 
1230 - • 計算結果は X() に入ります 4/1-4/3+4/5-4/7+4/9-4/11 

1240 * ... 

1258 
1260 
1278 
1280 


gosub 1720 

if FLAG - 0 then gosub 1506 else go s u 
FLAG ■卜 FLAG: C0UNT-C0UNT+1 

/* . 


1570 


’ ivid e 
* 拿拿 Long add s u 


+ • 


こで X .= f とすれば 

|L = 2 ( 1 _0 + ^1_0 + |. 


よって， 

7t_. 


一 + + 士 - + + j 一 • 


ここでは TT が欲しいので 


ぺ十+ 
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というぐあいになります。みごとに整数の 
加減，除算で; r が求められそうな感じです。 

ただ，この級数は分母が1次式で表現さ 
れている (2 n - l ) のために，あまり収束は 
速そうではありません。しかし，とにかく 
私たちがここまで作ったプログラムがその 
まま使えそうな式ができたわけですから， 
実際にやってみることにしましょう。 

• 7 T を求めるプログラム 

さて，眠い目をゴリゴリしながらプログ 
ラムにしてみました（リスト2)〇とはいっ 
ても新しく作ったのはほんの少しですから 
読むのは容易ですね。 

入力が終わったら RUN してみましょう。 
「 KETA = ?」と聞いてくるので桁数を入れ 
てください。あとはお茶でも飲みながら， 
ときどき見に行ってあげましょう。 

やはり1次でしか収束しないので，正し 
い値に近づくのに時間がかかります。ただ， 
このプログラムを見てわかるように，計算 
は比較と加減算だけで構成されているので， 
アセンブラで書き直すのもわりと容易です 
から，その方向で高速化もできるでしょう。 

アルゴリズムから攻めるなら，もう少し 
次数の高い式を見つけることです。フーリ 
ェ展開で fGr ) を偶関数とすれば 

a n = 号/'〇 f ( x ) cos nx dx ， bn = 0 
となりますから 


cos nx 


となり，これを 

f(x) = X 2 (-7t<0C^7t) 

という偶関数に適用してやれば 

-g =1+2^ + 32-+4 7 +5?-…… 

という結果を得ることができます。 

; r についてはその不思議な性質のためか 
かなり研究も行われており，このほかにも 
いろいろな式があります。興味のある方は 
暇をみて図書館通いでもやってみると面白 
いのではないでしよう力、。 

BASIC で数百桁の演算をさせようという 
もくろみに始まって， 7 T を求めるところま 
でやってみました。あくまで手計算をマネ 


これです. 


•i 
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す V 

ま^ 
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た 2 f 割ま 
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STm i ft i p 
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逆上を生きがいとする男•祝一平氏が今回は「電卓プログラム」にこだわっています。で 
も，その“こだわり”こそがアマチュアプログラマの醍醐味といえるのでしよラね。皆さ 
んもこれをもとにしてあなた自身のオリジナル電卓を作ってみてはいかがでしよ5。 




ど一して電卓なのか 


バソコン 上の電卓といえば知っている人 
は知っているように， Macintosh や MZ -25 
〇〇など，さまざまな機種上で バシバ シと動 
いているわけである（いわゆるサイドキッ 
ク機能）。そして，伝え聞くところによると， 
Mac の電卓にはさまざまな バリ エー シヨン 
があり，中には コンスト ラク シヨ ン電卓ま 
であるという充実ぶりだそ一である。それ 
に対し，わが MZ - 2500の電卓といえば，12 

桁，16進対応-ながら，困ったことに 

平方根を初めとする関数機能がまったくな 
いという，じつにヮガママな電卓である。 
さらに，ほかの MZ や Xl / turbo にいたって 
は，電卓など影も形もないというていたら 
くでぁる。 

そこで私はむっとしながら電卓を作るわ 
けであった。しかし読者の中には「いった 
いそんなもんを作ってど一ゆ一意味がある 
のだ」と悩んでしまう方もおられるに違い 
ない。たしかにそのと一りである。その疑 
問を裏付けるように，今まで Oh ! MZ に電 
卓 プログラムの 投稿は ひとつも 来ていない 
そうである。 

だが，私はここで敢えて電卓プログラム 
を書いてしまうのである。その場合におけ 
るメリットとしては， 

1) 表示行数を好きなだけ取れる（なんで 
1行表示の電卓しかないのだっ！ シャ 
ープとカシオはなにやってんだ！） 

2) メモリ（数値の一時退避）を好きなだ 
け用意できる 

3) HP (ヒューレットパッカード社） の 
電卓のように，2進数，8進数の シフト 
や ローテ イトなどをサポートした， その 
筋な機能のものがただで使える（もちろ 



んパソコンを 持っていればの話だが） 

4) それだけではなく，複素数（高校で習 
うのである）をサポートしたものや，プ 
ログラム機能のあるものや，好きなだけ 
の桁数で計算できるなど，思いつく限り 
のワガママを満たすことが可能である 

5) 電池がなくても，また暗闇でも使える 

6) ボタンや表示のレイアウトなどを好き 
に変えられる 

7) 正しく工夫すればプリンタ付き電卓に 
なる 

などなどとなっている。 

結局は一種の ヒマプロ と解釈してもよい 
のだが，案外と実用性があったりもするの 
である。それはなぜかというと，不思議な 
ことに1986年現在，電卓の進化が止まって 
いるからなのだ。電卓は太陽電池付きの力 
ード型になった段階で自ら袋小路に入って 
しまったわけである。本来ならば操作性の 
向上や高機能化などの方向も残されている 
はずなのに，そちらのほうはないがしろに 
されてしまっているのだ。そこで，私は究 
極の理系用電卓を欲しいと思っているので 
ある。シャープさん，この プログラムを 参 
考にして作ってくださいな，である。 



ではプログラムを説明しよう。電卓には 
シャープ系とカシオ系（さらにはマイナー 
だけど HP 系）があるわけだが，ここでは 
当然のことのようにシャープ系の操作と対 
比させて説明する。 

まず， RUN すると左上に“ 0”が表示さ 
れる。これが普通の電卓の表示部分に対応 
するメイン表示部である。その下に“ A ” 〜 
“J ”と“0”が表示される。これが必要かつ 
十分な10個のメモリである。使い方はたと 


えば， 

• IS H I FT I + m を柙すとメモリ A 
にメイン表示部の数値をコピーする（つ 
まり 「 X — Mj である） 

• [ A ] を押すとメモリ A の値をメイン表， 
示部にコピーする（つまり 「RMj ) 

となっている。これを使うと ， mm 
fBl でメモリ A とメモリ B に入っている 
2つの数字を加算することなどができる。 
これは，複雑な式などのときにはじつに重 
宝であろう。 

さて，そのほかにもなにやら表示されて 
いるが，これが関数機能である。ざっと説 
明しておくと， 


CLR 

= 電卓の C キーに対応 

HOME 

=電卓の CE キーに対応 

K ：1 /x 

=逆数 

L : LOGn 

=自然対数 

M : SIN 

= SIN 関数 

N : COS 

= COS 関数 

P : PAI 

= PAI ( x ) 

R : SQR 

= SQR ( x ) 

S : +/- 

=符号反転 

T : TAN 

= TAN 関数 

U : INT 

=切り捨て 

V : ROUND 

=四捨五入 

W：FRAC 

=小数部分 

X : CUTUP 

=切り上げ 

Y : EXP 

= e の x 乗 

Z : RND 

= 0以上1未満の乱数 

となっている。 

私としては，切り捨て，四 


捨五入，小数部分の取り出し，切り上げな 
どは電卓に当然あるべきだと思っているの 
で付けたわけである。じつに気分がよい。 

さて，関数だけではなく四則演算なども 
説明せねばなるまい。使用可能なものは+ 
一 X +, それからべき乗である。べき乗は 
本来ならば“へ”を使うべきだが，プログ 
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ラムの都合で□(カンマ）になってい 
る。すなわち， mrnm と押すと， 

2の3乗であるから8になるわけである。 

あと説明しておくべき機能というと， 
H を使った連続計算がある。つまり， 
mmmr ^ i と押すと“8”となるの 
はあたりまえだが，ここでもう一度 [ E 1 
を押すとさらに+ 3されて，“11”となり， 
さらに [ EJ を押すと“14” ……となるの 
である。 


自由に作り変えてぼしし、のだ 



説明はこれぐらいにして，次に弁解をし 
ておく。まず第一に，この電卓は16進数を 
扱えない。次に，電卓というものは意外と 


複雑なものらしく，私のプログラムではキ 
チンと ^1^1 を押さないと，変な値が表示 
されてしまうことがままある。また，でき 
ることなら桁数を40桁ぐらいにしてガシガ 
シと超高精度の電卓にしたかったのだが， 
やはり速度の関係で妥協してしまった。と 
いうところて’ある。 

そのよ一なわけもあって私は，このプロ 
グラムは「読者がオリジナルの電卓を作る 
ための参考」にしていただきたいと思うの 
である。プログラムは単純であるから改造 
も容易である。多桁演算は今回の棄野氏の 
プログラムを参考にすればいいだろう。た 
だしこの場合は，閨数のサポートは難しく 
なる。 

ところで，私はこのプログラムを作って 
いるときに，最近はシャープもカシオも電 
卓のテレビ CM を流さなくなっていること 
に気がついてしまった。考えてみれば最近 
は，この電卓というものは自分で買うもの 


ではなく，人から貰うものになってしまつ 


ているのであった。また，すでに電卓は卓 
上ではなく，掌上計算機になってしまって 
いる。そのよ一な時代であるからこそ「わ 


れわれは卓上のパソコンで，自分だけの電 


卓を作るべきなのである」と，わけのわか 
らない結論を述べてしまうのであった。で 
は，ごきげんよ一。 


(写真は開発途中のものです） 
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リスト電卓プログラム （ HuBASIC , BASIC - M 25) 


100 CLS 

110 DEFDBL A-J,L-Z ： T=0 ： FF=0：DIM R(10) 

120 FOR K = ASC( "A" )TO ASC (” J" > : GOSUB 820 : NEXT : ，メモリ-を表示 

130 LOCATE 0,laiPRINT^CLErCLR CE=HOME 

140 LOCATE 0 ， 14:PRINT”K:l/x L: LOGn” ： ，閱数表 

150 LOCATE 0,15 ： PRINT"M ： SIN N:COS.. 

160 LOCATE 0,16:PRINT”P:PAI R ： SQR U 
170 LOCATE 0,17:PRINT n S：+/- T:TAN” 

180 LOCATE 0,18 ： PRINT"U：INT V : ROUND 
190 LOCATE 0,19 ： PRINT"W:FRAC X：CUTUP 
200 LOCATE 0,20:PRINT"Y：EXP Z：RND 
210 T=0:T1=0:OP$="+ M 
220 S = 0：GOSUB 900 : , 初期化 

230 » 

240 GOSUB 860 : * INKEY 

250 IF 《 ASC<"0 ，， }<=K>*(KC=ASC<"9"> > THEN GG=0：GOTO 370 : ，数字 
260 FF=0 

270 IF (ASC (•• 拿 "} く： K>*<K く： ASCr/")) THEN 400 :，演算子 
280 IF K$ = " = " THEN 400 : , 演算子その 2 

290 GG=0 

300 IF (ASC( ,, A ,, )<=K)*(K<=ASC("J M ) ) THEN 580 :，メモリーから 

310 IF (ASCra" )<=K)*(K<=ASC( M j") ) THEN 600 :，メモリーへ 

320 IF (ASC( ,, K H ) <=K) * (K<=ASC( U Z H ) ) THEN 630: ，関数計算 

330 IF K=12 THEN 210 : , CLR 

340 IF K=ll THEN 220 : , CE= ひとつ取消 

350 GOTO 240 : * LOOP 

360 ’ 数字 入力 

370 IF FF THEN LOCATE 0,0：PRINT SPACE$(25) : LOCATE 1,0 

380 PRINT K$ ； : FF=0:GOTO240 

390 ’ 演算子 入力 

400 IF K$<>，，.，，THEN 430 

410 IF CMA=0 THEN CMA=1 : GOTO 370 : , 数字 入力へ 
420 GOTO 240: »CMA=1 ならば小数点無効 

430 IF (GG=U*U$ = " = ") THEN 480 : ， ••= "による 繰返し計算 
440 IF GG=1 THEN OP$=K$ ： FF=1：GOTO 240 ： » 演算子変更 
450 » 

460 T1=VAL(SCRN$(0,0,30) ) : FF=1 ： GG=1 :’ 表示中の数値の取出し 
470 Q=ASC(OP$) : IF K$ <>” =，， THEN OP$=K$ 

480 ON Q-ASC()+1 GOTO 500,510,520,530,540,550 
490 STOP 

500 T=T*T1：GOTO 560 
510 T=T+T1：GOTO 560 
520 T=T A T1:GOTO 560 
530 T=T-T1：GOTO 560 
540 » 

550 T=T/T1：GOTO 560 

560 S=T：GOSUB 900:GOTO 240 

570 * 

580 S=R(K-ASC( "A*') ) : GOSUB 900 : FF=1：GOTO 240: ，メモリーカ、ら 
590 » 

600 R(K-ASC("a"))=VAL(SCRN$(0,0,30)) ，メモリーへ 

610 K=K-ASC( M a")+ASC("A") : GOSUB 820:FF=1:GOTO 240 
620 » 

630 T1=VAL(SCRN$(0,0,30)) :，間数処理 

640 IF K$=”K” THEN S=1/T1：GOTO 790 

650 IF K$ = . ， L” THEN S = L0G(T1) : GOTO 790 

660 IF K$ = "M , ' THEN S=SIN(T1) : GOTO 790 

670 IF K$="N” THEN S=COS(Tl) : GOTO 790 

680 IF K$=”P” THEN S=PAI(T1):GOTO 790 

690 IF K$="R” THEN S=SQR(T1) : GOTO 790 

700 IF K$= n S" THEN S=-T1:GOTO 790 

710 IF K$ = ， ’ T” THEN S=TAN(T1) : GOTO 790 

720 IF K$="U" THEN S=INT(T1) : GOTO 790 

730 IF K$=”V" THEN S=INT(Tl+.5) : GOTO 790 

740 IF K$=”W” THEN S=FRAC(T1) : GOTO 790 

750 IF K$ = ” X，，THEN S=CINT(T1) : GOTO 790 

760 IF K$ = ，， Y” THEN S = EXP(T1) : GOTO 790 

770 IF K$="Z" THEN S=RND(1) : GOTO 790 

780 GOTO 240 

790 GOSUB 900:FF=1：GOTO 240 
800 , T = 0 ： T1=0 ： OP$ = ,, + M 
810 ’ メモリーを表示 
820 K1=K_ASC(”A”} 

830 LOCATE 0,Kl+2:PRINT CHR$(K)+SPACE$(25) 

840 LOCATE 3,K1+2:PRINT R(K1) : RETURN 
850 »KEYIN 

860 K$ = INKEY$: IF K$0”，’ THEN 860 

870 K$ = INKEY$:IF K$ =，，，，THEN 870 

880 K=ASC(K$) : RETURN 

890 ， S を左上に表示 

900 LOCATE 0,0:PRINT SPACES(25) 

910 LOCATE 0,0:PRINT S 
920 LOCATE 1 t 0 ： CMA=0 
930 RETURN 
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8 月号の「猫とコンピュータ j で「パソコン通信シミュレーション」のお話が出てきまし 
たね。ブログラムというものは元来そういうシミュレータ的性格を持っています。実用的 
でなくなったっていいじやないか。それがアマチュアプログラマの特権なのですから。 



世の男性のなかには模型作りを趣味と 
している人がけっこう多いですね。ガンダ 
ムなどのプラモデルに凝った塗装をすると 
ころから始まって，軍人模型を自分で改造 
して1個師団を作りあげてみたり，鉄道模 
型を自分の部屋に張りめぐらせてみたり。 
あげくのはてには実際にある建築物や乗り 
物の“原寸大”を作るに至る （？） わけです。 
作成中の姿たるや，年齢を問わず不気味な 
もので，さながら映画『太陽を盗んだ男』 

の沢田研二が演じていた主人公のような雰 
囲気が漂っています。 

さて，プログラムも模型作りと同じよう 
な狙いで作り出すことがあるでしよう。自 
作ソフトを作ってみたところ，機能的にある 
有名な市販ソフトに近いような場合は，そ 
の道に走ってしまうことも多いとか。つま 
り，プロダラム作成の動機として市販ソフ 
卜やあるシステムの模型，すなわち“ミニ 
チュア”を作ることはよくあることなので 
す（たまに営利的に海賊版を作成すること 
もあるようですが，それは禁じられている 
ようです)。 

また，実際の世界における出来.事をシミ 
ュレートすることは，パソコンの大きな役 
目のひとつです。たとえば，ゴルフゲーム 
とかシミュレーシヨンウオーゲームなどは 
実世界の“ミニチュア”にほかなりません。 
こういったものを作ることは，目標がはっ 
きりしていますから，プログラミングの勉 
強にもおおいに役立ちます。 

というわけで，今回私が作成したのは， 
あるパソコン通信サービスをいかにも利用 
中であるかのようにする BBS シミュレータ 


です。どのサービス会社のものかは作って 
からのお楽しみとします力夂デイスクがガ 
チガチと鳴ること以外はだいぶ本物に接近 
させてあります0ボーレートはだいたい300 
ボーです。 

今回はとりあえずボード（電子掲示板） 
への書き込み，読み出しだけのものを発表 
します力 ? ，たとえばこれに電子 （？） メール 


を加えてみたりすれば楽しいでしょうし検 
索機能を付ければデータベースとしても活 
用できます。そうやって機能やメッセージ 
を充実させたうえで実際にオンライン接続 
ができるようにすれば，今度はシミュレー 
夕ではなく本物のホストシステムになって 
しまいますね（ただし，スピードなどの問 
題が残るでしようが)。この種の作業はブラ 


リスト1メニュー作成用プログラム （ HuBASIC 、 BASIC - M 25) 


iee bem - 

110 PRINT BBS —P では 10 種類までのボードを使用できます . 

120 PRIHT - 作りたいボードの名前を記入してください .- 
130 PRINT - 終了なら [•] ( ピリオド〉です ._ 

148 PRINT 
150 DIM F$ (10) 

160 INPUT 初めての登録ですか [y/nj * ； B$ 

170 IF OR B$-*Y' THEN OPEN *0~1BBS-HENU*：CLOSE 

189 X-l 

190 OPEN * I* ,#1, "BBS-IIEHU' 

206 WHILE NOT EOF (1) 

218 IKPUT «1,F$ (X) 

220 PRINT F$(X) : X-X+l 

230 WEND 

240 CL0SE ： FH-X 

256 - 

268 PRIHT 

270 INPUT 、 BOARD NAME- 〉 • ： ANS$ 

288 IF AHS$-". - THEN 336 
290 OPEN AHS$ ： CL0SE 

300 OPEN AMS*+"-IDX* : CLOSE 

310 F* (FH) -ANS* ： FM-PI(+1 ： G0T0 268 
320 * 

330 KILL *BBS-MENU" 

340 OPEK "(T ,#1, -BBS-MENIT 
356 FOR X-l TO FM-1 

360 PRINT m, F$ (X) 

379 NEXT 

380 CLOSE 

リスト 2 BBS-P メインプログラム （ HuBASIC 、 BASIC _ M 25) 


000 REM . .BBS-P ； 

010 TS$-TIHE$ 

029 CLS 

030 DIM F$ (10) ,BUNS (100) 

040 RFULL- 109 

050 DIM RV (RFULL),RA$ (RFULL) ,RB$ (RFULL) ,RC$ (RFULL) 

060 X-l 

979 OPEN - I",»1,-BBS-MENU- 

e80 -HILE MOT EOF ( 1 ) 

090 INPUT 1U,F$(X) 

100 X-X+l 

lid WEND 

120 CL0SE ： FH-X-1 

130 REM ..aa i n ()； 

140 CLS 

158 WS-" ID CODE - >" ： G0SUB 2830 

160 GOSUB 2946 

170 WS-- PASSWORD - >~ ： G0SUB 2830 
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PWS-^ps"：GOSUB 2940：PRINT - 
PW$-"~ ： PRINT：PRINT 

ff$-" WELCOME TO BBS-P ( Version 8.1)* 

GOSUB 2830 ： PRIKT：PRINT 

PRINT ： W$-"<« MAIN >>>- 

GOSUB 2838 ： PRINT ： PRINT 

FOR X-l TO FM 

W$-STR$ (X)+" : " + F$(X) : GOSUB 2830 ： PRINT 
NEXT X：PRINT 

[ MAIN ] Input No. (Q：Log off)：" 

GOSUB 2830：IKPUT ZS 

IF {Z$ ， <T) OR (Z$-“(T) THEN 1330 
Z-VAL (Z$) 

IF (Z>6) AND (Z<-FM) THEN 1460 
GOTO 1278 

REM - -end ； 


■+TS $： GOSUB 2830 ： PRINT 
ゞ TIMES: GOSUB 2836 ： PRINT 


accessing. 


PBIHT 


PRINT 

+ F$ (Z) +" >>〆： GOSUB 2830 : PRINT 
--> -: GOSUB 2830 


THEN 1656 
THEN 2256 
THEN 1760 
THEN 1220 


入 $ 


W$-""logon i 
ff$-"Iogo f f 
PRINT 

ff" Thank you for 
GOSUB 2830 ： PRINT 
W$〆 See you ag 

GOSUB 2830: PRINT ： 

W$- - ### D i sconnec ted.' 

GOSUB 2830 ： PRINT：PRINT 
FOR X-l TO 3000 + RND (1)*1000:NEXT 
PRINT CHR$ (31+RND (1)*224 )； 

GOTO 1430 

REM - BBS ： 

OPEN FS(Z)+"-lDX" 

X-l 

WHILE HOT EOF (1) 

INPUT #1,RV (X) 

INPUT #1,RA$(X) 

IKPUT »1,RB$(X) 

INPUT 
X-X+l 

WEND 

CLOSE ： REKD-X-1 
PRINT ： W$--<« 

PRINT ： W$-F$(Z) 

INPUT J$ 

IP (J$-"u*) OR (JS-^U-) 

IF (JS-V) OR (J$-T) 

IF OR (J*- 丁） 

IF (J$-*e-) OR (J$--E~) 

GOTO 1580 

REU - Up Load ； 

INPUT "> ファイル名は : " ； UP$ 

X-l 

OPEN " I ',#1,UP$ 

IF EOF (1)THEN 1750 
LINE INPUT #1,BUN$ (X) 

PRINT BUN$ (X) 

INPUT -> この行は必要ですか (y/n 
IF A$-'n- THEN 1690 
X-X+l：GOTO 1690 
CL0SE ： EL-X-1 

REM - 寶 ritingJ 

W$-' :- 

GOSUB 2830：PRIKT 
W$«- * ： G0SUB 2830 

GOSUB 2949 ： T$-W$ 

IF {J$- - u") OR (J$--U - ) THEN 1880 
W$-"sente n ce: •: GOSUB 2830：PRIMT 
FOR X-l TO 1000 

GOSUB 2940 ： BUN$(X) -W$ 

IF BUN$ (X) パ ， THEN 1870 

NEXT X 

EL-X-1：PBIHT 

ff"[1]read again [2] c t nc eI [3] OK 
GOSUB 2830：INPUT "[1-3 ]*；A 
ON A GOTO 1920 ， 1570，2000 
GOTO 1880 

REM - read again ； 

»$-T$+SPACE$(40-LEN(T$)) +DATES 
W$-W$+SPACE$ (10-LEN(DATES) ) +TIHE$ 

GOSUB 2830 ： PRIHT：PRIHT 
FOR X-l TO EL 

W$-BUN$ (X) : GOSUB 283e：PRINT 
NEXT X 
GOTO 1878 

REM - file addition ； 

FOR X-REND TO1 STEP -1 
RV (X+l)-RV (X) +EL 
RA$ (X+l)-RA$(X) 

RB$ (X+l) -RB$ (X) 

RC$ (X+l) -RC$ (X) 

NEXT X 

REND-REND+1 

RV (1)-EL ： RA$(1)-T$ 

RB$ (1)-DATE$ ： RC$(1)-TIMES 
NAME F$(Z) AS ~ d a a b y u 
OPEN "damoy" 

OPEN -0-,#2,F$(Z) 

FOR X-l TO EL 

PRINT #2,BUNS (X) 

NEXT 

WHILE NOT EOF (1) 

LINE INPUT 林 1,D$ 

PRINT #2 ， D$ 

WEND 

CLOSE 

KILL 

KILL F$ (Z) + 、 1DX" 




モデルと同じくとりあえず母体を作ってお 
き，徐々に本物に迫っていくのがもっとも 
現実的な取り組み方でしょう。 


模型の作り方 


さて“模型”ソフトの作り方ですが，な 
んといっても見かけが重要です。内容はと 
もかく，模型である以上“外観”がソック 
リであることが要求されるわけですから。 
方法は表示部分のプログラム作りに綿密な 
注意を払い，画面の表示手順ぉよび絵や文 
字の表示を本物とソックリにすることです。 
オリジナル画面を調べて，同じようなデザ 
インで表示できるようにプログラムを組み 
ます。この際の処理速度にはあまり注意 
を払わなくてもいいでしよう。 

次に操作方法を極力，オリジナルに似せ 
ることも不可欠です。たとえばスペースキ 
一を押して変換すると力 1 ，アイコンでメニ 
ューを選択するとかです。これは現実に市 
販ソフトで行われていることで，たとえば 
米国製ソフトでカーソル移動にコントロー 
ルキー +[ E ]，[ S ]，[ D ]， [ X ]を使って 
WordStar と同じにしてあるものはわりと 
よく目につきます。 

プログラムの流れの展開も本物に似せま 
しよう 0 ゲームソフトなら，ストーリーを 
そっくりにすると力',業務ソフトなら処理 
手順を本物と同じにすることです。 

さあ，あなたも「一太郎」や 「MULTIP 
LAN 」 を作ってみませんか？ な〜んてい 
って，そう簡単にできるわけないか……。 

B 巳 S - P の使い方 

まずリスト1のメニュー作成用プログラ 
ムを使って，作成したいメニューファイル 
名（ボード名）を登録してぉきます 。 ANI 
ME , SPORTS ， DIARY などなんでもけ 
っこうです。あとでボードを追加するとき 
もこのプログラムを使ってください。 

登録が終わったらリスト2の BBS - P を 
起動します。使用方法は，これがどのパソ 


00000000000000000 9000000000000000000000000000000008000000000000000000000000000000000000000000000000000000 
890123456789812345678981234567890123456 7 89012345678981234567890123456789812345678901234567890123456789012 
11222222222233333333334444444444555555555566666666667777777777888 8888008899999 9999980080000001111111111222 
11111111111111111111111111111111111111111111111111111111111111111111 11] 1111111111122222222222222222222222 
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コン通信サービスの“模型”であるかおわ 
かりになる方には必要ないでしようが，そ 
うでない方のほうが多いと思いますので簡 
単に説明しておきます。 

•メニュー選択 

ここはオリジナルと違って数字による選 
択式にしました。使いたいボードを数字で 
選びます。 

•情報の書き込み 

W を入力します。タイトルを入力したあ 
と本文を書き込みます。最終行を [.] (ピ 
リオド）だけにすると終了します。 

W の代わりに U を入力するとすでに入力 
してあるファイルをデイスタから読み込み 
ます。つまりァップロード （？） です。 
•情報の閲覧/削除 

R を入力します。最大10件のタイトルが 
表示されますから数字で選んでください。 

N を入力すると次の10件に移ります。 

ここで D を入力したあと番号を入力する 
と，そのファイルを削除することができま 
す。 

[.] または E を入力するとメインメニュ 
一に戻ります。 

このソフト，“模型”ではありますが考え 
方しだいでいろいろな使い方が見つかりま 
す。 

1) 「書き込み」の練習 

実際にバソコン通信サービスにアクセス 
して書き込みをしようとすると思ったよう 
に文章が書けず，汗はタラタラ，時間はダ 
ラダラ，電話代はグングン高くなり，結局， 
気に入った文章が書けず「またあとで書き 
込もう J なんてことがよくあります。とい 
うよりも，ほとんどの人がそうであるとい 
ってよいでしよう。この BBS - P でおおい 
に練習してください。 

2) データベースとして 

もともと ホスト局システムをシミュレー 
卜しようというものですから，当然データ 
ベース機能を持っています，というよりも 
データベースそのものなのです。2840行を， 
2840 PRINT W $;: RETURN 
と書き直せば普通の入門用データベースと 
して十分使えます。身の回りの情報整理に 
役立ててください。 

3) 彳200ボーの練習 

まずは300ボーの世界，その遅さを体験し 
てみてください。そして，2870，2880行を 
削除して，3090行を RETURN にすれば， 
表示速度は1200ボーぐらい（ XI ではそこま 
でいかない）になります。もうすぐ来たる 
1200ボー時代に備えて，今から目を慣らし 
ておきましよう。 


2230 

2246 

2250 

2260 

2279 

2286 

2290 

2390 

2310 

2320 

2330 

2340 

2356 

2368 

2378 

2380 

2390 

2400 

2410 

2420 

2430 

2448 

2458 

2460 

2470 

2486 

2490 

2500 

2510 

2528 

2530 

2549 

2550 
2560 
2570 
2580 
2590 
2690 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2756 
2760 
2770 
2780 
2790 
2860 
2810 
2820 
2830 
2840 
2850 
2866 
2870 
2880 
2890 
2906 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2996 
3000 
3018 
3629 
3030 
3040 
3050 
3060 
3078 
3080 
3090 
3160 
3110 
3120 
3130 
3146 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 


G0SUB 3180 
GOTO 1460 

REM ..read RECORD*; 

Y-0 : PRINT 

IF REND>0 THEN 2298 

W$-"no f i ler ： G0SUB 2830 ： PR I NT ： GOTO 1570 
FOR X-l TO10 
U-Y*10+X 

IF U>REND THEK 2340 
G0SUB 3136 
ugX 

PRINT ： WS-' [ - + F$(Z)+- ] Input File Ho. - 
G0SUB 2830 ： INPUT A$: PRINT 
A-VAL (AS) : U-Y*10 + A 

IF (A$-"n") OR THEN Y-Y+l ： G0T0 2290 

IF (A$-"d") OR (A$-"D~) THEN 2520 
IF (AS»-e*) OR (A$-"E-) OR (AS〆，）THEN 1570 
IF (A<X) AND (A>0) THEN 2420 
GOTO 2340 
G0SUB 3130: PRINT 
OPEN * I"(Z) 

FOR X-l TO RV (U-l) 

LINE INPUT #1,A$ 

NEXT X 

FOR X-RV (U-1)+1 TO RV(U) 

LIME INPUT #1,»$ ： G0SUB 2830 ：PRIKT 
NEXT X 

CLOSE ： PRINT 
GOTO 2340 

REM - delete record ； 

1f$-" Input No. - >" : G0SUB 2830 
INPUT A 

IF A>X THEN 2530 
A-Y*10+A 
KAHE F$(Z) AS 
0PEH ■ I",»1,-da««y- 
OPEN '0",#2,P$ (Z) 

FOR X-l TO RV(A-l) 

LINE INPUT #1,D$ 

PRINT Jt2, D$ 

NEXT v 

FOR X-fiV(A-l)+l TO RV (A) 

LIKE INPUT 翁 1,D$ 

NEXT X 

FOR X-RV (A)+1 TO RV (REND) 

LINE INPUT »1,D$ 

PRINT #2,D$ 

NEXT X 

CLOSE 

FOR X-A TO REND-1 

RV (X) -8V (X-l)+RV (X+l) -RV (X) 

RA$ (X) -8A$ (X+l) 

RB$ (X)-RB$(X+l) 

RC$ (X) _RC$ (X+l) 

NEXT X 
REND-REND-1 
KILL "diumy" 

KILL F$ (Z)+"-lDX* 

G0SUB 3188 
GOTO 1460 

REM. flashing ； 

W-LEH (V$) 

FOR S-l TO W 
G0SUB 3080 

FOR V-l TO 100 : REM --- wait XI-> 20 

NEXT 

WZS-MID$ (W$,S,1) : WZ-ASC (WZS) 

I F WZ>-&H 80 AND WZ<-4H9F 08 l?Z>-&HE0 THEN WZ$-HID$ (W$, S f 2) : S-S+l 
PRINT WZS ； 

NEXT 

RETURN 

REM.. inkey ； 

w$--- 

G0SUB 3680 

Z$-INKEY$：IF Z$-'~ THEN 2970 
WZ-ASC (ZS) 

IF WZ-13 THEN PRINT - "：RETURN 

IF WZ>-&H80 AND HZ<-&H9F OR WZ>-&HE0 THEN Z$-Z$+IKKEY$ 

IF WZ<>8 THEN 3666 
IF W$-"* THEN 2978 
PRINT CHR$(32, 29, 29) ; :G0SUB 3086 
胃 * -LEFTS (»$,LEN(W$)-1) 

GOTO 2970 

W$-ff$+Z$：IF THEN PRINT Z $； 

GOTO 2960 

BEM - 

CREV 1 

PRINT CHR$ (32, 29): 

CREV 9 
RETURN 

REM - headl ine ； 

ff$-STRS (U)+" * + RA$ (U)+SPACES (60-4-LEN (RA$ (U))) 

W$-WS + RB$ (U)+SPACES (10-LEH(RB$(U)))+RC$(U) 

G0SUB 2830：PRINT 
RETURN 

REM - aake i n dex- f i I e ； 

OPEN "0-,ifl,F$ (Z) +--IDX- 
FOR X-l TO REND 

PRINT #1,RV (X) 

PRINT #1,RA$ (X) 

PRINT «1,RB$(X) 

PRINT #1,RC$ (X) 

NEXT X 

CLOSE 

RETURN 
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なプログラマ 


幸一 


プログラマというものは本当に十人十色，いろいろな癖を持っているものですね。そして 
それぞれの方法でプログラミングを楽しんでいます。ここでは当人にとってはいたって真 
剣で，でもはたから見るとちょっと滑稽な“プログラミングスタイル”を集めてみました。 


誰でもパソコンを購入した当初は自分で 
プログラムを組んでやろうと思うことだろ 
う0しかし当初の予定どおりにプログラム 
を作ることができる人は少ない。ある人の 
MZ はホコリをかぶり，ある人の XI はゲー 
ムマシンと化していく。マシン語をマスタ 
—する人間などごくまれで，その他大勢は 
やはり程度の違いこそあれ BASIC プログラ 
マである。 

だいたい，パソコンユーザーがみんなア 
センプリ言語をしゃべったりしたら，それ 
こそハッカーだらけになってろくなことは 
ない。もっともハッカーといっても2種類 
あり，よいハッカー（一般市民に迷惑をか 
けないハッカー）を白ハッカー，悪いハッ 
カーを黒ハッカーという。さらにはネオ • 
ハッカーやゲル•ハッカーもいるのだ（古い 
ネタだから20歳以上の人にしかわかるまい)。 

さて閑話休題，本題に入ろう。ここでは 
BASIC プログラマを中心に，その中で渦巻 
いている妙なヤツをヤリ玉にあげ，思いど 
おりにプログラムが作れなくて困っている 
人の助けにもなり，また中級以上を自覚し 
ている人にとっては懐かしささえ覚えるで 
あろう話をしたいと思う。王道でも見つか 
らないかぎり誰もが通る道である。自分が 
どのパターンにあてはまっている（いた） 
か楽しんで,今後の精進の糧にしてほしい。 

なお，サンブルはとり為えず MZ - 2500用 
であるから注意していただきたい。 





私が最初に作った長い（といってもたか 
が100行くらいだが当時の私にしては長か 
ったのだ）オリジナルプログラムはゲーム 
だった。どうせ暇を見つけて作るのならゲ 
ームを選ぶのがいい。夢もあるし，頭も想 


像力も使う。しかしながらプログラムなん 
てそう簡単に組めるものではないし，壮大 
な構想のゲームとなればなおさらである。 
しっかりした仕様とコーデイングなしでは 
すまされないの;^。 

そして，決して完成することのないプロ 
グラムを抱えた人はたくさん，少なくとも 
構想どおりのソフトを作れる人よりはたく 
さんいるのである。たとえば……。 

アイデアだけ作って寝ちやろヤツ 

こういうヤツがいちばんありがちで，誰 
にでも資格がある。アイデアだけが先走っ 
てしまうのである。そして自分のアイデア 
に溺れてしまい，将来そのソフトが完成す 
るときのことを考えながら，歩きながらで 
も授業中でも構想を練り続け，頭の中では 
キャラクターが架空の世界を縦横無尽に駆 
け巡っているのだ。あげくの果てには，布 
団に入ってからも自分がこれから作るであ 
ろうソフトのことを思い浮かべながら寝て 
しまうわけである。 

当然，プログラムはまだ1行も書かれて 
いない。今後，書かれることもないだろう。 
2っばかり原因が考えられる。ひとっには 
構想が膨らみ過ぎて自分のプログラミング 
能力を越えてしまいやすいこと。もうひと 
っは頭の中で想像力を膨らませて自分の世 
界に溺れてしまうと，自分にとって気持ち 
のよいシーンばかり考えてしまうので，そ 
れをいざ形にしようとすると細部がいいか 
げんだったりストーリーの流れがぶっ切れ 
だったりして，ゲーム化するにはかなり練 
り直す必要がでてくることである。またこ 
ういう場合もある0頭の中で自分のゲーム 
世界が完結した時点で満足してしまい，プ 
ログラミングする前に鉋きてしまう。 

彼らの特徴は，ひとつのアイデアが終わる 


となんの反省もなしにすぐ次の構想に取り 
かかってしまうことにある。想像力たくま 
しいのはいいのだが，頭ばかり使って手を 
動かさないと症状が発展して夢想癖となり， 
まわりから変なヤツと思われるので気をつ 
けたほうがいい。 

宣伝だけは派手なヤツ 

これはアイデアだけ作って寝ちゃうヤツ 
のバリエーションだと思ってよい。この夕 
イプの特徴は，完成してもいないソフトの 
アイデアを自分の頭にしまっておくだけで 
は満足できず，会う人ごとに「いま，これ 
これこういうゲームを作ってるんだ」とし 
やベってまわることにある。いかにももう 
すぐ完成するかのように（本人はたいてい 
その気だったりするのだが）真剣に話すの 
で聞くほうもノッてしまい，ときには「い 
や，そこはこうしたほうが面白い」などと 
口をはさんでしまうのである。 

で，得意げな当人はしゃべることによっ 
て知らず知らずのうちに虚栄心と想像力を 
満足させてしまい，いつのまにかそのソフ 
卜は完成しないまま闇へと消えていくので 
ある。困ったことに，しゃべった当人はい 
つのまにか次に作る予定のアイデアを得々 
としゃべり始めているのだ。 

まわりにこういう口だけは達者な人間が 
いても決して非難してはいけない。彼は決 
してホラを吹いているわけではないのだか 
ら。少なくとも他人にアイデアをしゃべっ 
ているときには本気でそのアイデアをプロ 
グラム化する気でいるはずなのだ0ただ， 
プログラムとして完成することによって得 
る満足より，人に話して得る満足のほうが 
先にきてしまうだけなのだ。アイデアだけ 
作って寝ちゃうヤツを内向的というならば, 
こちらは外向的といえるだろう。 
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GOSUB 文だけのメインルーチン 
を作って満足するやつ 

このタイプは，アイデアだけ作って寝ち 
ゃうヤツや宣伝だけは派手なヤツの発展型 
である。プログラムにしようという意欲は 
あるわけだ。 

彼らは非常に見やす いプログラムを 書く。 
それもそのはず，メインルーチンを見ると 
GOSUB 文， REM 文、ループと若干の判定 
だけである。たいていは派手なタイトル R 
EM がっいているが， プログラムを 見ても ど 
んなソフトなのかわからない。で，サブル 
ーチンはどこかなと捜すと，まだできてい 
ないという。なんのことはない。考えるの 
が面倒なサブルーチンをあとまわしにして 
格好だけっけたわけである。 

作った当人はどのサブルーチンが何をす 
るのかわかっているから，あとはサブルー 
チンを1っひとっ埋めていけば いいと 安心 
してしまい，結局このソフトも日の目を見 
ることはまずない。サブルーチンを作る際 
に行き詰まったり，逆に全貌が見えてしま 
ってやる気をなくしたりもする。まあ，コ 
ーデ イング もせずに気ままに，なおかっ ス 
パゲツティにならずにすますにはこの方法 
が都合がいいのは確かである。 

この手の組み方に慣れている人になると， 
あらかじめラベルと RETURN た^けのサブ 
ルーチンを 用意しておき，あとの作業をし 
やすくしている。こうすれば気ままに作れ 
るしデバ、 ッグ も楽である 0 もっとも，簡単 
な ルーチン だけはできるし実行しても エラ 
一は出ないのだが，完成品にはほど遠いと 
いう結果になることが往々にしてあるので 
注意していただきたい。 

じっをいうと，私もコーディングをした 
くないときや気まぐれで何か作りたくなっ 
たときはこの方法を愛用している。それど 
ころか，暇プロにはこの手をおすすめ，と 
までいい放って開き直ったりもするのであ 
る。 

オーブニング画面にばか*0凝るヤツ 

最初にメインルーチンを作るヤツの逆と 
考えてもよいが，彼らがメインルーチンの 
次に作るのが派手なオープニング画面であ 
ることも多い。 

私には理解できないのだが，どうして最 
初にタイトル画面を作るのだろう。確かに 
ソフトを実行すると最初に現れるのはタイ 
トルだ0だからといって初めにそれを作ら 
なければならないかというとそうではない。 
メインのプログラムができるまでタイトル 


画面なんてお座なりのものでいいのだ。だ 
いたいこういうヤツに限って凝り性で，何 
度も何度もプログラムをいじくりまわしな 
がらオープニング画面ばかり作っているの 
である。 

私の知り合いにもこういうヤツがいるの 
だが，たまに「新しいのができたよ」とい 
われて遊びに行くと，派手なオープニング 
画面を得意げな顔で見せてくれる。きれい 
な絵にアニメもどきが使ってあるので，こ 
れは面白そうだと画面にある 「HIT SPA 
CE KEY 」 に従ってスペースキーを押すと， 
とんでもないことに 0 K と表示されて終わ 
ってしまうのである。「この続きは？」と聞 
くと，「まだこれから」と平然と答えるのだ。 
しばらくしてまた遊びに行くと，この前の 
が気に入らなかったといってメインルーチ 
ンなど1行もできていないのに，またオー 
プニング画面を作っていたりする。 

こうして派手なオープニングを作るだけ 
のテクニックと根気があるくせに，完成品 


へたどりつく前に疲れ果ててしまうのだ。 
じつに残念である。 

キャラクターだけ作つてゲームが 
作れないヤツ 

オープニングばかり作っているヤツと似 
ているが，最近ではこちらのタイプのほう 
が多いと思われる。 PCG の付いたパソコン 
力 ? 増えて（といっても MZ と XI くらいた^^)， 
誰でも手軽にキャラクターが作れるように 
なったからだろう。 

このタイプはゲームを作ろうと思い立つ 
と何よりもまずキャラクター作りに取りか 
かるのである。優秀なエディタが付いてい 
るおかげで，いちばんビジュアル化しやす 
く，なおかつプログラミング能力がなくて 
も可能なキャラクター作成がつい最初にな 
ってしまうのだ。 

例によって困ったことに，彼らはキャラ 
クターを作るとそれを頭の中の世界で遊ば 
せ始めるのである。自分の世界に耽溺さえ 


図1 GOSUB だけのメインルーチン （ MZ - 250 0) 
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kill "PLANET.WAVE'* ： SAVE " PLANET. WAVE 

k 本拿*本本本•本*拿拿本本本本拿拿本 

* - プラネット.ウェーブ 

本 

* 

本 

本 


GOSUB 拿 INITIALIZE 
GOSUB *G SET 


86/07/20- 
By K.Yoshi 


«MAIK 

K$-INKEY$ 

ON INSTR (CMD$,K$)-1 GOSUB *LEFT_H0VE,*RIGHT_MOVE,*UP_HOVE,*D0WN_H0VE,* SHOO 


GOSUB *MISILE MOVE 
GOSUB *HIT_JUDGE 
GOSUB *ALIEN_M0VE 

GOSUB *STAGE_JUDGE 


IF LEFT_PLAYEH-0 THEN *F!N 


GOTO *MAIN 
END 

♦LEFT.HOVE 
RETURN 
♦ RIGHT.IIOVE 
RETURN 
♦UP MOVE 
RETURN 
*D0fN MOVE 
RETURN 
本 SHOOT 
RETURN 

拿 MISILE HOVE 
BETUBN 
♦HIT JUDGE 
RETURN 

♦STAGE JUDGE 

RETURN 

*ALIEN_HOVE 

RETURN 

♦INITIALIZE 

CLS 3 

CMD$-*Z4628 '：LEFT PLAYER-3 

RETURN 

*G_SET 

RETURN 

本 FIN 

END 
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SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 


LINE (0, 90) - (639, 90),5 ： G0SUB 18426 
FOR 卜 -32 TO 31 

XUP-(1 + 32)*10 ： XDOWN- ( (1 + 32)-20)*25 ：LIKE (XUP,90) - (XDOffN,19 9},5 
IF I MOD 18»8 THEN GOSUB 16426 
NEXT 

FOR い - 32 TO 31 

IF I<--3 THEN PAIMT ((I + 32)* 10- (I/18),91) f ((1 + 32) MOD 4)+1,5 ： GOTO 10280 
IF I>-3 AND I<6 THEM PAINT ((1 + 32)*1 8 + 3, 92), ((1 + 32) MOD 4)+1,5 ： G0T0 102 

PAINT ((1 + 32)*18 + (1/4),91),((I + S2) MOD 4)+1,5 
IF I MOD 4-0 THEN GOSUB 10420 
NEXT 

GOSUB 16448 
FOR 卜 -32 TO 31 

XUP- (I + 32)*10 ： XDOWN- ((1 + 32)-20)*25 :LINE (XUP,9 0) - (XDOWK,199), { (1 + 32) MO 

NEXT：LINE (8, 90)- (639, 90),9 
COLOR- (6,2) : COLOR= (5,4) : COLOR- (0 ， 1) 

CFLASH 1：LOCATE 28,22：PRINT ! T SPACE KEY!" 

FOR 1=0 TO 1008 

COLOR- ((I MOD 4) + 1,2) ： COLOR* (( (1 + 2) MOD 4)+1,4) 

COLOR-(( (1 + 3) MOD 4) + 1,4) : COLOR= (( (1 + 1) MOD 4)+1,2) 

ST$-INKEY$：IF ST$-~ - THEK CFLASH 0：END 
NEXT 

GOTO 10360 
'MUSIC 

PLAY ，， / {CCC} ■ ， - E--,:RETUBN 
MUSIC2 

PLAY , ,, ~C\ *E-" "G" : RETURN 


Lets アウト /^ ーン OPENING 

OPENING 

NIT "CRT2 ： 640, 208, 16"：IMIT "CRT：,, f r 
CLS 3 ： T$-* 03141128 S0" : PLAY ,,, T$+* 114008 M$+"H1 0 000 -, T$+1 0008- 

COLOR-(6, 0) ： COLOB-(7, 5) ： FOR 1-1 TO 5 ： C0L0R- (1,0) : NEXT 
CIRCLE (320,38),58,6：PAIKT (320,38),6,6 


ieeee 
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1 0320 
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16330 
1 0340 
1 0356 
16360 
10370 
16389 
10390 
1 0400 
10410 
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図 3 いまだ使われないキヤ豪クターデータ ( HuBASIC , MZ -2 S 00) 


1000 

PCG 

ieie 

DATA 

1928 

DATA 

1030 

DATA 

1840 

DATA 

1050 

DATA 

1860 

DATA 

1070 

DATA 

1880 

DATA 

1890 

DATA 

1100 

DATA 

1110 

DATA 

1120 

DATA 

1130 

DATA 

1140 

DAT 入 

1159 

DATA 

1160 

DATA 

1170 

DATA 

1188 

DATA 

1190 

DATA 

1208 

DATA 

1210 

DATA 

1220 

DATA 
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DATA 

1240 

DATA 

1250 
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DATA 
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DATA 
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DATA 

1299 

DATA 

1368 

DATA 

1310 

DATA 

1320 

DATA 

1330 

Dm 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

FOR I 

2880 

END 


EDITER DATA FILE for サイキ，ク .”- ス * 

0020,006000000008000609806000066800000960000000000006 
0021, FF80FF80FF80PF00FF80FF00FF00FF00FF00FF0«FF00FF00 
8022, 88FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF 
0023, FF80FF00FF00FF00FF00FF00FF00FF80FF80FF00FF00FF00 
0024, 80FF00FF00FF08FF00FF00FF00PF00FF00FF00FF00FF00FF 
0025,FFe0FF00FF00FF00FF00FF00FF00FF08FF00FF00FF00FF00 
0026,00 PF00FF00FF00FF00FF00FF80FF00FF00FF00FF00FF00FF 
0027,FF80FFe0FF00FF00FF00FF00FF08FF00FF00FF00FF00FF00 
0028, 08FF00FF00FF00FF00FF00FF00FFe0FF80FF00FF00FF00FF 
0829,FF00FF00FF08FF00FF00FF08FF00FF00FF00FF00FF00FF80 
002A,00FF00FF00FF00FF80FF00FF00FF00FF00FF00FF00FF00FF 
002B,FF08FF00FF0eFF00FF80FF00FF00FF00FF00FF00FF00FF00 
002C,00FF00FF00FF00FF08FF00FF08FF00FF00FF00FF00FF0OFF 
0 0 2D,FF00FF00FF00FFe0FF00FF00FF80FF00FF08FF00FF00FF00 
002E,00FF88FF00FF00FF00FF80FF00FF00FF00FF80FF00FF00FF 
002F,FFe0FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF80 
0930,003C 66666666663 Cee 38444444444438 003C 66666666663 C 
0031, 6018 3818181818 3 C6018361 910 18 18 38 00183818181818 30 
0032,003 C 66060 C18307E 003844040810207 C003C 66060 C18307E 
6033,803 C66661C 06663 C00 38448418 e 44438 ee3C66e6lCe6663C 
0034, eeec1C3C6C7E0C0C0e 081828487 C08080eec1C3C6C7E0CeC 
0035,007 E 60607 C 86067 C807C 404078040478 907E 60607 C 06067 C 
0036, 083C 66607 C 66663 Cee 38444 0 78444438 603C 66607 C 66663 C 
0637, e07E66e60Cl 81818007 C 4404081 016ieee7E66060C181818 
0638, 003C 66663 C 66663 C96 38444438444438 003C 66663 C 66663 C 
0639, 003C 66663 E06663C00 3844443 C0 444380 03C 66663 Ee6663C 
003A # 010191030307070761018102830404060101010303870707 
083B, 888088 CeC0E0E0Eeee000066800eee008ed08ec000202020 
003C,858E91A3E1E3FDAB858E9CBEFCFEFCAB868D9EBCFEFCFEFC 
003D,E1F1390D0F0F1FD50101F1793D1F1FD58101F1793D5F1F7F 
eesE^ 00000207 eeeeeeeeeseseFeFese 80808 eeeeeeezeeeeeeee 

003F,FFFFFFFF7F3E1C18FFFFFP 814326 1C 1 8555555 F 071321408 

ee40,eeeeA0Eeee0e0eeeiei0F0F0ieiei0ieeeeeeeEeeeee0ee0 
0041,00708669 10E 10 6*9 e708e6ei6E9d 8090670806016 E908e9e6 
ee 42,680 eeeeeeeeeeeeeeseceEeEeEe 60202183 C7E7E7E 664242 
0043, FF00PF0eFF00FFe0FF00FF00FF00FF90FF80FF00FF00FF80 
-1 TO 36 : READ C$,D$：DEF CHR$ (VAL r&H' + CS))-BEXCHRS (D$) 


NEXT 
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図 2 ちよつと凝ったオーずニンク ( BASIC - M 25) 


しなければいいのだが，こうなってしまう 
とあとは最初にヤリ玉にあげたアイデアだ 
け作って寝ちやうャツと変わらなくなって 
しまラ〇 

よって，彼らのディスク（あるいはテー 
プ， QD ) は DEFCHR 文だらけのファイル 
でいっぱいになるのである。何を隠そう私 
のディスタにもキャラクターデータだけ入 
ったファイルがいくつかあるので，人のこ 
とはあまり笑えない。 

オープニングにしろキャラクターにしろ， 
どこから始めようが最終的に完成させてし 
まえばいいのである。諸君，あとは気力と 
忍耐力なのだ。どんな過程で作られようが, 
面白いものは面白いのだ。 

ディレクト U だけは派手なヤツ 

いままであげた人種はすべてこれに属す 
るといっても過言ではない。彼らのディス 
クには未完成の作品やサブルーチン，キャ 
ラクターファイルが山のように詰まってい 
るのである。よって，ディレクトリを見る 
と，どうすれば1枚のディスクにこんなに 
たくさんのプログラムが入るのだろうと思 
うほど何画面にもわたってフアイル名が表 
示される。なんのことはない，そのほとん 
どが数百〜 1 K バイト程度の小さいもので， 
なおかつ動かないのだから当然といえば当 
然なのだ。 

どうせ二度と参照されることのないファ 
イルが多いのだから思い切って削除してデ 
ィスクを節約すればいいと思うのだが，作 
った当人はまたいつか気が向いたら完成さ 
せようと思っているのだからそういうわけ 
にもいかないようだ。特に最近のパソコン 
では階層ディレクトリまでサボートしてい 
るものだから，いったい1枚のディスクに 
いくつのフアイルがあるのか作った本人で 
さえわからなくなったりする。 

なにもそれがいけないというわけではな 
いのだが，まあたまには自分のディスクの 
無駄遣いに気づいてため息をつくか，その 
惨状に憤慨してひとつくらい日の目を見せ 
てやってもいいのではと思う。 

頑張れ BA SIC プロ グラ7 

ここまでは初心者がおちいりやすいトラ 
ップを中心に集めてみた。しかし，アイデ 
アを十分に練るのは確かに重要であり，プ 
ログラミングの一部ともいえる作業である。 
ただ，そういった夢をプログラム可能な形 
に効果的にまとめあげること，そしてそ 
れを実現するだけのテクニックがないだけ 
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図 4 Y 君の考イレクトリ 
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なぃ。 

9) それでも動く。 

といった感じである。腕力だけで作っても 
これらにあてはまらないという偉大な人は 
すでに初心者ではない。 

根本的に想像力のないヤツ 

いままであげたのはアイデアばかりが先 
行する企画倒れのヤツばかりだったが，そ 
の正反対もいる。プログラミング能力も根 
気もあり，勉強家で，キャラクター移動ル 
ーチンやデータ圧縮ルーチンなどは上手に 
作るのだが，ことゲームを作るとなるとう 
まくいかないという人種だ。 

理由は簡単，想像力が足りないのである。 
よって，仮に速くて凝ったゲームを完成さ 
せたとしても，どこか既成のゲームと似て 
いて，いまいちオリジナリティの感じられ 
ないものとなってしまう。かわいそうな人 
種といえよう。 

しかし， RPG やアドベンチヤーには向か 
なくとも，よいューティリティや実用ソフ 
卜を作ってくれるのであまり馬鹿にしては 
いけない。また，ゲームでもシ ミュレーシ 
ョン（トランプやバックギャモンを含む） 
ものには力を発揮する。よいゲームデザイ 
ナーにはなれなくともよいプログラマには 
なれるのだ。 

ゲームを作ってはみだものの自分 
では遊べないヤツ 

これはアクションゲームより RPG やアド 
ベンチャーを作りたがる人たちに多い。マ 
ップやストーリーからプレイするコツ，隠 
れキャラまで全部制作者にはわかっている 
ので（当然だ)，自分で遊んでもまったく面 
白くないのである。もし自分で作ったアド 
ベンチャーで何日も楽しめるような人がい 
るなら，彼はきっとよほど物覚えが悪いの 
か，よほどのナルシストかのどちらかだろ 
1 〇 

こういった人はどうすればいいかという 
と，ゲーム好きでシビアな友人を呼んで， 
嫌がろうがどうしようが無理やりやらせる 
のである。ほめてもらって舞い上がるのも 
よし，けなされて落ち込むのもよし。この 
ような便利な友人がいないときはどうする 
か。いわずもがな，投稿しかないのだよ， 
諸君 。 Oh ! MZ では君の投稿を待っている 
のだ。 

このタイプの人たちにはプログラムを作 
ることそのものを楽しんでいる人たちが多 
い。真のプログラマにとってはプログラミ 
ングする過程が青春なのだ。 


なのだ。そういった初心者が次の段階へ進 
んだ場合の例をあげてみよう。 

作りかけだのはいいが結局わかん 
な<なつちやラヤツ 

とりあえずは完結したプログラムを書こ 
うという意思はあり，実際に努力もしたわ 
けだ。しかし紙の上で案をまとめずにプロ 
グラミングを始めるものだから，膨れあが 
っていくと収拾がつかなくなるのは目に見 
えている。 

このタイプにはいいかげんな性格のヤツ 
が多い0変数名やラベル名も規則性なしに 
その場の思いつきで付けたりするから，何 
日かいじらずにいるとどの変数が何:^った 
のかわからなくなったりするのだ。おまけ 
に，あと先を考えずに行番号を付けたり， 
サブルーチンになるべきものをしていなか 
ったり，逆に意味のないサブルーチンを付 
けたり，コメント文が少なかったりするも 
のだからますます読みにくくなる 。 BASIC 
に行番号なんてやっかいなものがあるから 
いけないとか，ローカル変数が使えないか 
ら悪いのだなどといってみても始まらない。 

このタイプはわけがわかんなくなったあ 
との対処によっていくつかに分けられる。 
強引に完成させようとするヤツ，始めから 
また作り直すヤツ，そして結局あきらめる 
ヤツである。強引に完成させようとするヤ 
ツはまず次の腕力だけはあるヤツになるだ 
ろうし，始めから作り直す場合でもアイデ 
アの段階から再検討しないとそうなる可能 
性は大きい。しかし，どんな優秀なプログ 
ラマも一度は通る道であり，これを乗り越 
えれば明るい未来が開けるかもしれないわ 
けだから，あきらめずに頑張っていただき 
たいと思うのである。 


腕力だけはあるヤツ 

腕力というのは，当然コンピュータ用語 
(いや数学用語だったかな？〉の腕力である。 
バーベルを何 kg まで持ち上げられるとか力 
こぶがどうとかいう腕力ではないので念の 
ため。 

このタイプは，きちんとしたプログラム 
を書けるとはとても思えないような経路を 
経ながらも，力ず〈で完成させてしまうの 
である。完成させたといっても，いかんせ 
んかっちりした仕様も決めず，コーディン 
グもせずに作り始め，紆余曲折を経て無理 
やりまとめたものだから，見るからに汚く 
て I 壳みにくいスパゲッティプログラムとな 
っていることが多い。 

それでも，根気があってまめなヤツならな 
んとか動くものを作れるという証明にはな 
る。いつまでも腕力に頼ってばかりいると 
労多くして実少なしとなりかねないが，誰 
でもこの段階を経てコツをつかんでいくも 
のであるから悪しきことではない。 

腕力だけで組み上げられたプログラムの 
特徴を列挙してみよう。 

1 ) 変数名が不統一で，何が何を指してい 
るのかわかりにくい。 

2) GOTO , IF 〜 THEN 文が異様に多い。 

3) フラグとして使う変数が多い。 

4) サブルーチンの位置がでたらめで，ど 
こが何をするサブルーチンなのかがわか 
りにくい。それどころか一度も使われな 
いサブルーチンが残っていたりする。 

5) よく似た処理を何度も行う（本来なら 
サブルーチンにすべき）〇 

6) 無駄が多いため内容のわりに長い。 

7) 効率が悪いため内容のわりに遅い。 

8) 見るからにスパゲッティで流れが読め 


02266055410378567975887289 
31114123543223324104012444 


25587133071311311390478823 
1111120021012 2 2 2 0818011122 
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ボケコンで RPG を作ろラとするヤツ 


つまりは，盃でビールを飲むようなもの 
である。マイクロカセットでクラシックや 
ロックを聴くようなものである。ついでに， 
銭湯で水泳の練習をするようなものである。 
どれもやってできないことではないが，本 
来の目的にかなった使い方ではない。よっ 
て困難が伴うのは自明である。 

といってはみたものの，確かにボケコン 
で RPG を作ったヤツはいるし，それなりに 
面白いものもできる。よくやったとほめて 
あげよう。液晶ドットで作られた1行分の 
ダンジョンを探検するのもなかなか楽しい 
ものである。そういえば私の友人も授業中 
に PC -1500 で作った RPG で遊んでいた。ポ 
ケコンの機動性の勝利であろう。 

あの PC -98 シリーズが16ビットフアミコ 
ンと呼ばれるように， PC - 1500がポケット 
ファミコンと呼ばれる日は近い（？）。 

君は立派な八ッカー予備軍 

. 、： 

ここからは，本当にプログラムが組める 
のかどうかはよくわからない力す，とにかく 
“こだわる”人の話を中心に進めていく。こ 
こでハッカーという文字が出てきたら強度 
の パソコンマニアの ことだと 思って 間違い 
はない。ついでに，この パソコンマニアと 
いう人種は私に嫌われているということも 
重要なポイントとなるであろう。 

見だ目の美しさに異様にこだわるヤツ 

たとえば REM 文の置き方や字下げの扱 
いである 。 FOR 〜 NEXT や WHILE 〜 WE 
ND などの ループの 中では何文字か下げて書 
くべきだと主張する人がどこにでもいるは 
ずだ。規定どぉりに字下げをじないと動い 
てくれない FORTRAN や，字下げをして見 
やすいようにプログラムを整理しないと何が 
なんだかわからなくなる LISP，PROLOG 
でもあるまいし，気にしすぎるほうがぉか 
しいという意見もある。これに関しては Oh ! 
MZ のスタッフの間でも意見は真っ二つだ。 

さて，あなたはどちらだろうか。字下げ 
は必要だと思うか，いちいち揃えるのは面 
倒だと思う力、。私みたいにそのときの気分 

でコロコロ変わるか。 

GOTO 文を使うと怒るヤツ 

このあたりからハッカー予備軍たちのご 
登場とあいなるのである。構造化プロダラ 
ミングがはやって以来，無理やり流れを変 
える GOTO 文は使うべきではないという思、 


想が蔓延している。 

実際， GOTO 文を多用したプログラムは 
汚くなりやすいのだが，問題はその怒り方 
にある。こういった輩は人の気持ちも考え 
ず，まるでその人が馬鹿で無知無教養のよ 
うに有無をいわせずケチをつけるのである。 
GOTO 文で怒るのだから ， 「RETURN ft 
番号」なんて使っていると言語道断頭蓋骨 
切断といわんばかりになる。往々にしてこ 
の手のハッカー予備軍は FOR 〜 NEXT より 
WHILE 〜 WEND などを好むようだ。 

まあ，腕力だけで作ったような汚いブロ 
グラムに文句をいいたくなる気持ちはわか 
らないでもないが，実用アプリケーション 
などでの大きなプロダラムならいざしらず， 
ほんのちよっとした暇プロ的なものにまで 
どうのこうのいうのはどうだろうか。 

速<ないと気がすまないヤツ 

こういうヤツもよくいる。ひたすら速い 
アルゴリズムを追求し，わずかな時間短縮 
のための大技小技を使うのである。この手 
の人間は間違っても PC シリーズは使わな 
い （ PC -88 シリーズの BASIC は本当に遅い 
し， PC -98 のそれにいたっては突如として 
ガーべ ジコ レクションに入って何分も止ま 
ってしまうのだ)。 

では，こういった人種の使う小技のいく 
つかを例をあげて紹介してみよう（たまに 
は役に立つことも書くのであ•る）。 

1) いうまでもないことた^力す， FOR 〜 NEX 
T を使うときは，決して NEXT のあとに 
変数名を書かない。 

2) INSTR と ON 〜 GOSUB を使う （ IF 〜 
THEN を使うより見やすくて速い）。 

3) ラベルは速度が落ちるので使わない0 
実際には，開発中はデバッグがしやすい 
ようにラベルを使い，最後に全部行番号 
に直すといった作業をする。 

4) 無駄な REM 文を使わない ( FOR 文と N 
EXT 文の間に REM 文をたくさん入れて 
効果を確かめるとよい）。 

5) 間違ってもわかりやすい バブル ソート 
などは使わない0最低でもシェルソート， 
できたらいちばん速いといわれているク 
イックソートを使う。普通の人がもっと 
速いソートを，などと欲を出してソート 
の アル ゴリズムの勉強などを始めると頭 
がパニックを起こすことうけあいである 
からやめたほうがいいと思う。 

6) その他，不思議な技，アルゴリズムを 
使う。常人にその技は見切れない。 

と，いった感じであるが，これはほんの一 
例である。まあ，速さにとり憑かれた人間 


はやがてアセンブラの世界へはまり，人の 
道を踏み外すことになるだろう （？） 。私と 
しては，少々遅くても見やすくてきれいな 
プログラムを書く人のほうが好きだ（が， 
考えてみると，そのプログラムを自分で改 
造しようという気にならないかぎり，速い 
に越したことはない）。 

ブ□グラムを見ると改造しだがるヤツ 

もうこうなってくるとハッカー予備軍も 
たいしたものである。こういうヤツは他人 
からもらったプログラムをそのままの形で 
使うことはまずない。必ず自分で使いやす 
いように改造してしまうのである。 

それだけならまだいい。しまいには人が 
作った プログラムを見て，ここはこうした 
ほうがいいなどといいだし，「ちよっと貸し 
て」といって持っていき，しばらくすると 
「速くなったよ」などと得意げな顔で見せる 
のである。せっかく作ったプログラムをい 
じくられたほうはいい迷惑で，なけなしの 
ブライドまで傷ついてしまう。ああ，人の 
痛みがわかる人たちはどこへ行ってしまっ 
たのだろう力 * 1 2 3 4 5 6 。 

聞いてちいないのに説明するヤツ 

ハッカーによく見られる症状である。典 
型的な例として，自分の作ったプログラム 
を持ってきて「どこでどういった技を使っ 
て，ここのアルゴリズムはこうで，これこ 
れこういうわけだからこのプログラムは速 
いんだ」などと，相手に理解できるかどう 
かをまったく考えずに説明をする人間があ 
げられる。しまいには，あきれて誰も聞い 
ていないのにかまわずしゃべり続け，それ 
が終わるとまたパソコンの前へと帰ってい 
くのだ。気持はわかるんだけどね。 

普通のユーザーが知らないような専門用 
語を平然と使うのはいいとしても，正直に 
「いまの言葉がわからなかったから教えて」 

と頼んだとき，「え一，そんなことも知らな 
いの一」などと人を馬鹿にするのだけはよ 
してほしい。 

ダンプリストが読めるヤツ 

BASIC ではなくマシン語の世界の話であ 
るが，デバッグに協力しようとして「リス 
卜を見せて」というとダンプリストを見せ 
る ヤツが いるの だ。 

16進の数字が並んだダンプリストなんか 
見せられてもわかるはずがないではないか。 
私なんて00が NOP で， C 9 力 ? RET だという 
ことくらいしか覚えてないんだぞ。いった 
いなんのためにソースリストがあると 思つ 
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ているんだ。まさかハンドアセンブルをし 
たわけではあるまいし。もうこうなると立 
派な ハッカー である。一般の ユーザーは 近 
寄らないほうが安全だ。 

ブ□テクトはすしだけはできるヤツ 

完結したプログラムは書けないくせに， 
プロテクトはずしだけはできるヤツもけっ 
こういる。どちらかといえば， MZ よりもゲ 
ームに 恵まれた XI ユーザーに 多い。そして 
大部分はダンプリストが読める。アセンブ 
ラやハードの知識があり頭もいいのに，そ 
の能力がプロテクトはずしにだけ向けられ 
ているのである。残念なところだ。 



ページも終わりに近づいてきたし，私も 
あまりぼやいてばかりいるのは嫌なので話 
題を変えたいと思う。 

ドツトが読めるヤツ 

私の友人である Y 君は CRT 上のドットを 
読んでしまう。つまり，.画面上のどのあた 


りがどの座標かからだで覚えているので， 
グラフィックエディタなしでも絵が描けて 
しまうのだ。彼が絵を描くときはいつも「あ 
れ，もう6ドット上だ」とか「もう3ドッ 
卜右のほうがいいな」などとつぶやきなが 
ら， UNE 文や CIRCLE 文を打ち込むので 
ある。そして，いつのまにか絵が完成して 
しまうのだ。すごい才能である。最近では 
彼を 「いい ドット読みになったな あ」 とい 
ってほめたたえている。 

タイニー BASIC にとらわれてるヤツ 

タイニー BASIC といっても若い人は知ら 
ないだろう。まだパソコンではなく マイコ 
ンと呼ばれていたころの， RAM が4 K バイ 
卜しかないようなマシンで動いていた縮小 
版 BASIC である。私もさわったことはない 
が，人から聞いた話をまとめてみる。 

まず変数名が2文字までである。当然， 
ラベルなんて影も形もなく，グラフィック 
やカラーなど夢のまた夢，コマンドも極端 
に少ない。まあ MZ -80 K の BASIC がいちば 
ん近いのではないだろうか。 

このタイプが作ったプログラムは，変数 


名は2文字以内でしか付けられないし，そ 
の付け方もスピードを考慮して異様にこだ 
わる0よく使うサブルーチンはプログラム 
の先頭に書く（このほうが速かったのだ)， 
やたらと小さくまとめたがる（当時はまた^ 
RAM が高かった）といった特徴をもつ。当 
然， パソコンの 黎明期に活躍した人に多い。 
古き良き時代であった。 

隠れ機能を付けたがるヤツ 

これも病気の一種である。プログラムに 
マニュアルにも仕様にもない隠れ機能を付 
けないとぉさまらないヤツのことである。 
安易なところではファンクションキー割り 
込みなどがある力 5 ',凝ったヤツになるとあ 
る順番でキーを押すと自動的に違うモード 
に入るなどという芸当を使う。ゲームなら 
ともかく，ユーテイリテイにまでこれをや 
られるのには困ったものである。まあ ， BA 
SIC にも Z 80 にも隠れコマンドがあるご時 
世 （？） だからしかたがないか。 

——以上である。例によって，大勢の人 
にひんしゅくを買いそうなページは唐突に 
終わるのだ。 


図 5 INSTR と IFfHEN (HuBASIC ， MZ- 250 0) 

900 ’ 1010 行のァホ•スト tr フィを取って みる 

ieee ~ 

1010 CHD$-"Z 4 62 8" ： TIME-0 ： ^goto 1060 
1028 FOR 1-0 TO 1080 ： A$-INKEY$ 

1 030 ON INSTR (CMOS,A$) - 1 GOSUB 2000,2100, 2200, 2300 
1040 NEXT：PRIHT TIME 
1050 END 

1060 FOR 1-0 TO 1080 ： AS-INKEY$ 

1078 IF AS-"4 - THEN GOSUB 200e ： GOTO 1110 

1 080 IF AS-y THEN GOSUB 2108 ： GOTO 1110 

1090 IF A$- - 2 - THEN GOSUB 2289 ： G0T0 1110 

1108 IF A$-"8" THEN GOSUB 2300 

1110 NEXT：PRINT TIME 

1999 END 

2000 L 

2010 PRINT ~1 ：广ぐ 
2820 RETURN 
2100 R 

2110 PRINT W * 

2128 RETURN 
2200 1 

2210 PRINT " ゥ i" 

2220 RETURN 
2380 

2310 PRINT W 
2320 RETURN 


図 7-A 


バブルソ 


(HuBASIC’MZ- 250 0) 


18 * パフ • ル . ソ -h 

20 DIM N(100) 

30 FOR 1-1 TO 100：N (I)-INT (RKD (1)*100) : NEXT 
40 * 

50 TIME-0 

60 FOR J-l TO 1-2 

70 FOR K-J TO1 STEP -1 

80 IF M (K)<-N (K+l) THEM 100 

S5 SWAP K(K) ,H (K+l) 

90 NEXT 
100 NEXT 
118 . 

120 PRINT -TIME- _ ；TIME 

130 FOR A-l TO 1-1 

140 PRINT USING - W;N (A); 

150 NEXT：PRIKT 
160 END 


図 7-B 


シェルソ 


ート 


(HuBASIC.MZ- 250 0) 


図 6 GOSUB のラ 514 /(HuBASIC ， MZ- 250 0) 


1600 * 

1810 ' GOSUB 文の速度 
1826 * 

1016 

1046 TIME-0 

1058 FOR 1-0 TO 10000 

1060 gosub 5eee 

107® NEXT 
1080 PRINT TIME 
2081 END 


5… 本 A 

5010 RETURN 
5108 * 

5110 H-25 では 

5200 *1060 行を 
5210 ^ 5000 行を 
5229 *Hu では 
5236 1060 行を 

5240 * 5000 行を 


*X1 LABEL .k. 


Sosub 拿 A or 拿 AAAAAAAAAAAA に 

gosub *AAAAAAAAAAAA のときは t AAAAAAAAA AAA にする 
gosub -A** or -AAAAAAAAAAAA- iZ 

gosub * , AAAAAAAAAAAA* > のときは LABEL " AAAAAAAAAAAA* にする 


10 シ X A . ソート 

20 DIM N (100) 

30 FOR 1-1 TO 100：N (I)-IKT(RHD (1)*100) : NEXT 
40 . 

50 TIME«0 
60 C=160 ： ST-C 
70 ST-INT (ST/2) 

88 FOR L-l TO C-ST 
90 FOR U-L TO1 STEP -ST 
100 IF N (U)<-N (U + ST) THEK 130 

118 SWAP N(U),N (U+ST) 

126 NEXT 
130 NEXT 

140 IF ST>1 THEN 70 
150 # 

160 PRINT "TIME- "；TIME 

170 for A-i to iee 

180 PRINT USING - ；N (A )； 

190 NEXT : PRINT 
200 END 
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二 MZ - 2500ユーザーの皆さんお待たせいたしました0 256色モード対応グラフィックツール : 
Super Paint を紹介します。 BASIC - M 25 の強力なグラフィック命令を生かした豊富 
な機能が魅力。拡張 RAM によりマウスも利用でさます0 


MZ - 2500が登場して早くも1年が経過し 
ようとしています 0 SuperMZ は通信バソコ 
ンとして登場し，高速グラフィック，多彩 
なサウンド機能など，とても優れた機能を 
備えています。しかし，発売当時は付属の 
テレホンソフトしか供給されておらず，そ 
のほかの機能についてはユーザー任せとい 
った状況でした。 

テレホンソフトを使うためには電話回線 
とモデムなどが必要となり，本体を買った 
からといってすぐに使用できるものではあ 
りませんでした。そこでユーザーとしては， 
自分でそれぞれの目的に合ったプログラム 
を作るしかない状態にあったのです。幸い 
にして MZ - 2500では史上最強の BASIC-M 
25が走るので，ユーザーは自分の考えたプ 
ログラムをかなり楽に BASIC で実現するこ 
とができるのです。 

BASIC - M 25 のグラフィック関係の命令 
のなかには ， color replace や move @ など 
があり，これを使用すれば，市販のグラフ 
ィックツールにも負けないものが作れるの 
ではないかと考え，自作に fils 戦しました。 

そして完成後に投稿してみると，第2回 
パソコンサンデー大賞を受賞することがで 
きたのがこの “Super Paint ” なのです。 
Super Paint には8色用と256色用の2種類 



があつたのですが，今回は256色モードのも 
のにルーペ機能を追加するなどのバージョ 


ンアツプを行つたものを発表いたします。 



ブログラムの特色 


1) アイコンによるコマンド指定で，非常 
に簡単に命令を選択できます。 

2) アイコン，カラーサンプルの表示位置 
を変えることにより，画面全体に作画す 
ることができます。 

3) ペン，ブラシそれぞれ8種類あります。 

4) 漢字入力が可能となっています。 

5) テンキー，スペースキー， ESC キーに 
よる入力，または拡張 RAM 使用時には， 
マウス入力が可能です。 

6) BASIC の move @ 命令により，指定範 
囲の高速移動が可能です。 

7) color replace 命令により，色の交換が 


可能です。 


8) 画面のセーブ，口ードが自由に，しか 
も簡単に行えます。 

9) このプログラムはすべて BASIC で書か 
れているために，容易に追加，変更が行 
えます。 



ブログラムの入力，操作方法 


拡張 RAM がない場合は，キーボードによ 
る操作になるために ， new on 2と new on 


0を続けて実行後，リスト1を入力してく 
ださい。 


また，拡張 RAM ， マウスを使用の場合は, 
リスト1をリスト2の変更部分と交換して 


ください。 

そしてリスト3を実行させると，自動的 
にメインプログラムを RUN します。 

画面構成や操作方法については図1, 2 
に示しておきますので参照してください。 
各図中の矢印はカーソルの進む方向です。 


図1谲面構成 



③色選択のときのカーソルの指示色 



日没 
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キーボード入力の場合はキーを押し続ける 
ことにより，移動のステップ数が増えてい 
きます0マウスのボタン1は主に各命令の 
実订，進行に用い，ボタン2は各命令実行 
中の場合には中断，そのほかの場合は塗り 
つぶしを行います。 

Super Paint の機能や使用方法は表1， 
2，3に示しておきます。 

ブログラム紹介の最後 

このプログラムは昨年の12月から作り始 
め約1力月でなんとか動かすことのできる 
ものにしました。私は拡張 RAM ， VRAM を 
接続していたので，フローチャートは書 
いたものの，かなりメモリのムダ遣いをし 
たプログラムになってしまいました。その 

表 1 Super Paint の機能 



状態ではとても人前に 
は出せるようなプログ 
ラムではなかったので， 
サブルーチンを多くし 
てなんとか標準メモリ 
で動くようなプロダラ 
ムにしてみました。 

今後，このプログラ 
ムをベースにして，16 
色モードやデリート機 
能の付いた8色モード 
などを発表したいと思 
います。もう芸術の秋 
を迎えていることです 
し，ぜひこの Super 
Paint を入力して試し 
てみてください。 


図2操作方法 
[キーボード] 

SPACE 


ESC 

テンキー 



分 


ぐ 

5 



み 



ボタン I 
ボタン2 


[マウス] 



アイコン 

命 令 

機 能 

アイコン 

命 令 

機 能 


アイコン移動 

アイコンを左右に移動する 

9M 

ツール 

タイルパターンを作る 

♦ 

色見本移動 

色見本を左右に移動する 

1 

転 写 

指定した範囲を転写する 

籲國 

I t 

• 〇 

筆 

筆，ブラシの大きさを変える 

%: 

複 写 

指定した範囲を複写する 

衝 

拡 大 

2 倍に拡大する 


縮 小 

1/2 に縮小する 

rr 

曲 線 

曲線を描く 

% 

左右反転 

左右反転する 

.[ 

ブラシ 

ランダムなドットを打つ 

% 

上下反転 

上下反転する 

1! 

マジック 

色，模様で塗りつぶしていく 

% 

90。回転 

90°回転する 

〇 

円 

円，弧を描く 

Jf 

180°回転 

180°回転する 

/ 

直 線 

直線を引く 


色交換 

指定範囲の色を交換する 

〆〆 

破 線 

破線を引く 

EH 

ロール 

上下に スクロール する 

□ 

ボックス 

長方形を描く 


ルーペ 

16 X 16 ドットを拡大し，修正する 

■ 

ボックスフル 

長方形を描き，塗りつぶす 

BH 

セーブ 

絵をセーブする 

字 

字 

文字を書く 

画 

ロード 

絵を ロー ドする 


表 2 Super Paint の使用方法 


命令変更 

カーソルをアイコンの場所に移動させると，そこのキャラクタが反転します。ポタン丨によりキャラクタ 
が点滅し，その命令に変更されたことを表します。 

色変更 

カーソルを色見本のところに移動し，ボタン丨を押すと力ーソルの指しているところの色が，図丨の②， 

③の場所に表示されます。画面中なら，好きなところの色を拾うことができます。ポタン1で色が決定さ 
れ②に表示されます。 

色塗り 

ポタン2により，色塗りを行います。 

中 断 

命令が実行中のときのみボタン2で中断します。 
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表 3 Super Paint の操作方法（〇=各命令を実行，進行時に押す。 △= 各命令の中断，終了時に押す） 


アイコン 

手 順 

操 作 

アイコン 

手 順 

操 作 

ポタン1 

ポタン2 

ボタン1 

ボタン2 


カーソルを4►►に移動する 

〇 



転写，複写と同じですが，コピー 
元と，コピー先が重なる場合は， 

絵がおかしくなります 




カーソルを#に移動する 

〇 


W 

機^ 

•圓 

t 1 

• E 3 

カーソルを好きな筆のところに移 
動する 

〇 


• If * 

/ 

〆〆 

始点を決める 

〇 


終点を決める 

〇 

△ 

Wm 

色交換する範囲を BOX 命令と同様 
に決める 



メッセージが出るので，交換する 
色を決める。交換する色は4組ま 
で指定できるが，ポタン2で次に 
進むこともできる 

〇 

〇 

m 

ペンの大きさを作る （ BOX 命令 
と同じ） 



始点を決める 

〇 

△ 

終点を決める 

〇 


色交換を実行する 

〇 

△ 

〇 

命令を開始する 

〇 


L_fi 

ロール実行 

〇 


大きさを決める 

〇 

△ 

口ール終了 

〇 


開始角を決める 

〇 

△ 


命令開始 

〇 


終了角を決める 

〇 


修正する場所を決める 

〇 

△ 

位置を決める 

〇 

△ 

拡大された範囲外では色を拾って 
くることができます。ボタン丨で 
色を拾い，またボタン丨で色を決 

めます 

〇 

△ 

口 

■ 

始点を決める 

〇 


終点を決める 

〇 

△ 

字 

命令を開始する 

〇 


文字を入力 

画面上にメッセージ 

か出る。キボド 

より入力 




拡大された範囲内では，ドットを 
置いていくことができます 

〇 

△ 

横倍率を入力 

縦倍率を入力 

セーブする範囲を BOX 命令と同様 
に決めます 



角度を入力 

位置を決める 

〇 

△ 

ファイルネー厶をキーポードより 

入力します 




命令を開始する 

〇 


パターンを決める 

〇 

△ 

セーブ実行 

〇 

△ 

置き換える色の X 座標をカーソル 
で指定する 

〇 

△ 

\ m \ 

命令開始 

〇 


力ーソルを動かしてファイル名を 

選択します 

〇 

△ 

%] 

転写，複写元を BOX 命令と同様に 
決める 



ロードする位置を決めて，ロード 

を実行します 

〇 

△ 

転写，複写先を決める 

〇 

△ 
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リスト 2 


拡張_， 


マウス使用時の変更点 


• 0 ： bou s e 


10 変更部分 (13901600 は削除） _ 

1139 init "CRT ： f ,,8" ：init "CRT2 ： 320, 200, 5 1 2 : color 
1 340 gosub * 入力 SUB 

1 350 pen 4 •• p s e t (X,Y) ,XC,xor：pset (X, Y) ,XC, xor：return 
1360 * 入力 SUB 

1 370 if (E or D) and (souse (2,1) or mouse (2,2)) then gosub 1350 ：go to 
1380 E-0 : D>0 ： X-aouse (0) : Y-»ouse (1) : E-aouse (2,1) : D-aouse (2,2) : return 


1370 


リスト 1 


Sup 


er Paint メイ ン データ 


1000 


ttt********************************************* 


1010 

1626 

1030 

1048 

1050 

1060 

1070 

1086 

109& 

nee 

me 

1129 

1130 
1140 


* 

本 SUPER PA I NT * 

拿 拿 

拿 256 色モ -K * 

拿 拿 

拿 for SUPER HZ * 

拿 

t Copyright by 1986 赤松慶二 * 

拿 拿 

拿♦拿♦拿本本♦拿拿拿本本 #： M ♦本本♦本♦♦本♦♦本本拿♦拿本本♦本拿本拿本本拿本♦♦♦♦本拿拿 

X- 1 Cd ： Y- 100 ： 3 19 ： L-199 ： Xl-X ： X2-XsX3-X ： Yl-Y ： Y2-Y ： Y3-Y ： LXX-XtLYY-Y 

i : ぷね;，品 W ぬぬボ:ぷけ :“‘， 2 し画元 ( s85 し色見 ( i285 


1156 

1160 

1170 

PU-23 

1180 

1190 

1200 

1210 

1228 

1230 

1240 

1250 

1260 

1270 

1280 

1298 

1300 

1310 

1328 


option angle degrees : klist 0：on error goto *ERR0R 

gosub * 筆定義：筆 -7 £ go s u b * 筆換え ： gosub ♦模様定義 ^ , 

位置 - 0 : 筆 - 7 : 色 - 511: 命令 -1: HY-0 : 0Y 箱 L : CH-24 : CS-0 : VY- 16 : VYS-0 : VYE 画 183 : 色見出 ■- 1: 

get ㊃ （ 0 ,CS) - (W,CS+15) , 色見 ： gosub * アイコン表示： gos ub *棋様 表示 
goto ♦命令待ち 

▲ 穿宁萬 

restore 1240：for 1-8 to 15 ： re»d AS :筆型 MI)-hexchr$U$) :next 
pen 5 > hezchr$( > 8244281028448200 > ') : pen 4,hexchr$( - d69210eel092<160 0 ’） 
pen 3 , hexchr$ i - e000e01elelele00 - ) :pen 2, 筆 型 $(6) :return 
data - 3c7effffffff7e3cY387cfefefe7c38e0 丫 0ei83e7e7e3cl80e- 
data "eeie 387c 3S1 000000008183 c3c 180000 * 
data " eeeeeeisiseeeeee^^eeeee 01 000000000 
data "8A 28864 A3481 0AA9*," 806A500 5A08A20 14", 
data "0888888024000148*, " 800800002481000 0", 

data v S 0 eeeeeee 8 eeeee 0 M 
*棋様定義 

for I -e to 7 : 棋様 $ (I)-hexchr$ ド 0000000000000000 J : next 


~0000 ie 38 ieee 00 e 0~ 
59928 A21AC 40294 C" 
，人 400 1 042 08A4e84e M 
， -8008000020020000- 


1330 * 入力 ， - 

1340 gosub * 入力 SUB 

1350 pen 4：pse t (X,Y),XC,xor : pset (X,Y),XC,xor:return 
1368 ♦ 入力 SUB 

1370 A$-inkey$JA-va1(A$) 

1380 if (E or D) and A $ ■一 then gosub 1 350 ： goto 1370 
1390 if 入 >0 and A<10 then 

1400 S-S+l：on A gosub 1490,1500,151 0,1520,1530,1540,1558,1560,1578 ： E-0 ： D-0 ： 

gosub 1580 

1410 else if A$-" then 
1420 repeat o f ! ： E--1 

1 430 else if A $ ■一 then 
1440 repeat o f f ： D--1 

1450 else 

1460 repeat on ,4:S-0:E-0:D-0 

1470 end if 

1480 return 

1490 X-X-S ： Y-Y+S ： retun» 

1500 Y-Y+S：return 
1510 K-X+S ： Y-Y+S：return 
1520 X-X-S：return 
1530 return 
1540 X-X+S：return 
1550 X-X-S ： Y-Y-S：return 
1560 Y-Y-S：return 
1 570 X-X+S ： Y-Y-S：retum 

1589 if X<0 then X-0 else if X>lf then X-W 

1590 if Y<0 then Y-0 else if Y>L then Y-L 
1600 return 

1610 ♦命令待ち 

1 620 gosub ♦ 入力 ： gosub ♦ 命令変更磙認 ： g 〇 s u b ♦色変更 
16 30 if D then cls:gosub ♦ 塗り ： goto 16 2 0 

1649 if E-0 then 1620 

1650 Xl-X ： Yl-Y 


80 OhIMZ 1986.10. 


► 9 月号 P .73 の米谷君，君は索唷しい。 6 MHz ということは Z 80 B が使えるということな 
のかいな。信じられない，絶対発表しておくんなせい。やっぱり Oh ! MZ の読者は BASIC 
を作ったり，ただ者ではない。 岩谷沢男 （17) 長野県 












1 669 on 命令 gosub ♦ 曲線，本フーラシ， * へ • ン，本円， * 直抜， * 直破， * BOX,*B0X,* 字， * TOOL ， * 複写， * 複写， 
本転写， * 転写， * 転写， * 転写， * 転写， * 転写， * 色交換， * ROLL, *LUPE,* SAVE, *L0AD 
1670 goto 1610 

1680 ♦命令変更確認， - 

1 690 crev» (MX,MY) - (MX,MY),0 

17 0 0 if (位 S じ 0 and X> 31) or (位置 =3 6 and X< 288) then return 

1710 MX = XY8：MY = YY8 ： crev» (MX,MY) - (MX,MY),1：if E-0 then return 

1720 EX- (X- 位置 * 8) V16:EY-YY8 

1730 if EX-0 and EY=0 then 

1740 gosub * アイコン表示： got。1880 

1750 else if EX=1 and EY-8 and 色見出 then 

1760 gosub * 棋様表示 ： go to 1880 

1770 else if EY>0 and EY<9 then 

1 780 筆 =EY + 8*EX-I :gosub * 筆換え 

1790 else if EY>8 and EY<18 then 

1800 命令 - 2* (EY-9) +EX+1 

1810 else if EY>17 and EY<25 then 

1820 命令 - EY+1 

1830 end if 

1840 cf 1 &sh0 ( 位置， sgn (EYY9) *9)-( 位置 +3, 8+sgn (EY¥9) *16) , 0 

1850 if EY>0 and EY<18 then c f I ash# (位 S+2*EX, EY)- (位置 + 2*EX+1,E Y),1 

1860 if EY>17 and EY<25 then cf I &sh« ( 位 *, E Y)- (位 g+3, E Y},1 

1870 if (命令 yior 命令 -19 or 命令 =21) and 色見出 =0 then get0 (0, C S) - (W, C S+15 ), 色 

見 ： gosub ♦ 模様表示 2 else if 命令 > 10 and ▲ 令 <>19 and 命令 <>21 and fe 庭出 then view:put@ 
(0, CS) ，色見：色見出 - 0: VYS-0: VYE = L 
188 0 return ♦命令待ち 

1890 * 色変更 • - 

1900 if CS>Y or Y>CS+ 15 then return 

1910 i f (CS-0 and 位置 * 8<X and 位置 * 8 + 31>X) or 色見出 -0 then return else view 
1 9 2 0 gosub ♦ 入力 ： if E or D then 1 930 else gosub *V I Elf ： go t o1900 

1 9 30 gosub * 入力 ： if E then gosub *PUSING：goto * 終了 

1940 if X>159 and X<288 and Y>-CS and Y<CS+16 then gosub 1980 else gosub 1960 
] 9 5 0 goto19 30 

1960 模様 =0: 色 - point (X, Y) :PU-24:gosub *PUSING 

1 970 for 1-0 to1：I i ne (I * 288, C S) - (I * 288+31,C S+15) , p s e t ，色 ， BF : n e x t : r e t u r n 
1 980 T= (X-160) Y16: 模様 -- 1 

1990 for 1-0 to1：1 i ne (I * 28S, C S) - (I * 288+31,C S+15) , p s e t ，色， BF , 模様 $(T) : n e x t: r e 


turn 

2000本塗り ， - 

2 010 view ： A-point (X,Y) : gosub * V IEW 

2020 if 模様 then paint (X, Y), 棋様 $(T) , n o t A else paint (X,Y), 色， not 入 
2 0 3 0 D =■ 0 ： return 
2040 本曲線 ’- 

2 0 5 0 gosub ♦ 入力 ： pen 1:if E then * 終了 

2060 line (X, Y) - (XI,Yl),pset ，色： X1-X : Y1 廳 Y : go t o 2050 

2070 げラシ ， - 

2080 gosub ♦ 入力 ： pen l:if E then * 終了 
2090 if abs (Xl-X)>7 then Xl-X：pset (X1 ， Y1), 色 
2100 if abs (Yl-Y)>7 then Yl = Y：pset (X1,Y1), 色 
2110 goto 2080 


2120 拿^ン * 


2130 gosub * 領域指定 

214 0 gosub * 枠移 ： if D then ♦終了 

2150 gosub *乂力 SUB:pen 0:if E then ♦終了 

2160 if 棋様 -0 then line (X, Y) - (X + LX, Y + LY) , pset ，色， BF:goto 2150 

2170 line (X, Y) - (X + LX, Y + LY) , pset ，色， BF , 棋様 $ (T) : g o t o 2150 

2180 * 円 ， - 


2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2289 

2290 
2380 
2310 

2329 

2330 
2340 
2350 


gosub * 入力： X2-X:Y2-Y:if D then ♦終了 

X3»abs (X1-X2) ： Y3-abs (Y1-Y2) ：if X3-0 then X3-. 001 

比率 -Y3/X3:i 〖 X3>Y3 then 半径- X3 else 半径 -Y3 

gosub ♦ 円 X0R:gosub ♦ 円 XOB 

if E then gosub * 円 XOR else 2190 

gosub ♦ 入力： if D then gosub ♦ 円 X0R:goto * 終了 

if E-0 then 2240 else pen 5: pset (X,Y),XC,xor ： X2-X ： Y2-Y 

gosub * 角度計算：開始角 = 角 v _ v vo v 

gosub ♦ 入力： if E-0 then 227 0 else pen 5 ： p s c t (X,Y) ,XC,xor ： X3-X ： Y3»Y 

gosub * 角度計算：終了角 - 角： pset (X2, Y2) ,XC, xor ：pset (X3, Y3) , XC, xor 

if 開始角•終了角 then 終了角-開始角 +360 

if 開始角 > 終了角 then 終了角 《 終了角 +360 


pen 0 ： g 〇 s u b ♦円 XOR : X**X 1: Y-Y 1: p e n 1 
gosub ♦ 入力 ： if D then ♦終了 

pen l：circle (X, Y) , 半径， XC, 開始角，終了角，比率， xor 
circle (X, Y) ，半径， XC , 開始角，終了角，比率 ， x o r 
if E-0 then 2320 


2360 

2370 

2380 

2390 

2400 

2410 


circle (X,Y), 半径，色，開始角，終了角，比率， Pset:goto * 終了 
本円 X0R:pen 0 ： c i re I e (X 1,Y 1 ) , 半径， XC ，，，比率， x o r : r e t u r n 
本角度計算： 0-X_Xl:P-Y 卜 Y 
if 0-0 and P<0 then 角 --90 
if 0 - 0 and P>-0 then 角 - 90 
if O<>0 then a t n (P/0) else return 


2420 
24 30 
244 0 


f 角 <0 and O<0 then 角 - 角 + 18 0 : r e t u r n 
f 角 <0 and O>0 then 角 = 角 + 360 :return 
f 角 >0 and O<0 then 角 = 角 +180 : return 


2450 return 

2460 * 直線 • - 

24 7 0 gosub ♦ 入力： pen l:if D then * 終了 

2480 line (X 1 ， Y 1)- (X ， Y) ,xor ,XC ： I ine (X 1 ， Y1)- (X ， Y) ， xor ,XC 
2490 if E then line (XI, Yl) - (X,Y) ,pset ，色 ： goto * 終了 else 2470 

2500 ♦ 直破 • -- 

2510 gosub * 入力： pen 1 ： i £ D then ♦終了 

2520 line (X 1,Y 1)-(X, Y) , xor , XC"&HCCCC : I i n e (X 1,Y 1)-(X, Y) , xor , XC,,&HCCCC 
2530 if E then line (X 1,Y 1)-(X, Y) , p s e t ，色 " &HCCCC : go t 〇 ♦終了 else 2510 


► XI のキーボードを修理に出したところ，37,000円かかるといわれたので中古を買ったほ 
うが安いからとキャンセルした。後日，壊れたままのキーボードが戻ってきたので，試し 
に使ってみたらちゃんと使えた。とても不思議である。 村田昇 （17) 兵庫県 
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2540 *BOX - 

2550 gosub * 領域 指定： pen 1 ： i f D then * 終了 

2560 if 命令 - 7 then line (X1,Yl)-(X2, Y2) , p s e t ，色， B else if 模樣 =0 then line 
Yl)-(X2,Y2),pset ，色， BF else line (Xl,Yl)-(X2,Y2),pset ，色， BF , 模様 $(T) 

2570 goto ♦終了 


2588 本字，- 

2590 CM = 5:gosu 


26 00 
2610 
2620 
2630 


*CONSOLE ： cls ： HY-40 ： OY-191 ：gosul 


2640 locate 


nput " 文字を入力して下さい。 **, 文字 $: i f 文字 
nput " 横倍率を入力して下さい • 、横倍率 
nput ~ 縦倍率を入力して下さい。、後倍率 
ocate 4,3:print •' 角度を入力しそ下さい ~ 


* 隠し 

hen 文字 $ = 前文字 $:goto 2650 


input 


90- -1, 180- -2, 270- -3 、角度 ： if 角度 <0 or 角度 >3 


n 2640 


(XI 


the 


2650 前文字卜文字 $:gosub ♦隠し 

2660 gosub 本入力 ： if D then goto 本終了 

2670 if E then symbol (X, Y}, 文字 $ ，横倍率，縦倍率，色，角度 ： g 〇 t o * 終了 

2680 gosub 2690 ： gosub 2690 ：goto 2 6 6 0 

2690 syabol (X, Y), 文字 ^ 横倍率，縦倍率， XC, 角度 ， x o r : r e t u r n 

2700 *T00L * - 

2710 LXX-8 ： LYY-8：gosub ♦ 枠移 ： i f D then ♦終了 
2720 I-Y3*40 ： TT$--" ： for J = 0 to 7 ： U$ (J) - " 

2730 for K = 0 to 3：S (K)-peek® (&H20+2*K, I+X3Y8+J*40) 

2740 S (K+4) -peek@ (&H20+2*K+1,I+X3Y8+ J*40) : next 

27 50 for H=0 to 7 ： i f S (H) <16 then T$(H 卜 " 0 - + h e x $(S (H) ) else T$ (H) -hex$ (S (H)) 

2760 U$ (J)-U$ (J)+T$ (H) : next ： TT$-TT$ + U$(J) : next 

2770 view ： HY-8：gosub * 隐し ： print " 置き換える棋様を指示して下さい " 

2780 gosub * 入力 ： if D then 2820 
2790 if E»0 then 2780 

2800 if X<160 or X>287 then 2780 else TX-(X-16 0) Y 16 :模様 $ (TX) = h e x c h r $(TT$) 

2810 line (TX* 16+16 0 ， C S) - (TX* 16+17 5 ， C S + 15) , p s e t ，色， BF , 模様 $ (TX) 

2820 goto * 終了 

2830 * 複写 ‘- 

2840 gosub * 領域指定 ： if D then ♦終了 
2850 LX-X2-X1 ： LY-Y2-Y1：gosub *BX 

2860 gosub * 枠移： X3-X: Y3-Y: gosub *BX ： i f D then * 終了 
2870 if X1<X2 and X3+LX>W then 
2880 LX-W-X3 

2890 else if X1>X2 and X3+LX<0 then 
2900 LX-X3 ： X3-0 ： X1-X1-LX 

2910 else if X1>X2 then 
2920 X1=X2 

2930 end if 

2940 if Y1<Y2 and Y3+LY>L then 
2950 ly=l-Y3 

2960 else if Y1>Y2 and Y3+LY<0 then 
2970 LY-Y3 ： Y3-0 ： Y1-Y1-LY 

2980 else if Y1>Y2 then 
2990 Y1=Y2 

3000 end i f 

3010 if LX<0 then X3-X3+LX 
3020 if LY<0 then Y3-Y3+LY 
3030 LX-abs (LX)+1 ： LY-abs (LY)+1 

3040 i f 命令 - 11 then move (X1,Y 1),LX, L Y, (X 3, Y 3) , , 0 else move (X 1 ， Yl) ， LX, LY, (X3, 
Y3),,l 

30 5 0 g.o t o ♦終了 

3060 ♦ 転写 .- 

3870 gosub ♦ 領域指定 ： if D then * 終了 

3080 if 命令 =I 3 then 

3090 LXX-LX*2 ： LYY-LY*2 ： U-2 

310 0 else if 命令 * '14 then 

3110 LXX-LXY2：LYY = LYY2 ： U-..5 

312 0 else if 命令 -15 or 命令 - 16 or 命令 =18 then 

3130 LXX-LX ： LYY=LY 

3140 Q-abs (sgn ( 命令 -16)) : R - s g n ( 命令 - 15} : U-sgn(l-2*Q) : T**sgn (1-2*R) 

3150 else 

3160 LXX-LY ： LYY-LX 

3170 end if 

3180 gosub *BX ： gosub ♦ 枠移 ： gosub *BX ： if D then ♦終了 
319 0 if 命令 = 13 then pen 2 
3200 if 命令 =13 or 命令 -14 then 

3210 for 1-1 to LY-1：for J-l to LX-1：C = point (X1 + J,Y1 + I) 

3220 pset (X3+J*U,Y3+I*U),C ： next：next 

3230 else if 命令 * ^17 then 

3240 for い 1 to LY-1：for J«1 to LX-1 ： C-point (Xl + J,Yl + I) 

3250 pset (X3+I,Y3+LX-J),C ： next：next 

3260 else 

3270 for い 1 to LY-1 : for 卜 1 to LX-l ： C-point (XI + J,Y1 + I) 

3280 pset (X3 + LX*Q+J*U,Y3+LY»R+I*T),C：next ： next 

3290 end if 
3300 goto ♦終了 

3310 * 色交換 *- 

3328 for 1-0 to 7 : 変色 （ I) - 0 : n e x t : N = 0 : g o s u b ♦ 領域指定 ： gosub *BX ： i f D then gosub *B 
X ： goto ♦終了 

3330 HY-8：gosub * 隐し： view: for G = 0 to 7 

3340 for J»0 to1：i f J - 0 then print " 旧色を指定して下さい ，" else print "新色を指定し 
て下さい ." 

335 0 console 23, 2, 位置 ，4 

3360 gosub * 入力 ： if D then 3400 

3370 gosub 1960 ： i f E then gosub *PUS I MG : G - G+J : 変色 （ G) ■ 色 else 3360 
3380 CM = 3 ： gosub *C0NS0LE ： n e x t ： for い G to 7 : 変色 （ K い色 ： n e x t 
3390 next 

3400 gosub *VIE1 ?： gosub *BX : gosub ♦隠し 
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► Oh ! MZ は私の聖普です。毎月 18 日は本屋へ走っていきます。 S-OS シリーズでマシン 
語も理解できるようになりました。これからも S-OS の拡充を期待します。できれば 16 ビ 
ット用 S-OS ! 柏谷悦男 （ 28 ) 栃木県 









3410 color replace (XI,Yl) - (X2,Y2), ( 変色⑷，変色 （ 1)), ( 変色 （ 2) ，変色 （ 3)) ,( 変色 （ 4 ) ，変色 
(5)) ，（変色 （ 6) ，変色（ 7)) : goto * 終了 

3420 *H0LL -- 

34 30 console : cls:view@ 

344 8 gosub ♦ 入力 ： if E then gosub ♦ ァィコン表示 2 : go t o ♦終了 
3450 rolie Yl-Y ： Yl-Y：goto 3440 
3460 本 LUPE . - 

3470 view：EE = -l ： LXX-15 ： LYY=15：if X<160 then XP-180 else XP-60 
3480 Xl=XP-l ： X2-XP + 64 ： Yl»79 ： Y2M44 ： get@ (XP, 8 0) - (XP+6 3,14 3), 画元 ： go s u b *BX 
3490 gosub ♦ 枠移 ： if (XP = 60 and X<160) or (XP»180 and X>159) then gosub *PUT：got 
o 3470 

3500 if X3-XX3 and Y3-YY3 then 3520 

3510 for 1 = 0 to15 ： for J-0 to 15：C = point (X3+J,Y3+I) : pen 3：pset (XP + 4*J,80+4*1) 
,C ： next ： ncxt ： XX3-X3 ： YY3=Y3 

3520 if D then gosub *PUT : go t o ♦終了 else if E then 3530 else 3490 

3530 gosub * 入力 ： if D then gosub *PUT ： goto ♦終了 

3540 if X<XP or X>XP+63 or Y<80 or Y>143 then 3550 else 3580 

3550 if E and EE then EE-0 ： gosub *PUSING else if E then EE--1 

3560 if EE then gosub 1960 

3570 goto 3530 

3580 if E then LPX- (X-XP)Y4 ： LPY- (Y-80)Y4 else 3530 

3590 pen 3 ： pse t (LPX*4 + XP,LPY*4 + 80), 色 ： pen 0 ： pse t (X3 + LPX,Y3 + LPY), 色 ： goto 3530 
3600 *PUT 

3616 put* (XP ， 80) ，画元 ： gosub *BX:return 

3620 *L0AD * - 

3630 gosub * フ，ィル ： if RN- 0 then * 終了 

3640 color ，， ” l:print - 丨ファイルネーム I 横 I 縱ド； 

3650 for 1-1 to RN ： print using " |& & | ### | Itit# | 画名 $ (1,0); 

val ( 画名 $(1,1)) ； va! ( 面名 $(1,2)) ； ：next 
3660 X- 1 60 ：Y = 8 ： N-1 ： YS-1 
36 7 0 gosub * 入力 ： if D then ♦終了 

3680 if Y<8 then Y-8 else if Y>RN*8+7 then Y-RH#8+7 
3690 if E then 3720 

3700 MY-YY8 ： N-MY：if YY-MY then 3678 else crevf (4,YY) - (35,YY),0 
3710 crev ❺ （4,MY)-(35,MY),1:YY-MY:goto 3670 

3720 c Is: co lor ,,, , 0 ： LXX-v a I (画名 $ (N,1))-1:LYY-v a I (面名 $(N,2) )-1 

3730 gosub ♦ 枠移 ： if D then * 終了 else g load 面名 0) , (X3, Y3) : gos ub * ァィコン表示 2:g 

oto 本終了 

3740 本 SAVE . - - - 

3750 gosub * 領域指定 ： gosub ♦BX ： HY=31 ： 0Y»181：gosub * 隠し 

3760 Input •• ファイルネームを入力して下さい ， NAMES 

3770 print " s a v e を実行しますか 。 YE S … ボタン 1 . N0… ボタン 2“ 

3780 gosub * 入力 ： if D then * 終了 else if E-0 then 3780 

3790 gosub *BX ： LL-len (NAMES) : if LL<24 then M-24-LL : NAME$ = NAME$+spaceS (M) 

3800 X3-X2-X1 + 1 ： Y3-Y2-Y1+1：gsave NAMES, (XI,Yl) - (X2,Y2) 

3810 open ** R “，# 1, 酉面登録 2 - , 32 : f i e I d #1,24 as 名前 $,4 as 横長 $,4 as 縦長 $ 

3820 RN- I of (#1)+ 1：i f RH>20 then close #1：c I s : print • 別のディスクをセットして下さい"： 
goto 3770 

3830 画名 $ (RN, 0) -NAME $: 画名 $ (RN,1)-str$ (X3) :画名 $ (RN, 2) -s tr$ (Y3) 

3840 I set 名前 $-NAME$: rset 横長 $= s t r $ (X 3) : r s e t 縦長 $-str$(Y3) 

3850 put # 1,RN ： c 1o s e # 1：go to ♦終了 
3860 本フ 7 イル 

3870 open ~ R**, #1,~ 画面登録 2** , 32 : f i e 1 d ¢1,24 as 名前 $,4 aS 横長 $,4 as 縦長 $ 

3880 RH-lof (#1) : for 1-1 to RN：get ¢1, I 

3890 酉名 $ (I, 0) •名前 $: 酉名 $ (I,1) ■横長 $: 面名 $ ( し 2) •縦長 $:next:close 1U : return 

39 0 0 •■■■■••■ 勝■■■•■■塞 sub r 〇 u t i d 

3910 *棋様表示へ- 

3920 view ： put« (0,CS), 色見 ： if CS-0 then CS-184 ： VY-8 else CS-0 ： VY-16 
3938 get® (0,C 含） - (ff,CS+15 ) ，色見 
3940 * 棋様表示 2 

3950 line (0,CS) - (W,CS+15),pset ,0,BF 

3960 for 1-0 to 3：for J = 0 to 7 : for K-0 to 7 

3970 line (J* 4 +I 本 32 +32 ， K*2 +CS)-(J*4+I * 32+34,K*2 + CS+1),pset ,1*2+J*8 + K*64,BF 
3980 next ： next：next 

3990 for 1-0 to 7 Mine (U16+160,CS) -(1*16+175, CS+15), pset ，色， BF, 棋様 $ (I) : n e x 
t 

4000 for 1=0 to1：1 i ne (288* I, CS) - (288* I + 31,CS+15) , p s e t ，色 ， BF : next 
4810 色見出 -- 1:gosub *VIEff ： VYS-VY ： VYE-VY+183：return 
4020 拿アイコン表示 ’- - 

40 30 if 位 S-36 then 位置 =0 else 位置 =36 
4840 ♦ ァィコン表示 2 

4 0 5 0 gosub * 隨し ： console 0, 2 5, 0, 4 0 : c 1 s : k«o d e 0 ： conso1 e 0 ， 25 ，位置 ， 4 
4060 cgen 1,1：for I-&H40 to &HF7 step 2 ： pr i n t chr$ (I) ； : next 

4070 if 筆 <8 then c f I ash« ( 位置 ， 1 + 筆） -( 位 ! 1,1 + 筆 ）， 1 else cflashe ( 位置 +2, 筆 -7)-( 
位置 +3, 筆 - 7),1 

4080 if ▲令 >0 and 命令 <19 then if i n t ( 命令 / 2) <> 命令 /2 then c f 1 ash« ( 位置 ， int ( 命令 / 2 
)+9)-( 位 1,i nt ( 命令 / 2)+9),1 else cf I ash® ( 位 ® +2, i n t ( 命令 / 2)+8)-( 位 ! B+3, i n t ( 命令 / 2) + 
8),1 

4 0 9 0 if 命令 >18 and 命令 <25 then c f I a s h@ ( 位 H ， 命令 - 1)" •( 位 ® + 3, 命令 - 1) ， 1 
4100 cgen:gosub tPUSIKG：knode l:gosub *C0HS0LEJretarn 

4110 * 領域指定 ， - 

4120 gosub * 入力： pen 0:X2*X:Y2**Y 

4130 if Y2<VYS then Y2-VYS else if Y2>VYE then Y2-VYE 
4140 gosub ♦BX:gosub 本 BX:if E or D then 4150 else 4120 
4150 if -令- 11or 命令- 12 then 4 180 
4160 if X1>X2 then swap XI,X2 
4170 if Y1>Y2 then swap Y1,Y2 

4 180 LX-X2-X1 : LY-Y2-Y1 : LXX-LX：LYY = LY：X*X 1 : Y~Y1 : return 

4190 ♦枠移’- 

4200 gosub * 入力 SUB:pen 0:if E or D then return 
4210 X3-X：Y3 = Y： i f 命令， 11or 命令 =12 then 4 250 
4 220 i f 命令 "10 or 誥令- 21 then X3- (X3Y8) *8 


► Fuzzy BASIC 。 なかなかおもしろい BASIC じやないですか。しかし思うのだが “ P 
ROC” や “FUNC” などはほとんど 1 月号の祝氏のノリじやないか。う一むすごい読者が 
いるものだ。しかし文字変数が使えないのは残念だなあ。 小山徳章 （ 19 ) 滋黄県 
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4230 if X3+LXX>S then X3=W-LXX 

4240 if Y3<VYS then Y3=VYS else if Y3+LYY>VYE then Y3-VYE-LYY 
4250 gosub 4260 ：gosub 4260 ： i ! 命令 - 21 then return else 4200 
4260 line (X3,Y3) - (X3 + LXX,Y3 + LYY),xor ,XC,B,&HAAAA：return 
4270 ♦ 終了 ， -- —— 

4280 HY-0 ： OY**L：color ,, , , 0：gosub *C0NS0LE ： gosub 本 VIEW ： gosub * 随し : pen 4 ： c I s ： D 
= 0 ： E»0iif EB then return else return ♦命令待ち 
4290 *BX * - 

4300 pen 9：1 i ne (XI,Yl) - (X2, Y2) ,xor ， XC ， B •• r e t u r n 
4310 * 隨し， -- 

4320 cIs ： i f 位 then HX=32 ： 0X-W else HX = 0 ： OX-287 
4338 vie 胃 * (HX,HY) - (0X,0Y) : HY- 0 ： 0Y-L ： return 

4340 *C0NS0LE * - 

4350 console 0,CM,4,32 ： CH-24：return 

4366 *VIEW * - 

4370 i f 色見出 then view (0, VY) - (W,VY+183) 

4380 return 

4390 ♦ 筆換え ’- — 

4400 pen 1 , 筆型 $( 筆）： pen 1： r c t ur n 
4410 *PUSING * - 

4420 console 2 3, 2, 位置 ， 4 :1o c a t e 位 S,PU:print using ~ ; 色；： PU 聽 2 3 : r e t ur n 

4430 TERROR . - 

4440 HY=16：gosub *隨し： E $ = s t r $ (e r r) 

4450 Z-instr (" 00000 3 6 40 4146 5 3 54 65\ E$)¥3 

4460 restore 4490 ：for I -1 to Z：r e a d M$ ： next：print M$ 

4470 gosub * 入力 ： if E or D then ER = -l：gosub * 終了 else 4470 

4480 if Z<3 then resume else on Z resu.e , ， ♦ 命令待ち， * LOAD, 3760, 3760, 3760 ， 3760， 3 
720 

4490 data** エラー 発生 **,*• 指定のデータが規定外です “，** メモリ容量不足となりました " 

4500 data “ 指定ファイルがみつかりません T 既に登録してあるファイル名を使用しました"，"プロテクトさ 
れたファイルを書き換えようとしました “ 

4510 data • ファイルを作成するスペースが無くなった ' ~ ファーマットされていないディスクを使用した '" 
アリンタが可動状想でない (PWW-off,offl ine) - 


リスト _ PCG データリスト 

... . 


1000 

1010 

1020 

1830 

1840 

1056 

1066 

1070 

1080 

1090 

me 

1110 

1120 

1130 

1140 

1158 

1160 

1178 

1180 

1190 

1286 

1210 

1220 

1230 

1240 

1256 

1268 

1270 

1280 

1290 

1308 

1316 

1320 

1330 

1340 

1356 

1360 

1378 

1388 

1398 

1400 

1410 

1420 

1436 

1440 

1450 

1460 

1470 

1480 

1490 

1500 


re> PCG EDITER DATA FILE 

data FFP9F1E1C1 810101,8141 A1D1E9F7F9FF,FF3FIF8F 07030101,0 30 5 0 B172FDF3FFF 
data FDFAF4E8D0A0A0FF,A0A0D0E8F4FAFDFF,3F1F0F 0783010 IFF, 010103070 F1F3FFF 
data FFFFFFFFFCF8F0F0,F0F0F8FCFFFFFFFF,FFFFFFFF3F1F0F0F,0F0F1F3FFFFFFFFF 
data 1102A 00500488114, 4002002000880208,1102 A 00580488114, 4002002000880208 
data FFFFFFFFFCF8F8F0,F0F8FCFFFFFFFFFF,FFFFFFFF7F3F IF IF,1F3F7FFFFFFFFFFF 
data 5192A11 532489194,688 A15A409A8520A,5192A11 532489194,688 A15A489A8520A 
data FFFFFFFFFFFEFCF8,F8FCFEFFFFFFFFFF,FFFFFFFFFF7F3F1F,1F3F7FFFFFFFFFFF 
data 55D6A5D5724DB1 97, 68BB15E659EB525A,55D6A5D5724DB197, 68BB 15E6 59EB525A 
data FFFFFFFFFFFCF8F8,F8FCFFFFFFFFFFFF,FFFFFFFFFF7.F3F3F,3F7FFFFFFFFFFFFF 
data 5DF7B5DF7ADDB5DF,6CFF95FE59EF725B,5DF7B5DF7ADDB5DF,6CFF95FE59EF725B 
data FFFFFFFFFFFFFEFC,FCFEFFFFFFFFFFFF,FFFFFFFFFFFF7F3F,3F7FFFFFFFFFFFFF 
data 5DFFF5DF7BFFB5FF,6DFFD7FF5DFFF7FF,5DFFF5DF7BFFB5FF,6DFFD7FF5DFFF7FF 
data FFFFFFFFFFFFFCFC,FCFFFFFFFFFFFFFF,FFFFFFFFFFFF7F7F,7FFFFFFFFFFFFFFF 
data 7DFFF7FF7BFFB7FF,7DFFF7FF7DFFF7FF,7DFFF7FF7BFFB7FF,7DFFF7FF7DFFF7FF 
data FFFFFFFFFFFFFFFE,FEFFFFFFFFFFFFFF,FFFFFFFFFFFFFF7F,7FFFFFFFFFFFFFFF 
data 7FFFF7FF7FFFF7FF,7FFFF7FF7FFFF7FF,7FFFF7FF7FFFF7FF, 7FFFF7FF7FFFF7FF 
data FFFFFFFFFFFFFFFE,FFFFFFFFFFFFFFFF,FFFFFFFFFFFFFFFF,FFFFFFFFFFFFFFFF 
data 7FFFFFFFF7FFFFFF, 7FFFFFF7FFFFFFFF, 7FFFFFFFF7FFFFFF,7FFFFFF7FFFFFFFF 
data 55FF7FE75BF875ED,6DED6DED73FF7FAA,55FEFFFEC31CAFB6,B7B6B7B6CFFEFFAA 
data 55FF7FFF40C055D5,55FA4FF12FD37FAA,55FEFFFE0302FFFE,FFFE3FFE7F7EBFAA 
data 55FF7CFC7CFC7CFF,7CFC73E040FF7FAA,55FE5F5E5F5E5FFE,1E1EDF3EFFFEFFAA 
data 55FF7CF36FEF5FDF,5FDF6FEF73FC7FAA,55FE3FCEF7F6FBFA,FBFAF7F6CF3EFFAA 
data 55FF7FFF7FFF7FFE,7CF973E74FDF7FAA,55FEF3E6CF9E3F7E,FFFEFFFEFFFEFFAA 
data 55FF7FFF7FFF7FFF,79F97FCF4FFF7FAA,55FEE7E6FF3E3FPE,FFFEFFFEFFFEFFAA 
data 55FF7FE06FEF6FEF,6FEF6FE07FFF7FAA,55FEFF06F7F6F7F6,F7F6F706FFFEFFAA 
data 55FF7FE060E060E0,60E060E87FFF7FAA,55FEFF 0607060706 ,07060706FFFEFFAA 
data 55FE7EC05FF87FFF,7CFF60FF7BFC7FAA,55FEFF06F73EBF7E,FF7E03BEBF7EFFAA 
data 55FF6BEB49C949C9,41E 3410555 Cl7FAA,55FE87CE 031213 22,432A2B0A3B02FFAA 
data 55FF55FF5DF850F8,54FE7CFF7DFC7FAA,55FE7FFE7FFE5F86,171617F6F706FFAA 
data 5 5FF4 0DF5DD8 5 0D8,44FE7CFF7DFC7FAA,55FE7F7E7FFE5F12,1B1A1BFAFB62FFAA 
data 5 5FF4 0DE5DD84 4EE,6EEC6FEF6FE07FAA,55FEFF82FBDA 1B1 A,1B1AFBFAFB02FFAA 
data 55FF40DF5DD85CDE,5EDC5FDF40FF7FAA,55FE07F6F7D61716, 1702787 A7B02FFAA 
data 559P3FD78FC62AEC,60F078FC7BF67DAA,551EBF1E1FAEAFA6,0190010055A85FAA 
data 55FA15AA 00800080, 65F575F878FD78AA,55BE6FDE3F1E0F 06,375463 F0EBFCF9AA 
data 55952 3 F06BFD7EF 8, 278027 F87EFF7FAA,55FEFF7E3B160D0A, 050A050A070A03AA 
data 55FD76FB7CF870E0,6CAA468F57BF1FAA,555EA 95401089100, A7AEAF1E1FBEIFAA 
data 55FF6AF56AF569F2,64E97FE07FE07FAA,55FFAF5FAF5F2040,9020FF0FFF0FFFAA 
data 55FFF5FA753A1 902,04193 F70FFF0FFAA,55FE27CA13A67F02,FF02AB56AB56FFAA 
data 55FF60E065E261EF,6FEF6FEF6EE07FAA,55FF 000054 AB55AB,BP0F9F1F0E00FFAB 
data 55FF1F3F3FFFFFFF,E1C3E7CF0F1FFFAA,55FE 07760776077 E,7F 0677067706 FFAA 
data 55FF78F364C850D6,46C043E070F87FAA,55FF1FCF27130B08,2360C3070F1FFFAB 
data 55FFFFFFFFFFFF00,FF09FFFFFFFFFFAA,55FEFFFEFFFEFF1E,1F1EFFFEFFFEFFAA 
data 55FF48CF4ECE4ECF,48C848C848C87FAA,55FF1FCF5F3778F8,F87837170787FFAA 
data 55FFC0DFD0D03E3E,3E3ED0DFC0C0FFAA,55FE03FA0B0A0B0A,0B0A0BFA6302FFAA 
data 55FF48CF4ECE4ECF,48C848C848C87FAA,55FF1FCF 47 47 78 F8, 7878070 71707FFAA 
data 55FFC0DFD8DC2E2F,2F2EDCD7C0C0FFAA,55FE03FA0B0A0B0A,0B0A0BFA6302FFAA 
data 55FF7BF777F777F7,7FF070F575F57FAA,55FFFFEFC7EFE7C0,00FF 02005555 FFAA 
data 55FFFEE5CCCDCC0D,1 EE 1FC005455FFAA,55FE9F4EA756A756, 071EDF1EDF1EFFAA 
for I-&H46 to &HFF : r e ad D$ ： def chr$(I,1)-hexchr$(D$) : next 
ran "SUPER PAINT 256" 














Haginiwa Takeshi 

莉庭崇 



，《響, 

巨大なピラミッドのなかを，火の玉の怪物やガイコツをかわしながら進んでいく，アクシ 
ヨンとパズルをドッキングさせた楽しいゲームです。アッ，また燃えちやったなんてこと 
にならないようにじっくりと考えて，20個のクリスタルを集めて「魔法の書」を取り返せ I 



舞台は1900年のエジプト。俺は少しは有 
名な考古学者で，勇敢な冒険家のオールド 
ビー•ジョーンズ。1年ほど前，ある宮殿 
を探検しているときに念願の「魔法の書」 
を手に入れ，それ以来魔法の習得に励んで 
いた。だがある日，俺の心に魔が差した。 
魔法を悪用しようと考えてしまった。その 
瞬間に「魔法の書 j は消え失せ，いままで 
に覚えた魔法も一瞬にしてほとんど忘れ去 
ってしまったのだ。 

周囲は暗闇に包まれ，気がつくと杖を持 
った老人が目の前に立っていた。「ジョーン 
ズよ，おまえは悪の世界へ足を踏み入れた 
ために神の裁きを受けた。もし，改心する 
気があれば王家の谷へ行って20個のクリス 
タルを集めるのだ。そうすれば神の怒りも 
収まるだろう」老人はこういうと白い煙と 
ともに消えた。 

そしていま，巨大なピラミッドが並ぶ王 
家の谷に俺はいる。ピラミッドの内部は複 
雑な迷路になっていて，恐ろしい怪物が棲 
んでいるという。 

遊び方 


ピラミッドのなかを動き回り，敵から逃 
げながらエメラルドを集めるというアクシ 
ヨンゲームです。エメラルドを8個取ると 
王室の入口が開くので，なかに入ってクリ 
スタルを取れば1面クリアです。全部で20 
面あります0プレイヤーはテンキーの [ U ， 

13，11]， ® で上下左右に動きます。また， 
E , 囝のキーで自分の左か右に氷のブロッ 
クを置くことができます（これはわずかに 
覚えている魔法のひとつ)。 



これを使って通路をふさいだり，敵を閉 
じ込めたりできますが，氷ですから一定時 
間たつと解けてしまいます。それに， 2個 
以上のブロツクを同時に置くことはできま 
せん。これは フル キーの H ， 囹 を使ったほ 
うが操作性は向上します。 

ピラミツド内の空気は悪く，最初1500あ 
ったパワーはじっとしていても減っていき 
ます。しかも，敵に触れるだけでパワーを 
吸い取られるので，ひたすら逃げてくださ 
い。しかし，パワーを回復する聖なる薬が 
用意されています。 

怪物のなかには自分で勝手に壁を作って 
しまうのもいるので，邪魔なときは H ] のキ 
一を押すと怪物の作った近くの壁を消すこ 
とができます。ただし，この魔法はパワー 
を消費してしまいます。 

キヤラクター 


キヤラクターはすべて PCG (8 X 8) 

を使っています。一部には アニメーション 
技法を取り入れてみました。敵キャラはそ 
れぞれ特有の動きをするので，この動きの 
研究が ゲームの ボイントになるでしよう。 
個々の特徴は以下のとぉりです。 

1) デヴリン……火の玉の怪物。よそ者を嫌 
い，執ようにジョーンズを追いかける0 
知能はあまり発達していないので，うま 
く逃げることは可能だが，ただし，斜め 
に進むのでやっかい0 

2) ガイコッ……ものすごいス-ピードで迷路 
を飛び回っているどくろ。ぶつかるとか 
なりのダメージを受ける。 

3) ゴルゴン……太古の昔から迷路を作り続 
けてぉり，次々と壁を作っていく。普段 
はおとなしく，なにも危害を加えないが， 
こちらからぶつかったりしようものなら 




凄まじい勢いで反撃してくるので要注意。 

4) 聖なる薬……生きる力を与えてくれる青 
い壺に入った薬。デヴリンの好物なので 
先に取られないよう注意すること。 

ブログラムについて 


このプログラムでは ， I F 文の数を最小 
限に抑えて ON 〜 GOTO を多用したり，速 
度が要求されるところではラベルを使わな 
かったり，よけいなサブルーチンを使わず 
ほとんどをその場で処理するなど，速くす 
るためのテクニックを使っています。おか 
げで，2500の BASIC 自体の速さと相まっ 
てかなりの速度が実現できていますが，逆 
にプログラムは読みにくいものとなってし 
まいました。 

また，2500には “REPEAT ON ” という 
キーリピートを速くする（最高速だとウェ 
イトなしでリピートがかかるのでリアルタ 
イムゲームには欠かせない）命令があり，そ 
れの使用でキー入力がスムーズになってい 
ます。 

オープニングとエンデイングに FM 音源 
を使ったミュージックが流れますが， FM 
音源にはまだ慣れていないので，工夫の余 
地がありそうです。 



特集 PYRAMID WARS 85 







































リスト 


PYRAMID WARS 


le 
20 
36 
4fl 

se 
60 
78 
80 
9 0 res 
100 rep 

lie Hl$ 

126 U2$ 
136 H3$ 
ue 114$ 
150 U5$ 
166 M6$ 
170 *aa 
180 gosu 
190 


PYRAMID ffABS 
for UZ-2500 


int A-G,I-R,U-Z：k«ode 0 
ore：MEN-0：SW=0：T-0：M-0 
at on ,4：PW-1500 

■O3L4T208RC8RE8R8G8RC8KE8R8G8RA-8RG-8R8E-8RA-8RG-8R8E-8" 

"O5L4T200CR8ER8G8R8CR8ER8G8R8A-R8G-R8E-8R8A-R8G-R8E-8RS" 

'O5L4T200<GR8>CB8E8fi8<GB8>CR8E8R8E-R8D-R8<B-8>R8E-R8D-R8<B-8>R8* 

■03RC8RE8R8G8BC8RE8R8G8A-1" 

■0 5C88E88G8R8CR8ER8G8R8A-r 
•O5L4T200<GB8>CR8E8R8<GR8>CR8E8R8E-r 


» 拿 GAMEN:X-19:Y- 
*•0",-¢0*,-#0* 


: Xl-19 ： Yl-6 


286 

P 1 ay ,,Ml$，M2$,M3$:pUy , 


4$,M5$, 

M6$：p 

1 »y 

"it 



210 

*>>>>> key input & 難 ove 








220 

key 0,""：K-val (inkey$) ：on 

K 

goto 309,240 





230 

goto 280 








240 

X1-X：Y1-Y+1：goto 280 








250 

Xl-X-1 ：Yl-Y：goto 280 








260 

Xl-X+1：Yl-Y：goto 280 








270 

X1-X：Y1-Y-1：goto 280 








280 

on BS goto 330 








296 

goto 390 








300 

on BS goto 330 








310 

BS-1：BY-Y：BX-X-1：if K-3 then 

BX-X+1 






326 

SC2$-scrn$ (BX,BY) ：if SC2$<>" 

- then 

BS-0 

: goto 390 



336 

BK-BK+ 1：on i n t (BK/10) goto 

348,340， 

34 6, 340, 35e,3 5e, 35 0, 36 0, 36e, 37 0 

340 

locate BX f BY：c ge n l:print 

— 9 

"； : cgen 

: goto 

380 




350 

locate BX,BY:cgen Imprint 

* : 

• ; : cgen 

: goto 

388 




360 

locate BX,BY：ege d Imprint 


"；• cgcn 

: go to 

380 




370 

locate BX,BY:cgen l:print 

•< 

着；： cgen 






386 

if BK-109 theo loeate BX,BY： 

print * 

■ ; :BK- •: 

BS-e 



396 

SCS-scrn$ (XI,Yl) : « f SCS<>' 

• 

then 939 





480 

locate X，Y:priut • " i ：1oe a 

t c 

XI,Yl： 

cgen 

1:p r 

int '1"；：ege n 

: X-Xl 

: Y-Yl 

419 

Pff-PW- 1 ： locate 32,7:print 

PW：： i£ PW 

•<0 then 

1130 



420 

on FS goto 44 ❿ ，450,460 








439 

PS-1：P$-chrS (52) : goto 478 








“e 

FS-3：P$-chr$ (52) : goto 520 








450 

FS-2：Ft-chrS (53) : goto 520 








460 

FS-0：P$-chr$(53) : goto 520 








470 

PXl-FX+sgn (X-FX) : FYl-FY+sg 

n(Y-FY) : SC-»sc (scrn$ (FX1,FY1)) : 

if SC 

-32 or 

then 

526 








486 

if SC-49 then PW-P»-100：pl 

ay 

"T 25503 L32G+E* : 

goto 520 



496 

SC-asc (scrnS(FXl,FY)) : if SC- 

32 or SC-5« 

then 

FYl-PY：goto 

526 



5ee SC-tsc (scm$ (FX,PY1))：i f SC-32 or SC-5» then FXl-PX：goto 520 
516 PX1-FX：FY1-PY 

528 loeate PX,FY：print ' "Hcgea 1 : loeate FX1,PY1：p r i n t PS； : e g e n ： FX-PX1：PY-FY1 
531 on ES goto 550,560,570 

549 ES-1：E$-chr$(S3) : goto 586 

550 ES-3：Et-ehrt (53) : goto 830 
568 ES-2：ES-chr$ (52) : goto 630 
570 ES-0：E$-chr$ (52) : goto 636 

588 EXl-BX+sgn (X-EX) : EYl-EY+sgn (Y-EY) : SC-tsc (scrn$ (EX1,EY1))：if SC-32 or SC-50 
then 638 

pity 25503 L32GW :goto 636 

SC-32 or SC-58 then EYl-EY：goto 830 
SC-32 or SC-50 then EXl-EX:goto 630 


599 if SC-49 then PW-PW-108： 
690 SC-ase (scrn$(EXl,EY)) : iI 
616 SC-"c (scrnt (EX, EY1))：i i 
62» EX1-EX：EY1-EY 
030 locate EX,EY：priot "-；： 


646 if GX- 
6St on GS go 
869 GS-1：GD- 
87 參 on GD go 


cgen 


locate EX1.EY1: 


en 768 
o 670 

n t (rod (1)*4+ 1) 
o 680,690,700,719 


int E$；：cgen：EX-EXl：EY-EYl 


689 

GX1-CX+1 

SC-tsc 

(scrnS (GX1,GY)) 

if 

SC-32 

then 

GY1-GY 

goto 

746 

else 720 

69« 

GY1-GY-1 

SC-tsc 

(scrnS (GX,GY1)} 

if 

SC-32 

then 

GX1-GX 

goto 

740 

else 720 

7M 

GX1-GX-1 

SC-tsc 

(sern$ (GX1,GY)) 

if 

SC-32 

then 

GY1-GY 

goto 

74 ❶ 

else 729 

711 

GY1-GY+1 

SC-tsc 

(scrn$ (GX,GY1)) 

if 

SC-32 

then 

GX1-GX 

goto 

740 

else 729 

721 

if SC-49 

then p 

I ay "T12«L3208CGCG* 

: P»-PW-5«I：GX1-GX 

GY 卜 

GY：go 

to 740 

73* 

GS-6 ： p 1 ay 

•T1 2013208 C •: GX1-GX：GY1- 

GY：coto 749 



741 

loeate GX,GY:pr 

int "；s 1o c a t e 

GX1 

,GY1： 

cgen 1 

：print 

y ; 

: cgen 

: GX-GX1：GY-GY 


SC-62 then 870 else 869 
SC-62 then 878 else 886 


751 for 1-0 to 5 •: next 
760 if LX<>0 then goto 780 
770 if GX-• then pause 1：goto 220 else 220 
780 on LS goto 816,806,806,808,809 
79* LS-1 ： LB-int (rnd (1)*4+1) ： LK-int (rnd (1)*3+1) 

889 LS-LS+1：i f LS-8 then LS-1 ：goto 888 
81# on LH goto 829,83 6,840,856 

821 LX1-LX+1 ： SC-tsc (scrnS (LX1,LY1)) : it SC-32 or 
83* LY1-LY-1 ： SC-*5C (scrn$ (LX 1,LY1))：if SC-32 or 
840 LX1-LX-1 ： SC-»se (scrnS (LX 1,LY1)) : if SC-32 or SC-62 then 870 else 860 
859 LY1-LY+1 ： SC-tsc (scrn$ (LX1,LY1))：if SC-32 or SC-62 then 870 else 880 
869 LS-« ： LXl-LX ： LYl-LY：«oto 880 
87* LK-LK-1：if LK<1 tben LS-0 else LS-2 

881 locate LX ， LY:print • "s egen 1：loeate LX 1 ， LY1:print • 塞 -: cgen:if LS-2 then 8 
98 else 910 

890 LB_int (rnd*12+l):if LR>4 then 916 

906 pIty *04T1 20130 CE"：cgen 1：locate LX,LY：print -: cgen 
916 LX-LX1 ： LY-LY1 

9 2 8 for I -1 to1 0 0 ： n e x t I : go to 2 2 0 

930 C-tsc (SC$)-47：on C goto 940, 94 6, 950,1166, 400, 408, 980,1010, 400, 940, 940, 949, 
940,1210 

949 Xl-X ： Yl-Y：*oto 409 

950 locate X,Y：p rin t ~ ： I ocate XI,Y1：cgen 1：p r i n t "1"s cjen : X-X1 ： Y-Yl 


86 Oh ! MZ 1986.10. 


►プログラム リストの下に「 XI の 16 ビット」のことが普いてあるけど，そんなの出しても 
売れないと思います。ど一せ8086使ってるんでしよ。やっぱり16ビットは PC -98 にとどめ 
をさされている感じだし今さら出してもムリだと思いますよ，僕は。 

村上哲朗 （ 18 ) 東京都 





















960 play wait ： for 1-1 to 2 5：p I a y ,,,*05A32' ： PW-PW+30：locate 32,7：pr i nt Pff ； : ne* 
t I 

976 T-T+50fl：goto 419 

980 locate X,Y：print 0 ；： 1oc a t e Xl,Yl:egen 1：prin t ■1•:cgen:X-X1:Y-Y1 
990 T-T+iee ： locate 32 # 5：pr iot T；：pI ay *L2507ABABAB" ： II-H+1：if M-8 then locate C 
X,CY-l：print " - ； ：goto 418 


eee 

010 

920 

030 

040 

ese 
866 
• -: < 
070 
080 
090 
100 
lie 
120 
130 
140 
150 
160 
170 
188 
190 
200 
210 
228 
236 
248 
250 
260 
270 
280 
290 
300 
310 

329 

330 
340 
350 
wait 
366 
370 
380 
396 


: locate XI,Y1：cgen 


: p r i 


k 


1 000 " 


cgei 


goto 410 

* n clear 

locate X,Y:cgen:print 
if MEH-20 then 拿 ENDING 

P I ay “OSTmLlSCDEGEGEGEG〉。〗、p Uy ira i t ： color 6 ： e I a 
locate 6,8 : print * ROUND ' ； MEN；* CLEAR" 

I o c * t e 6,12：print BONUS " ； ： c o1o r 7：p rin 
olor 7 ： T-T+1090 ： SW-0 ： M=0 ： BS-e ： BK-0 
c f I a s h 1：locate 8 ， 16:print * push 
I$-inkey $： i f then 1086 

goto170 

locate X,Y：print * ；： 1o c a t e Xl ， Yl:cgen 
play 'T120L32O8CGCG- : PW-Pff- 1080 
goto 41 0 

* game oveb 

play "T120L9O3CECDRFEDEGCR<BAB>C1"：locate Xl,Yl：cgen 1 
play wait：pause 50:cls:if HS<T then HS-T 
locate 10,10 ： co lor 2：pr int "YOU DIED...* 
locate 12,16：c oIo r 7 ： c f1 a s h 1 ： p r i n t "try again (Y/K) ? 

I$-inkey$：if IS-"* then 1186 
if 1 $ •丁 or then 10 

if IS-*N" or tken：repett on ： ini t "CRT ： ,,,r：end 

locate X,Y ： p r i n t " ；： 1oc a t e XI,Y1：egen l:print "1"；：c g e n 
PW-Pff- 200fl：play "O5T120L25CDECDEF" : goto 418 
. - break block - 

P I ay ,,, -O5T20eL25A* ： PW-PW-500 ：if PW<0 then Pff-PW+509 ：go 
BBX-X~l ： BBY-Y-l：gosub 1340 
BBX-X : BBY-Y-l：gosub 1340 
BBX-X+1 ： BBY-Y-l：gosub 1340 
BBX-X-1 ： BBY-Y : gosub 1340 
BBX-X+1 ： BBY-Y : gosub 1340 
1346 
1340 
1346 


egen ： MEN-MEN+l 


X-Xl ： Y-Yl 


te 1180 
： X-X1 ： Y-Y1 


BBX-X-l ： BBY-Y+l：gosub 
BBX-X : BBY-Y+l：gosub 
BBX-X+1 ： BBY-Y+l：gosub 
pity " i t: goto 230 

SC-asc (scrn$ (BBX,BBY)) : if SC<>6 2 then r e t u 
for I -1 to 5 ： locate BBX,BBY:cgen 1：p r i a t 
: color 5 ， 0:print -※ ：： for J-0 to 90 : next 
next I ：Iocate BBX,BBY : prin t ' ； ： re t urn 

•ENDING 
play on 

c I s : egen:init *CET1 ： 41,20 > 0«0*ieolor ,7:cl 


l«y -O5T120L30C>C- ： cgen：pl 


: coI or 6: 

,10 


400 print •*** CONGRATULATIONS ! crev ： c! 

410 print •--- YOU GET TWENTY CRYSTALS " ： loci 
420 print AND HEALTHY LIFE r 

430 egen 1：locate 18,13 ： p r i n t "1"：egen 
440 gosub 1510 ： p&use 50:color 7,0：eIs 2 
450 locate 7,15：pr int * [ YOUR SCORE-* ； T ； *pts.]" 

468 color ,C0:cls 2：play P1$, P2$, P3$ ： p!ay P4S, P5S, P6$ ： C0-C0+1：if CO-8 then 


4 7 0 I $-inkeyS：if I$<>"" then color 
480 on play gosub 1500 
490 goto 1476 
580 goto 1460 


epeat on：end 


1510 • - e n d i ng ausie 

1 520 option base e：dia PA* (4,9),PB* (4,9 ) t ?Cx (4,9) 

1530 tone copy 0,PAX：tone copy 18,PB% : tone copy 17,PC% 

1540 tone PAX,PB*,PC* 

1558 P IS-"0 414117 6CC16C16C16C16C2EE16E18E18E18E2PA8.G16P8E8D8C8 - 
1560 PZt/OSLSTlZSCGCGCGCGEGEGEGEGFW^cl^CdADA*" 

1570 P3$-*05L8T178RRKBSEDCRRRSBGECBRRRBBRB* 

1580 P4$- - 04141170 D2. - 

1599 P5$-* 03181170 DGDGDGDG - 

1600 P0$-- 05181178 GGGGRGAB* 

1618 P7$-* 0414117 «D.C8C.88* 

1628 P8S-*03L8T17eDGDCC4.8* 

1630 P9S-- 0518117 «DGDCCR>C.Cl8C* 

1 640 pI ay P1P2$,P3$:pI•y P4$ y P5S,P6$：pI ay P1S,P2$,P3t ： pI»y P7$,P8$,P9$ 

1650 return 

1669 *PCG 

1670 data 0939, 000000 MFBFBFB00DFDFDFMFBFBFBMDFDFDF00 

1680 data 0031 ， 000000 FFBD3C2400183Cl8FFBD4200860e0018FFBD 420000 
1890 data 8 0 32, 0 0 18183C7EFF7E3C3C 9 0 •« 060 • e •• 0883C0 «0•• 462620606 
1706 d«t« 0033, 3E 4949497 P2A2A3E3E 4949497 F2A2A3E3E 4949497 F2A2A3E 
1710 data 9634, eeeeeieeteeeeeeei 224296 bfefe7e 3CMeeee 20287 C3cee 
1720 data 0635, 06609660066008000868123E7C7038068906660618389080 
1 730 data 0036, 96 8864840008809««0680494 ee«00ee«18 3C7E7E7E7E3C18 
1746 dkta «0 37,183C7EPPFF7K3C1 S 18387CPDFF7E3C 180 • 02 • 2 • 8 ••§ 0 
1756 data 0038, 187E7E181818008 • 187C78101 « 183CPP187E7E1818182«C9 
1760 dtta 0039,7EFFFFFFFFPPFF7E0e80ee80000e00e07EF3F9FDBF9PCP7E 
1770 data ee3A,901e52FAFBFFFF7Eeeeeeeeeeeeeeeeeeeie52FABB9FCF7E 
1780 data 003B, … 0 1• 50F0Fm7E00• … 0000 ……… 0 1• 509ACF7E 
1790 ittt 003C, … 00 … 2034FE7E … 0000…… ………002014 CE7E 
1806 data 08 3D , 06696900008068908606641030 7CF80e9898FB2ieiei046C 
i8ie dtta 8 0 3E, eeeeeeeeeeeeeeeeFBFBFBeeDFDFDFeeeeeeeeeeeeeeeeee 

1829 for I -1 to15：r e a d CS,D$ ： d e f ehr$(val ("4H" + C$))-heichr$(D$) : nezt：return 

1830 *GAUEN 

1840 ini t ^CRTlUe^S^e^^kl ist 0 ： i f MEH-e then gosub *PCG 
1850 locate 19,4 ： egen 1：p r i n t locate 18,5 ： prin t * 000 " ； 

1860 for 1-6 to 23：locate 23-1,I：print - 00 •:: cgen:pr i nt spc ( (I-5)* 2-1);:cgen 1: 
print '00* ； Jne*t I 

187 0 locate 0,23：egen 1：f or J-0 to 38：p rin t "8" ； ：next J ： egen 
1880 for 1-6 to 22 
1890 KT- (1-5)*2-1 
1966 for J-0 to KT-1 

1910 gosub *VALL : if G-0 tben 1920 else locate 25-I + J,I : egen 1：pr i n t "0" ； ： egen 


► XI の 16 ビットの話が出ていますが，せっかく Z 8000というものがあるのだから使わない 
手はないと思うのですが。アーキテクチャもいいし 8 MHz くらいで動かせれば MC 68 K に 
もひけをとらないと思うのです。互換性は望めないでしようが，要するに PC -98 に勝てれば 
メジャーになれるでしょう。 太田啫久（18> 大阪府 


特集 PYRAMID WARS 8 / 









1920 next 
1930 next 
1940 loot 
RAHID WARS 


□※ 


: print "S※ ※糸 
int "HI SCORE-"； : color 5 ： I< 
t T：locate 26,7 ： co1or 6,0:pri 




2, 


e 26,5 : pr 
"POWER-** ： 


: locate CX-1,CY：p r 


»：pr i n t 
-SCORE- 


■ 076 " 


3,2:eo1or 6 P t 
octte 26,2:pr 
；：coI or 7：loc a t e 32 , 5：pr i i 
e 32,3:print HS 

1950 locate 27,9：print 'ROUND * ； «EK+1 

1 960 read CX,CY ： locate CX-1,CY-1 ： cgen l：pr int - 000* 
locate CX-1,CV+1:print "000" ； : egen 

1970 EHELARUD & BOTTLE 

1980 for I -1 to 8：r e a d EX,EY：locate EX,EY：cgen "print _6 鋒 ；： next I 
1990 for J-l to 3：read BX,BY：locate BX,BY：print ^ l "； : next J 

2909 retd FX,FY,EX,EY,GX,GY,LX,LY ： PX1-FX ： FY1-FY：EX 1-EX ： EY1-EY ： GX1-GX：GY 1-GY：LX 1 
-LX ： LY1-LY 

2910 cgen*return 
2629 *1TUL 

2939 if SW-1 then 2050 

2040 SV-1：read G$ ： G2«-bin$(va I rtH" + G$)) : L-len(G2«) : KT2-6：if L<8 then G2$-strin 
g$((8-L) ,~e") +G2$ 

2050 KT2-KT2+1：if KT2-9 then 2946 
zeee g-v&i ( B id$(G 2 s,kt 2 , 1 )) 

2070 return 
2680 GAMEK.DATA 
2098 *>>>>> 1 Ben 

2100 d*tt 82,ee, 36, 85,ee,D8, 0 B, 88 ,68,08,«F,57,82,P7,7A,0« f 41, 00, 39, 7F,4E, 1C,C7, 

19, C3,9D,e5,CE,00,FC,1F,80,3E,06,00,3E,ee,19,22,17,11,21,11,11,15,27,15,15,20,23 
, 20, 3, 2 2, 35, 2 2, 19, IS ， 10, 2 2, 28, 22,12, 17, 28,17, 0, «，#, e 

2118 *>>>>> 2 aen 

2126 data 0 2, 1C, 08, 68,82, DA,IB, 6C, 3B,8E, 0 0, 0 0, 0 3,E5,3E. 0 7, 36, 78,12, 7 7, 24,«E,3D, 
E3,82,49,04,92, 1C, 7®,e 7, 1C, 3E,F 8 ， 0 F,BE, 0*, 19,22,18,11,20, 11, 18,15,22,15,3,22,ie, 
22, 28 • 22, 35, 22,19,15, 7, 19,31,19, 18,28, 18, • ， • ，参 ，# 

2138 *>»>> 3 sen 

2146 ditt 0 2,2A, ¢6, 02,AA, 9 0 ， 0 «,28,0A,0 0,80,0 2,A0,2A,0 0,90,2A,AA,AA,0 0,0 0, 
00, 0 2, AA,AA,AA,0 0,6 0,2A,AA,AA ， AA ， 0t ， 19, IS ， 16, 10,20,It,12,18, 2 6, 18,3, 2 2,16 ， 
22,22,22, 35,22,18, 12,20, 12, 19,21, 1¢, 19,28, 19 ， 19,19,0，¢ 

215* *>»>> 4 Ben 

2168 data 0 0, 77,14, «D, 8 2, 8A,1A, AC, 32, 26, 7D,DD,F«,85,•#,IF,5 5,7C,30,41, ¢8, 9D ， DD, 
DD, 82, 55,«5,5 2,7D,5C,ID,5P,0 0,46,01,96,88, 19, 22,11,14, 27,14,5, 21,13, 2#, 25, 2®, 33, 

20, 3, 2 2, 35,2 2, 19,12, 15,2 8, 2 3, 20, 9, 17, 2 9, 17,8，¢，¢,0 
2178 ">»>> 5 鼸 en 

2180 data ❹ 2,_• ， 22,_5, « ， S5,CS,SI, 54, 95,IS,«5,4_,55, 5 籲， IE ， 5S,3C,2 ❹， SS,02, E2, 

3E,8«,C1,84,18,1C,38,«E,lC,ee,E0,03,8«,0a,19,22,11,14,27,14,II,19,28,19,15,20,23 
,20,14,22, 24,22, 19,18,2,22,3S,22, 16, 9,21,9, «,«，《, e 
2190 * >>>>> 6 aen 

2 20 0 dttt 夂 14,14, S ， 0 ， 5¢ ， 14, 94, IS ， 54, IS ， 55,41 ， SS ， 54,14, 94, 94, IS ， 41 ， S4, 15, 55, 55 
,42,5S ， 5,52 ， 15,55,D5 ， S4,0,81 ， 4e ， 8e ， 0e ， 19 ， 22,IS ， 16, 23,18,15, 18 ， 23 ， 18, 8 
, 29 , 30, 28 ， 3, 22, 35, 22,19,12, 7, 21, 31, 21,11,14, 27 , 14,0, ¢,0,0 

2218 ">»>> 7 aien 

2221 data ❷， 14,14,12, 41, 54, 5, S0, 34,18, • ， 7_ ， • ， 95, 48,17, 5D ， 74,12,41 ， 24, E ， 3A ， E 3,8 
2,49,24,92,ID,24,92,5C,9,71,C7, 48,8*, 19,16,15,14, 23, 14 ， 18,19, 2¢, 19, 3, 
22 ， 11 ， 22, 27 , 22, 35 ， 22 ， 19 ， 10, 8, 22 ， 3¢ ， 22,13,19, 25,19,9, 9, 9,9 
2236 •>>>>> 8 aen 

2249 data «,14,1 4, • ， 2, AA ， A ， AS, 2« ， 2, 8, 50 ， 82, 1 5, 42, 9, 41 ,48, 21,S5, 42,8, 4S,1 « ， 82,1 
5, 5, 42, 8, 55, D5,8,21,4 5, 51,42,0 8,19, 22,18,12, 29, 12,12,16, 26,16,16, 19 ， 
22 ， 19 ， 11 ， 22 ， 27 ， 22 , 19, 29 , 3, 22 ， 35 ， 22 ， 14,14, 24,14,19,17, 8, e 
2256 *>>>>> 9 aen 

2260 d»tt 0,I,0,19,2,51,9,74,9,56,1,85,I,0,8,8,88,F«,2D,14,12,1A,A2,8,C9, 82, 1, 
8,7A,89,CF,2P,2,1,48,26, ¢1, 19, 22,15,11,18,15,18,19, 2«,19,11, 20, 27, 
21 ， 3 ， 22, 3S, 22,15,18, 25, 2¢, 33, 2«,IS,15, 23,IS,0,1,0 
2271 *>»> 10 B en 

2280 dtta 9, 14,8,IS, 4«,§, 15,54,2,20,1S,S5, 4«, 80, 8, 15,55,54, «,8,0, 1 4, 55,51 ,48, 9 
2,2,4S,15,15,D4,54,2e,41,41,2,««,19, 22,17,15, 21,15,12,16, 26,16,15, 21 
, 23 ， 21, 3 ， 22, 35, 22,18,11,10, 20 ， 28 ， 20, 15 ， 12, 23,12,0,«,e,0 

2298 *>>>>11 aen 

23ie dttt 參 ，1 4, • ， 1 7, 48, S8,ID, SC, • ， • パ 5, DD ， 41 ， 55, 54, 17, 55, 74, • ， • ，き， 15, 77, 75, 43, 
55,5,56,ID,D5,D5,DC,38,1,48,E,08,19, 22,13,18,17,16, 21,18, 25,18,15, 20 
, 23 ， 20 ， 3, 22, 35, 22,lfl,12,11, 20, 27, 20,15,14, 23,14,0,0,0,0 

2318 *>>» 12 aen 

2329 data 5D,8«,B8,AD,A8, 2«, FB,8F,IB, 8C, 56, 3, 51,8D,B4,5D,B8,DD,S ， 88,D«,7F,8D,B 

7, F0,6,3,8,6A,DB,ED,AB,0,43,61,0,e0,19, 22,14,11,19,11, 24,11,19,13,11, 
18 ， 27 ， 18 ， 3, 22, 35, 22,19,17,17,18, 21, 18 ， 18,15, 22,15,0,0,0,0 

2336 ’>>>>13 aen 

2340 dtta 50,5D,8,5P,D1,4,5P,7D,1,40,7D,DD,F6,88,8,8F,DD,FB,4.14 f 10,5F.B7,6F,D 
0,9,4,88,7B,B7,F6,EP,e,8e,0,80,8e,19,18,17,14, 21,14,12,16, 28,16,13 ,1 

8, 25 ， 18 ， 3 ， 22, 35 ， 22, 17 ， 12 ， 21 ， 12 ， 19, 2«,13,14, 25,14,0,0,19,20 

2350 >>» U aen 

2368 data A, 88, 22, 7A,P8, 0, AF.FA, 28, A, 1 A,DA,C1 ,8, 84,17,F7,F4,16,0,4,F,DF,DF,82, 
21,4,22,IE,PD,DF,BC,2,1,46,20,00,19, 22,15,18, 23,10,12,13, 26,13,12, 28 
, 26 ， 20 ， 8 ， 22 ， 38 ， 22 ， 19, 10 ， 18,18, 20,18,14,16, 24,18,0,0,19,18 
2370 *>>>>15 aen 

2380 data 3, D8, C2, 7P, DC, 44, 75, 5D, 4, 41,DF, FF, F1,11,M, DD,55, 57,C1,11,If,7P,PF,F 

F,D0, 44, 44, 44, 5D, 55, 55, 5D,D4, 44, 44, 40,e0, 7 , 22 , 22 , 9, 18 , 12 , 28 , 12 , 18 , 16 , 

22,16, 26,16,18, 22, 26, 22, 2«, 7, 5, 22, 35, 22, 20,18, 22, 22,8,0,0,0 

2390 *>»> 16 鼸费!！ 

2400 data 55, 55,05, F5,7F,57,C5,51,D5,55,F5,55,71,55,54,55,55,55,05,55,55,F5,55 
, 55, 71, 55, 5, 54, 1 5, 55,D5, 54, 31,11,44, 46,00,19, 22,17, 8, 21, 8, U,13, 24,13, 
3, 22,12, 22, 26, 22 , 35, 22,19, 6, 5, 21, 33, 21,10,16, 28,16,19, 29 , 0, 0 

2410 *>>>>17 aen 

2420 data 0, 0, 3E, F, 80, F0, 3, E«, 3, C0, 0, «,1,F8, 3E, 6, Cl,F0, 7, C3, 80,1,P®, 7C, 0,IE, 3, 
ce, 0 ， 7 e ， lE,e ， e, 70 ， 3 C ， 0 ， 00,14,17, 21,14,IS, 16 ， 22,16, 27,17, 8, 20,16, 2e 
, 30, 20, 21, 21, 21,12, 24,18, 25, 22, 9 ， 20, 29, 20,19,19, 0，0 
2430 '>>>>18 

10, 40, 20, 0, 8, 0, 0, 0, 70, 0, 25, 20, 0,1C, 0, 0,0, 0,0, 2,0, 0,18, 0,40, 8, « 


2446 data 9,9 f 
,0,8,0, 10,4,9,00 
31, 20,19,18, 
2450 ，>>>> 19 ■ 
2460 data 2,1C 
82,22,2,22,1D,DD 
22,12, 22, 26, 
2470 .>>>> 20 ■ 
2480 data 0,1C 


19,16,18,10, 
14, 21, 24, 21 ， 


22,10,15, 
3, 22, 35, 22 


S, 8, 8D, 
DD,DC, 
22 


,8D,DD,A2,2 
DC,8,89,48, 
30, 22,14, 


2 2, 88, 88, F7, 7 7, 7 2, 2 2, 2 2, 2 2, 22, 2 2, 7 7, 7 7, 7 7, 8, 8 8, 88, 


88,ee, 

11, 24, 


9, 22 


19 


,CF,DF,9E,18,BF,3C,B4, 0, 0, 8, 0, 0 0, 
, 28, 21, 3, 22, 35, 22,19, 8, 


19,18, 17, 

, 29, 27, 20 


23, 

19, 


15, 12 ， 19, 26,19, 


20 , 


18,15,18, 23,18, 31, 
20,15,13, 23, 13,0,0, 


18 , 8 , 

19,17 


36, 17, 40,0 ， 1E,3C,3F,7E,C,D9,82,D,9A,18,86,6C,30,C6,66,2,61,9A,3 


21,11,10,19, 
11,15, 27,15,0,1 


18,19, 28,19 


88 Oh ! MZ 1986.10. 













愈 



宇宙空間を変形戦闘モビルスーツに乗って敵戦鬪機や要塞を擊破するリアルタイムアクシ 
ヨン ゲームです0このゲームの画面を見た瞬間，誰しもが「な一んだ，簡単そラじゃない 
か J と思うはず。ところがどっこい。このスピードはただものではない。とにかく自分の 
目で確かめてください。 




ゲームの説明 

— 

主人公（つまりあなた）は，つい最近自 
身の手で開発した変形戦闘用モビルスーツ 
に 乗って宇宙を テスト 飛行中だった。しか 
し，ここ数年独裁政治を続けていた某国の 
国王が， A 国スペース シャトルに 延髄攻撃 
を入れ， S 国原発にラリアートを仕掛け， 

R 国のテロリストに 情報を密告し，ついに 
は全世界を相手に戦争を仕掛けてしまった。 

かくして，永遠に終わることのない戦いが 
始まった。あなたはこの報告を受けると同 
時に，平和のための使命に燃え飛行中のモ 
ビル スーツ を敵機の待ち受ける敵国要塞へ 
向けたのだった。 

というストーリー展開で戦闘開始という 
わけです。敵の要塞は放射線状に攻撃して 
くるので，そこを抜けるのは至難の技です 
が，無事通過するとエリア1タリアです。 
エリアは，エリア3で終了し，終了後はエ 
リア1に戻ります。 



まず ， BASIC CZ -8 CB 01/8 FB 01 を起動 
します。次にリスト1の PCG プログラムを 
入力し， 

SAVE “ ZOONE ” 

と セーブした あと， リスト 2 のマシン 語プ 


10 1 

20 » PCG BASIC PROGRAM 

30 1 by A.NAGASAWA 

40 1 


ログラムを入力してください。そしてチェ 
ックサムを確認したあと， 

SAVE “ MASHINGO ” 

& HD 000, & HE 72 F 
とセーブし，さらにリスト3を入力して， 
SAVE “ MAIN ” 

とセーブすれば，プログラムの入力作業は 
終了です。 

このプログラムのリスト1で行っている 
PCG 文字定義は， Oh!MZ 1986年5月号 P . 
163 r DIVIDE CITY 」 の120〜250行を使用 
しています。 

.リスト2は，このゲームの中心となるマ 
シン語で，マシン語領域 DOOOh 〜 FFOOh は， 
コールされてからゲームオーバーまでの处 
理を行います。この部分のメモリマップを 
図1に記しておきますので参考にしてくだ 
さい。 

そして，最後のリスト3では，タイトル 
DEMO , ゲームオーバーの処理を行ってい 
ます。 

以上がこのプログラムの主な内容の説明 
です。 



最初にリスト 1 の‘‘ ZOONE ” フ 。ログ、 ラムを 



BASIC 


益 f ムエリァ 


DATA エリア 


ワークエリア 


DOOO-i 

DB 69 —セーブ 
E 72 E — 

FF 00 


ら， スペース キーか， ジョイス テイックの 
ボタン 1 を押すと ゲームがスター トします 0 
アク ショ ン ゲームな ので ルールについて 
は詳しく説明しなくともわかっていただけ 
ると思います が， ヘリをテンキーか ジョイ 
ステイックで8方向に動かし，トリガー1 
のボタンまたは， スペース キーで敵を攻撃 
します。さらにトリガー2のボタンまたは， 
[ HTABJ キーでヘリからモ ビルスーツに 変 


RUN させると，残りのデータを自動的に読 
み込み，タイトルが出て DEMO が始まりま 
す 。 “PUSH SPACE TO START ” と出た 


リスト1 PCG プログラム 


形します。 

変形させると，少しだけスピードがゆる 
やかになり，3連射のビームから5連射に 
なります。 




50 WIDTH 40 ： INIT：CLEAR &HD000 
60 LOCATE 10,12： PRINT " チ b ッ f マチナハレ " 

70 1 

80 FOR I=&H 30 TO &H5A:A$=IiEFT$<CGPAT$< I > ， 8> = 


特集 ZOONE 89 







































90 FOR J=1 TO 8 ： A=ASC(MID$(A$,J,I)) 
lee B=A OR A*2 ： B$=B$+CHR$(B) 

110 NEXT ： SP$=CHR$(0) : Al$=LEFT$(B$,3) 

126 A2$=MID$(B$,4,2) ： A3$=RIGHT$(B$,3) 

130 B1$=A1$+STRING$(5,SP$) : B2$=A1$+A2$+SP$+SP$+SP$ 

140 DEFCHR$ (I) =B$-i-Bl $+B2$ : NEXT 
150 READ A,B 拿 ： IF A=300 GOTO170 
160 DEFCHR$(A)=HEXCHR$(B$) ： GOTO150 
170 LOADM"MASHINGO":RUN”MAIN" 

180 » 

190 DATA 0，00000018180 0000000000000000000000000001000000000 
200 DATA 1,000000181800000000000010000000000000000000000000 
2ie DATA 2，000000081800000000000010000000000000001000000000 
220 DATA 3,000000081800000000000010000000000000000000000000 
230 DATA 4, 008080 COE0FF7F7E 008080 C0E0FF7F2E 008080 C0E0FF7C70 
240 DATA 5,0001030 F7EFCF 8700001030 F7EFCF 8700001030 E7CF 83060 
250 DATA 6 ， 000103070 F1E3C 38000103070 FIE 3038000103060 Cl 83030 
260 DATA 7,7FFFFFC7060E0E0D7FFFFFC7060E0E0C7FFE 0604040 C0809 
270 DATA 8,000103070 F1E1C 38000103070 F1E1C 38000103060 Cl 81030 
280 DATA 9,7FFFFFC7060E0E0D7FFFFFC7060E0E0C7FFE 0604040 C0809 
290 DATA 10,00183 C3C3E3F7F 7800183 C3C3E3F7D7A 001038383 C3E7773 
300 DATA 11,30787871 E1E1E1E 320707071 E1E1E1E 330686861 C1C1C1C3 
310 DATA 12,1FFFFFB3C3FFFFFF1FFEFDE2C1FFFFF91FFFB 383833 FFEE6 
320 DATA 13,7C3F3F0F0F1F3E7D5C2F070F0F1F3E7D703B3F0F0E1C3871 
330 DATA 14,F0E0C0C0C7FFFCF8F0E0C0C0C73F1ECCE0C 0800007 DEE8F0 
340 DATA 15,7870F0F0F0F07F3F7870F0F0F0F07E 386060 C0C0C0C07F3F 
350 DATA 16,1F1B3C3870E0C0801D1B260C1 83060 C01A1C 383060 C 08000 
360 DATA 17, 38707070707 F3F0E 38707070707 F3F0E 30606060607 F3C00 
370 DATA 18,1F1E3C38F0E0C1011D1B 260018700101 1A1C3830E 0800101 


380 DATA 19,797 lFlF3F3E280e07971FlF3F3B 28000616 1E1B3C3C 28000 
390 DATA 20,E3E3E7F 787040000 E3E3E7B 707040000 C383C 70787040000 
400 DATA 21,E73FFFFEFC1C1C38E13EFDF2E 4040408063 FFEKC1 8181830 
410 DATA 22,FF7F3F0803FFFE00FF7F3F0C03FFFE00FF7F 380003 FFFFFF 
420 DATA 23,FCC 60200 FFFE0000E4E 28000 FFFE0000D 8040200 FFFFFF00 
430 DATA 24,0F0 00003 FE0 000000 F 000003 FB0 0000000000 e03FFFFFF00 
440 DATA 25, 000000 FF0 0000000800000 FF 00000000000000 FFFFF 00000 
450 DATA 26, 000000 FF 00000000000000 FF 00000000000000 FFFF 000000 
460 DATA 27,00001FF 0000000000000 1FF0 000000000000 1FFFF 8000000 
470 DATA 28,0000FF 00000000000000 FF 00000000000000 FFFF 00000000 
480 DATA 29,007FC 00000000000007 FC 00000000000007 FFFB 000000000 
490 DATA 30,F0 80000000000000 F 080000000000000 FFF 0800000000000 
500 DATA 31, 000000000000000000000000000000000000000000000000 
510 DATA 32,000000000000000000000000000000000000000000000000 
520 DATA 33,FFFFE7C3C3E7FFFFC 381241818248 1C3FFC3BDBDBDBDC3FF 
530 DATA 34, 00000000000000000000002424422400 FFFFFFFFFFFF7E3C 
540 DATA 35,FF7B7K3C3C1 800007 E 0000000000000081 FFFFFFFFFFFFFF 
550 DATA 36, 404040404040404000000 0 0000000000 BFBFBFBFBFBFBFBF 
560 DATA 37, 02020202020202020000000000000000 FDFDFDFDFDFDFDFD 
570 DATA 38,005 A3C7E7E3C5A 000042241818244200 FFA5C 3818103 A5FF 
580 DATA 39, 0000183 C3C3C 30000000004242003 C00FFFFE7C3C3C3FFFF 
590 DATA 40,407E487E407E487E000E080E000E080EBF8FB88FBF8FB88F 
600 DATA 41.027E127E027E127E 0070107000701070 FDFUDF1FDF11DF1 
610 DATA 42, 00183 E7C3E7C1 8000000000000000000 FFE7D99BD99BE7FF 
620 DATA 43 f 00000000000000000000000000000000 FFFFFFFFFFFFFFFF 
630 DATA 44, 0070707 C7C7C 00000000000 818000000FF8FBFBFFFFFFFFF 
640 DATA 45,81818181818199248181819999 BDBD24FFFFFFFFFFFFE742 
650 DATA 300,"" 


リスト 3 メインプログラム 


10 1 

20 » MAIN BASIC PROGRAM 

30 » by A.NAGASAWA 

40 » 

50 WIDTH 40 ： INIT：PRW 254:CGEN 1 : CLEAR 4HD000：DEFINT A-Z 

60 » 

70 1 TAITOL 

80 GOSUB 410：CLS 

90 LOCATE 1,3:PRINT ” SUCCES STORY":CSIZE 3 

100 FOR 1=0 TO 2：FOR J=0 TO 8 

110 LOCATE J 拿 2+2,I<f2+6:PRINT#0 CHR$ (I 本 9+J+4 > 

120 NEXT ： NEXT：CSIZE 0 

130 LOCATE 17,14:PRINT "FOR XI” 

140 LOCATE 11,16：PRINT "BY A NAGASAWA" 

150 LOCATE 5,18：PRINT "TENKEY JOYSTICK” 

160 LOCATE 5,19：PRINT "SPACE BUTTERN1" 

170 LOCATE 5,20：PRINT "H TAB BUTTERN2" 

180 CFLASH 1 : LOCATE 3,22：PRINT "PUSH SPACE TO START” 

190 CFLASH 0 ： S=0 

200 S=S+1:IF S=5000 THEN 340 

210 IF STRIG(0) OR STRIG(l) ELSE 200 

220 * CALL 

230 GOSUB 670：GOSUB 440:GOSUB 410 
240 AD=&HF800：POKE AD+34,0：POKE AD+25,3 
250 FOR I=AD+15 TO AD+21：POKE 1,0：NEXT 
260 CALL &HD000：CONSOLE 
270 CLS4 

280 CFLASH 1：FOR 1=1 TO17 

290 LOCATE 1+3,12：PRINT MID$(" GAMEOVER",1,1) 
300 BEEP : FOR J=0 TO 100 ： NEXT ： NEXT：CFLASH 0 
310 S=0 

320 S=S+1：IF S=1000 THEN 70 

330 IF STRIG(0) OR STRIG(l) THEN 220 ELSE 320 
340 1 DEMO 


350 CLS : GOSUB 410 

360 CSIZE 2 : LOCATE 28,16 ： PRINT#0 "DEMO":CSIZE 0 
370 POKE &HF 800,4 

380 POKE 4HF800+34,1：CALL 4HD000：CONSOLE 
390 CLS4：IF PEEK(&HF800+38) THEN 230 ELSE 70 
400 » 

410 » SET AVRAM 

420 FOR I=&H2000 TO &H23E7：OUT I,39：NEXT 
430 RETURN 

440 » PRINT RIGHT 

450 FOR 1=0 TO 23 

460 LOCATE 26,I:PRINT n !"：LOCATE 39,I：PRINT "!" 

470 NEXT 

480 FOR 1=27 TO 38 

490 LOCATE 1,0 ： PRINT ”！ •，： LOCATE I, 23 ： PRINT _.!，•； 

500 NEXT 

510 LOCATE 28,6:PRINT "HI SCORE":GOSUB 580 

520 LOCATE 28,9:PRINT "SCORE"：GOSUB 630 ；SCORE 0 

530 LOCATE 28,12：PRINT "LEFT":GOSUB 650 ;LEFT 3 

540 FOR 1=2 TO 4：FOR J=28 TO 36 

550 LOCATE J ， I:PRINT#0 CHR$(9*(1-2)+J-24) 

560 NEXT：NEXT 
570 RETURN 

580 1 HI SCORE PRINT 

590 AR=4HDB6D : AQ=0 : FOR 1=31 TO 36 : HS=PEEK(AR)+&H30 : AR=AR+1 

600 IF HS=4H30 AND AQ=0 THEN 620 

610 LOCATE I,7：PRINT CHR$(HS) : AQ=1 

620 NEXT : LOCATE 37,7:PRINT "0":RETURN 

630 » SCORE 0 

640 LOCATE 37,10：PRINT "O"：RETURN 

650 * LEFT 3 

660 LOCATE 37,13:PRINT "3"：RETURN 
670 1 CONSOLE , CLS 

680 CONSOLE 0,25,0,25 ： CLS4 : CLS : CONSOLE : RETURN 
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90 Oh ! MZ 1986.10. 


►紹介記事にのせられて PC -1 60 OK を買ってしまった。研究室の98と自宅の Xlturbo のか 
け橋として非常に便利！ RS -232 C は偉大だ。 西山仲（22> 千葉県 
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►大学院でカオスの研究をやっています。 Ai 近 Oh ! MZ 誌上でもカオス，フラクタルなどが 
取り上げられるようになり，たいへんうれしく思っています。ここでひとつ問姐。 Xn + 1 = 
axn(l-Xn), 0< a <4, 0< xo < l のとき lim x n は？ 牧瀬哲郎 （23> 柬京都 
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FE 

80 

38 

02 

CB 

C7 

14 

D678 

12 

IB 

18 

18 

1A 

4F 

3A 

0C 

ec 

SUM ： 

6C 

48 

18 

3C 

ID 

9E 

12 

04 : A9 

D680 

F8 

91 

13 

FE 

08 

30 

04 

1A 

F0 

D688 

CB 

CF 

12 

IB 

1A 

3C 

12 

FE 

2D 

D690 

18 

D2 

A3 

D8 

CD 

95 

D7 

06 

A4 

D698 

04 

7E 

D9 

B7 

C4 

A3 

D3 

D9 

25 

D6A0 

23 

10 

F6 

CD 

76 

D7 

13 

1A 

70 

D6A8 

CB 

4F 

21 

0B 

E2 

28 

03 

21 

74 

D6B0 

6B 

E2 

22 

04 

F8 

IB 

C3 

FC 

39 

D6B8 

D7 

13 

1A 

IB 

FE 

01 

28 

05 

4B 

D6C0 

3A 

20 

F8 

B7 

C0 

21 

02 

02 

EE 

D6C8 

CD 

4E 

D7 

3A 

18 

F8 

B7 

20 

13 

D6D0 

04 

3C 

32 

18 

F8 

FE 

F0 

D2 

42 

D6D8 

A3 

D8 

1A 

3C 

FE 

0F 

30 

03 

11 

D6E0 

12 

18 

27 

13 

3E 

01 

12 

IB 

DO 

D6E8 

ED 

5F 

FE 

40 

D4 

45 

D8 

CD 

48 

D6F0 

95 

D7 

06 

04 

7E 

D9 

B7 

C4 

48 

D6F8 

21 

D7 

D9 

23 

10 

F6 

CD 

76 

3D 

SUM ： 

72 

AB 

13 

5B 

6F 

FA 

08 

40 : 

： 3F 

D700 

D7 

21 

CB 

E2 

22 

04 

F8 

C3 

86 

D708 

F0 

D7 

D5 

01 

00 

30 

16 

19 

FC 

D710 

2A 

24 

F8 

7B 

ED 

79 

23 

03 

50 

D718 

15 

20 

F8 

22 

24 

F8 

D1 

18 

54 

D720 

DD 

3D 

26 

00 

6F 

29 

29 

01 

02 

D728 

00 

FA 

09 

7E 

FE 

01 

C0 

D9 

19 

D730 

D5 

D9 

D1 

13 

1A 

IB 

B7 

C8 

46 

D738 

3A 

23 

F8 

3C 

32 

23 

F8 

FE 

DC 

D740 

03 

D8 

AF 

32 

18 

F8 

CD 

BF 

58 

D748 

D3 

3E 

0C 

C3 

IF 

D3 

22 

06 

FA 

D750 

F8 

21 

00 

F0 

22 

04 

F8 

CD 

F4 

D758 

7B 

D7 

C3 

B6 

D7 

1A 

26 

00 

E2 

D760 

6F 

29 

29 

29 

E5 

29 

29 

Cl 

E2 

D768 

09 

IB 

1A 

06 

00 

4F 

09 

ED 

89 

D770 

4B 

04 

F8 

09 

13 

C9 

3A 

02 

68 

D778 

F8 

18 

01 

AF 

F5 

CD 

5D 

D7 

B6 

SUM ： 

F6 

DD 

42 

D2 

09 

04 

70 

B0 : 

：14 

D780 

FI 

ED 

4B 

06 

F8 

C5 

E5 

77 

48 

D788 

23 

10 

FC 

El 

01 

28 

00 

09 

42 

D790 

Cl 

0D 

20 

FI 

C9 

CD 

5D 

D7 

A9 

D798 

D5 

ED 

4B 

06 

F8 

11 

2B 

F8 

3F 

D7A0 

C5 

E5 

7E 

23 

12 

13 

10 

FA 

7A 

D7A8 

El 

01 

28 

00 

09 

Cl 

0D 

20 

01 

D7B0 

KF 

D1 

21 

2B 

F8 

C9 

F3 

01 

Cl 

D7B8 

03 

1A 

3E 

0B 

ED 

79 

3E 

0A 

14 

D7C0 

ED 

79 

01 

00 

00 

CD 

27 

D8 

33 

D7C8 

C5 

E5 

D9 

Cl 

D9 

D9 

AF 

ED 

92 

D7D0 

79 

03 

D9 

10 

F8 

7C 

C6 

08 

A7 

D7D8 

E6 

38 

20 

04 

01 

28 

00 

09 

74 

D7E0 

47 

7C 

E6 

C7 

B0 

67 

Cl 

0D 

55 

D7E8 

20 

DE 

3E 

FF 

DB 

00 

FB 

C9 

DA 

D7F0 

01 

00 

40 

CD 

27 

D8 

C5 

B5 

B7 

D7F8 

C5 

K5 

D9 

Cl 

D9 

D9 

7E 

23 

97 

SUM ： 

80 

A0 

C7 

60 

17 

43 

56 

28 : 

: IF 

D800 

ED 

79 

03 

D9 

10 

F7 

7C 

C6 

8B 

D808 

08 

E6 

38 

20 

04 

01 

28 

00 

73 

D810 

09 

47 

7C 

E6 

C7 

B0 

67 

Cl 

51 

D818 

on 

20 

DD 

El 

01 

00 

40 

09 

35 

D820 

Cl 

D9 

15 

D9 

20 

D0 

C9 

2A 

6B 

D828 

04 

F8 

E5 

ED 

43 

04 

F8 

CD 

DA 

D830 

5D 

D7 

ED 

4B 

06 

F8 

CB 

21 

56 

D838 

CB 

21 

CB 

21 

D9 

El 

22 

04 

B8 

D840 

F8 

16 

03 

D9 

C9 

D5 

06 

05 

93 

D848 

3A 

0B 

F8 

4F 

IB 

1A 

91 

CB 

ID 

D850 

3F 

B7 

28 

07 

FE 

40 

30 

02 

95 

D858 

05 

05 

04 

3A 

0C 

F8 

4F 

13 

AE 

D860 

1A 

91 

CB 

3F 

B7 

28 

0C 

FE 

9E 

D868 

40 

30 

05 

04 

04 

04 

18 

03 

9C 

D870 

05 

05 

05 

C5 

3A 

06 

F8 

47 

53 

D878 

05 

1A 

80 

4F 

IB 

1A 

47 

3E 

A8 


特集 ZOONE 91 


550E20DC24CF8D29 
2969D79B 91741271 


F2869A084F 90286 B 
D010D10F06OC2F3C 

B1E 753046 DA12434 
C2FDD160E3F000C0 

4BC5E712A70B1270 
01394 D021D0F02D2 

02AD46FCF 012106 F 
211CC7DF4F0D2FB5 

FF727D 30339 F30DB 
59D1BC520C2B10CC 

BBE8961D6B9A 317 A 
CC4DDF23E12C12D1 

A9D3E 039 C207B8B3 
1CCA 7100310 BEF71 

3.2 22436 CA16E16D3 
110D02E31B27C0CD 


E8E11 2253172 A037 
7C1C20C332D1C0CD 

958816183868408 E 
001C032FCFBD06F4 

AE9F 919836 D3E14D 
FFDF2ED010CAF00C 

081E 98013282 BC21 
0CCF2D 0212 FD1D20 

1747016 AB2472BC1 
08020 D3DE 00110 F0 

9808603 A822EC101 
2C 222 C29D02F 3222 

917 CF93D 310 CA8D7 
2000602 CA2F31D3D 

FEEE5B3A370A3390 

6FFFED2DCD011A0F 


11IX 1111111111 1111 

dddddddddddddddd 


F06F2F 837282 F35D 
B05E7F6A16AB6FC4 


56A13237E73A1820 

ED02C31BF0222F12 

8068183851 E4E 718 
F0CF0F1FE 273 C10B 

969462 A 914988 AE4 
20F 01010 D30F13E0 

AE8222 AAB8F2B7A6 
271333 F2DF40ED10 

A 848 cl 0811013 E30 
DP0720 0F 220224 ID 

A 9381 E1D 81693 D20 
910F0310D20E2C2D 

D1 858983287 F828A 
C230FD F55C86F023 

A9A24D1DDFB6D27B 
DC 03022 EEFD600B1 

080808 0808080808 
8899AABBCCDDEEFF 

IX 111 ix 111 ix 1 1111IX 1 

DDDDDDDDDDDDDDDD 


CE945C13477F0D8E 
C40F826B 353593 E2 


27D89A310D1E8F74 

1BCF2C12FCD4D040 

8964073309 1D3E88 
DDF00B1D0DECAFF3 

3E026EBF1 59221 B0 
A 71227 E12DD0D904 

213 DF 903857288 AE 
DO2D60CCFED01F3F 

969BDA1E6961ECBF 

1OD83F070DB2F013 

E 73170 E328D9CA5B 
FDD2D0FD2FCC33DC 

c 537012 F247BAFA0 
39ADF0DB00D 21499 

AD4639FD12BB72AA 

1CC7C2BC0272D1D1 

0808080808080808 

8899AABBCCDDEEFF 

3333333333333333 

dddddddddddddddd 


CF44B 836458 C462A 
100178 FB737B2A80 
































DB80 

E0 

0F 

F0 

07 

E0 

07 

E0 

07 

B4 

DE00 

DB88 

E0 

07 

E0 

0F 

F0 

13 

C8 

21 

C2 

DE08 

DB90 

84 

01 

80 

01 

80 

05 

A0 

07 

32 

DE10 

DB98 

A0 

0F 

F0 

12 

48 

28 

14 

05 

3A 

DE18 

DBA0 

20 

0F 

40 

07 

80 

07 

80 

07 

84 

DE20 

DBA8 

C0 

07 

A0 

2F 

94 

13 

08 

29 

6E 

DE28 

DBB0 

14 

01 

00 

01 

00 

05 

00 

05 

20 

DE30 

DBB8 

00 

0D 

00 

02 

40 

04 

00 

01 

54 

DE38 

DBC0 

80 

0D 

B0 

IE 

58 

IE 

58 

0D 

36 

DE40 

DBC8 

90 

03 

C0 

07 

C0 

03 

80 

01 

9E 

DE48 

DBD0 

80 

01 

80 

01 

80 

05 

A0 

07 

2E 

DE50 

DBD8 

A0 

0F 

A0 

78 

00 

82 

00 

BA 

03 

DE58 

DBE0 

00 

B8 

00 

B8 

08 

3A 

08 

3A 

F4 

DE60 

DBE8 

4A 

19 

F3 

09 

F3 

09 

F3 

13 

61 

DE68 

DBF0 

FA 

IB 

FB 

0B 

BA 

0F 

IE 

17 

19 

DE70 

DBF8 

OF 

13 

0A 

7C 

04 

FE 

04 

C6 

74 

DE78 


DA80 

DA88 

DA90 

PA98 

DAA0 

DAA8 

DAB0 

DAB8 

DAC0 

DAC8 

DAD0 

DAD8 

DAE0 

DAE8 

DAF0 

DAF8 


SUM ： IF E5 4D 3C 59 A2 0B C4 


：57 

SUM ： 

48 

82 

00 

AD 

22 

58 

D5 

65 : 

： 2B 

SUM ： 

AE 

C7 

AC 

18 

7A 

8A 

3E 

04 : 

： 7F 

73 

DD00 

B9 

3B 

7B 

IE 

A4 

4D 

7A 

3A 

32 

DF80 

CC 

3F 

8C 

5F 

1C 

60 

3C 

38 

E6 

06 

DD08 

55 

54 

20 

00 

00 

00 

00 

00 

C9 

DF88 

7C 

DF 

FC 

DF 

F8 

6F 

F0 

3B 

C8 

6B 

DD10 

70 

06 

A8 

IB 

74 

16 

98 

0F 

6A 

DF90 

80 

00 

00 

00 

00 

00 

IE 

07 

A5 

B1 

DD18 

F0 

15 

B8 

IF 

E0 

0E 

F8 

IF 

El 

DF98 

9F 

IF 

CF 

IF 

E7 

3F 

E3 

3F 

F4 

B3 

DD20 

B8 

IB 

7A 

0E 

A4 

05 

70 

00 

74 

DFA0 

E2 

IF 

B0 

IF 

C0 

07 

80 

00 

47 

98 

DD28 

00 

00 

00 

00 

00 

0D 

00 

40 

4D 

DFA8 

00 

CO 

02 

C0 

02 

E0 

04 

7C 

E4 

3F 

DD30 

50 

25 

A4 

4A 

08 

00 

40 

07 

B2 

DFB0 

0C 

38 

70 

00 

00 

00 

00 

IF 

D3 

40 

DD38 

02 

20 

8C 

14 

30 

02 

00 

21 

15 

DFB8 

F8 

IF 

F8 

IF 

F8 

IF 

F8 

IF 

5C 

56 

DD40 

94 

17 

02 

0A 

D8 

25 

4C 

08 

08 

DFC0 

F8 

IF 

F8 

IF 

F8 

IF 

F8 

IF 

5C 

46 

DD48 

0C 

00 

00 

D2 

80 

0D 

02 

4A 

B7 

DFC8 

F8 

IF 

F8 

IF 

F8 

00 

00 

00 

26 

61 

DD50 

51 

25 

A4 

4A 

09 

00 

40 

87 

34 

DFD0 

00 

00 

00 

00 

00 

00 

00 

0A 

0A 

30 

DD58 

02 

60 

8C 

14 

30 

0A 

01 

25 

62 

DFD8 

A8 

15 

50 

0A 

A8 

15 

50 

0A 

2E 

57 

DD60 

94 

57 

02 

0A 

D9 

A5 

4C 

28 

E9 

DFE0 

A8 

15 

50 

0A 

A8 

15 

50 

0A 

2E 

31 

DD68 

8C 

44 

86 

D2 

80 

0D 

02 

4A 

01 

DFE8 

A8 

15 

50 

0A 

A8 

00 

00 

00 

BF 

59 

DD70 

51 

25 

A4 

4A 

09 

00 

40 

87 

34 

DFF0 

00 

00 

00 

00 

00 

00 

00 

IF 

IF 

7C 

DD78 

02 

60 

8C 

14 

30 

0A 

01 

25 

62 

DFF8 

F8 

IF 

F8 

IF 

F8 

IF 

F8 

IF 

5C 


►CP/M を使用されている方へ。普通の CP/M ではカナ文字の入力はできません。アスキ 
一出版の r 応用 CP/Ml にカナ文字入力とアスキーダンプ時にカナ文字が出力できるよう 
にするための手順がありますが X1CP/M では入力のアドレスが &H1375 になっていました。 
あとのアドレスは同じです。みなさんも試してください 0 松島一男 （ 33 ) 千葉県 


SUM: 18 A4 75 7C 64 40 39 E4 ： 6E 

D980 E5 D9 El 01 D8 33 D91E : A2 
D988181619 E5 D9 E5 D9 ED : B0 
D990 78 D9 ED 79 0B D9 0B 15 : BB 
D998 20 F5 09 44 4D D9 09 44 : D5 
D9A0 4D El D9 El ID 20 B2 FI : F8 
D9A8 C9 2B 7C B5 20 FB 10 F9 ：49 
D9B0 C9 2A IE F8 5E 23 56 2A ： 0A 
D9B81A F8 B7 ED 52 C0 2A IE : 10 
D9C0 F8 23 23 0E 00 7E CB 57 : EC 
D9C8 C4 0F DA E6 03 2814 3D ： 0F 
D9D0 281C 3D 28 2C 18 33 2A ： 4A 
D9D8 IE F8 23 23 23 23 22IE : E2 
D9B0 F818 D1 CD 23 DA 47 23 ：15 
D9B8 7E CD A9 D818 E9 CD 23 : BD 
D9F0 DA CB 3F 47 3A 0B F8 FE ：66 
D9F8 0D 78 38 03 06 0C 80 18 ： 6A 


SUM ： ED 59 68 4C C3 83 F8 CE ：06 

DA00 E5 7E CB 3F CB 3F CB 3F ：81 
DA0818 DC 3A 0B F818 D7 F5 : 15 
DA10 CD 23 DA CB 3F 4F FI C9 : DD 
DA18 CD 23 DA 47 0E 00 3E 07 ：64 
DA20 C3 A9 D8 ED 5F FE 18 38 : DB 
DA28 04 D61818 F8 C9 21 00 : EC 
DA30 FA 06 00 36 FF 2310 FB ：63 
DA38 C9 061C 3E 0E ED 79 05 : A2 
DA40 ED 78 32 03 F8 F5 2F E6 ： 9C 
DA48 00 3217 F8 FI2F E6 20 ：37 
DA50 32 01 F8 01 00 19 ED 78 : AA 
DA58 FE IB 20 0E 0B 78 B120 ： 9B 
DA60 FB 01 00 19 HD 78 FE 20 ：98 
DA68 20 F2 FE 20 20 03 32 01：86 
DA70 F8 FE 09 20 03 3217 F8 ：63 
DA78 FE 03 20 04 El C3 7E D1 : 18 


SUM ： 5B 69 A8 48 3D 62 79 63 ： 2F 

DC00 04 D4 04 8C 04 0C 04 3C ： B8 
DC08 A41C 06 05 C4 05 C414 ： 6C 
DC10 C41C 07 0F BE 0A 1810 : E6 
DC18 08 37 8B 78 00 FA 00 C2 : FE 
DC20 00 D8 00 A8 00 2A 00 3A : E4 
DC28 AA 1913 0B FB 0B FB 10 : F2 
DC30 E213 F8 08 00 0B 1C 13 ： 2F 
DC38 0B 00 00 00 00 00 00 00 ： 0B 
DC40 00 10 04 08 08 00 00 00 :24 
DC48 00 00 00 00 00 00 00 00 ：00 
DC50 00 10 04 08 08 00 00 00 ：24 
DC58 00 00 00 00 00 00 00 00 ：00 
DC60 00 18 0C 18 0C 00 00 00 :48 
DC68 00 00 00 00 00 01 02 21：24 
DC70 4C 08 00 20 0410 08 20 ： B0 
DC78 00 C3 90 03 8C C3 89 00 ： 2E 


SUM ： 57 4A 4B IE 2D 29 8A C0 : AA 

DC80 00 20 00 40 08 08 80 01 : FI 
DC8818 00 00 00 00 0182 61 : FC 
DC90 CC 3B D6 3F FC IF F8 2F :5E 
DC98 F0 DF D0 7F FC FF FF 5F ：77 
DCA0 F8 2F F0 47 78 0E F8 07 : E3 
DCA818 04 00 00 00 00 00 00 ： 1C 
DCB0 00 00 00 00 00 02 80 05 ：87 
DCB8 40 03 80 07 C0 03 A0 05 ：32 
DCC0 40 02 00 00 00 00 00 00 ：42 
DCC8 00 00 00 84 30 00 00 00 ： B4 
DCD0 00 00 00 00 00 94 00 03 ：97 
DCD8 DO 05 A817 A0 06 F4 9C : CA 
DCE0 A9 03 70 02 00 00 40 00 ： 5E 
DCE8 0114 20 86 34 60 D8 77 ： 9B- 
DCF0 74 3F FA IF FC B6 BC 4F :89 
DCF8 F6 B5 B8IF EA 6E FC FF : D5 


SUM：14 71 0A IB 42 72 AE FA :06 

DE80 02 3C 00 00 00 00 00 40 ： 7E 
DE88 3C C0 7E C0 FE E0 FE 7C ：92 
DB90 FC 38 78 38 00 7E 3E FE ： 9E 
DE98 3F FF IF FF 0F FF 07 7F : F0 
DEA0 02 3E 3C 1C FC 01 FB 41 : D4 
DEA8 FF C3 FF E3 FF FI FE 7D ： 0F 
DEB0 FB 38 78 38 00 78IE F9 ：75 
DEB8 DE FI EE 63 F6 07 F8 0F ：24 
DEC0 FC 7F C0 7F 3C 7E FE 3E ： B0 
DEC8 FE BD FC DD FC 6E F8 38 ： 2E 
DED0 30 00 00 38 00 7C IE FC : FE 
DED8 IF FC 0F F8 07 70 03 00 ： 9C 
DEE0 02 00 00 00 3C 00 FE 00 ： 3C 
DEE8 FF 81 FF Cl FF El FE 7D ： 9B 
DEF0 FE 38 78 00 00 03 9E 07 ： 56 
DEF8 CF IF C7 3F E3 3F F3 7F ：88 


SUM ： 6D 6D BF ID 5B C9 F9 74 ：47 

DF00 FA 7F FC 7F FC IF FC 0F ： 1A 
DF08 FC CF FQ E7 F0 FI E0 78 : E3 
DF10 00 38 00 00 00 07 CE IF ： 2C 
DF18 F6 3F F8 7B 1C 79 EC F7 ：23 
DF20 E4 F7 E2 EF E2 EF C2 73 ： B2 
DF28 82 B0 04 D8 0C 6E 18 07 : A7 
DF30 E0 00 00 00 00 00 0E 00 : BE 
DF38 07 00 03 00 01 01 El 07 : F4 
DF40 F0 07 F8 0F F8 0F F8 07 ：04 
DF48 F8 87 F0 Cl E0 E0 00 78 ：68 
DF50 00 38 00 00 00 00 3E 07 ： 7D 
DF58 FF IF FF IF FF 3F F7 3F ： B0 
DF60 F2 3F F0 7F E0 3F C0 5F : DE 
DF68 82 E0 02 E0 06 F0 0C 7C : C2 
DF70 7C 38 70 00 00 00IE 07 ：49 
DF78 9E IF 8E IF C6 3F C8 3F ：76 


SUM ： 

8E 

3F 

B7 

94 

00 

EE 

37 

AC : 

: E9 

SUM ： 

DE 

C6 

8F 

38 

F7 

7D 

D8 

EC : 

: A3 

DB00 

08 

00 

09 

00 

0A 

00 

FF 

E7 

01 

DD80 

94 

57 

02 

0A 

D9 

A5 

4C 

28 

E9 

DB08 

D1 

D3 

D2 

49 

D3 

7A 

D3 

DB 

BA 

DD88 

8C 

44 

86 

00 

18 

18 

18 

18 

B6 

DB10 

D3 

29 

D4 

8E 

D4 

00 

D5 

79 

80 

DD90 

18 

3C 

00 

00 

10 

10 

10 

10 

94 

DB18 

D5 

BB 

D5 

19 

D6 

58 

D6 

B9 

3B 

DD98 

10 

34 

18 

00 

18 

18 

18 

18 

BC 

DB20 

D6 

00 

00 

00 

00 

00 

00 

00 

D6 

DDA0 

18 

18 

00 

60 

06 

70 

0E 

7C 

90 

DB28 
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00 

00 

00 

00 

00 

00 

01 

01 

DDA8 

3E 

7F 

FE 

7F 

FE 

7F 

FE 

7F 

34 

DB30 

00 

00 

00 

05 

00 

00 

00 

00 

05 

DDB0 

FE 

7F 

FE 

7F 

FE 

7F 

FE 

7F 

F4 

DB38 

00 

00 

00 

08 

00 

00 

00 

00 

08 

DDB8 

FE 

7F 

FE 

7F 

FE 

7F 

FE 

3F 

B4 

DB40 

00 

00 

00 

04 

00 

00 

00 

06 

0A 

DDC0 

FC 

0F 

F0 

60 

00 

60 

08 

63 

26 

DB48 

00 

00 

00 

06 

00 

00 

00 

07 

0D 

DDC8 

D8 

61 

08 

69 

20 

69 

20 

5B 

AE 

DB50 

00 

02 

00 

00 

00 

41 

52 

45 

DA 

DDD0 

30 

53 

00 

5B 

90 

53 

80 

5B 

9C 

DB58 

41 

20 

00 

FF 

01 

00 

01 

01 

63 

DDD8 

90 

5B 

10 

5D 

30 

5C 

50 

2C 

60 

DB60 

01 

FF 

00 

00 

00 

01 

00 

FF 

00 

DDE0 

30 

08 

10 

60 

06 

70 

0E 

78 

A4 

DB68 

FF 

00 

FF 

01 

FF 

00 

00 

00 

FE 

DDE8 

IE 

75 

AE 

6D 

B6 

6D 

B6 

5B 

E2 

DB70 

00 

00 

00 

00 

00 

00 

00 

00 

00 

DDF0 

BA 

53 

CA 

5B 

DA 

53 

CA 

5B 

84 

DB78 

00 

00 

00 

11 

88 

0F 

F0 

07 

9F 

DDF8 

DA 

5B 

DA 

55 

AA 

56 

6A 

24 

F2 

SUM ： 

98 

D8 

83 

18 

0F 

23 

C0 

4E : 

:4B 

SUM ： 

10 

E9 

04 

E5 

39 

D0 

84 

B8 : 

:27 


SUM: D2 4C C2 B21C C8 7217 : FF 

D880 05 CD A9 D8 FI FE 05 20 :67 
D888 02 3E 02 77 D1 C9 21 00 :74 
D890 F418 03 21 00 F0 0E 19 : 47 
D898 06 28 36 00 2310 FB 0D ： 9F 
D8A0 20 F6 C9IB IB 3E FF 12 ：64 
D8A8 C9 F5 C5 21 FC F9 01 04 ： 9E 
D8B0 00 09 7E 3C 20 FB Cl FI：90 
D8B8 77 23 70 23 7123 36 00 : F7 
D8C0 E5 ED 4B 09 F8 B7 ED 42 ：04 
D8C8 El38 05 23 22 09 F8 2B ： 8F 
D8D0 C9 C5 D5 E5 01 04 00 11:5E 
D8D8 77 DB ED B0 06 081115 ：23 
D8E0 F8 217A DB B71A 4E 89 : 16 
D8E8 05 28 0C FE 0A 38 02 D6 ：51 
D8F0 0A 3F 12IB 2B 18 EE 13 : BA 
D8F8 216D DB 06 071A 4E B9 :97 


SUM ： 8F 1C E5 C6 A16C A8 0B : 16 

D900 28 0F 3811 01 07 00 21 : A9 
D908 OF F8116D DB ED B0 18 : 15 
D910 0413 2310 E8 216D DB :9B 
D918 0137 31 CD 2B D9 21 0F ： 6A 
D920 F8 01 AF 31 CD 2B D9 El:8B 
D928 D1 Cl C916 06 AF 3216 :6E 
D930 F8 3A 16 F8 B7 20 08 7E ： 9D 
D938 B7 20 04 3E 20 18 06 7E : D5 
D940 C6 30 3216 F8 ED 79 23 : BF 
D948 0315 20 E5 7E C6 30 ED ： 7E 
D950 79 C9 F5 01 00 30 3E 20 : C6 
D958 2619 BD 79 03 25 20 FA : E7 
D960 ED 5F FE 20 3814 CD 23 : A6 
D968 DA 6F 26 00 01 00 30 09 : A9 
D970 44 4D ED 5F E6 03 ED 79 :2C 
D978 FI F5 01 B0 33 21 FI FF : DB 


400800 F026AA6F73 
7748A4272A 75700 B 


000000 FF0CC0F8FE 
111111 F747F373F7 

000000 E7CEE808E3 
1111113 E3F17C710 

000000 EF61C8FEEF 
1111117 F0F7F367F 

0000000 F0E06CC07 
1111110 E8F07FF00 

000880 CFF18C3ECF 
1102203 F3E3F0D3F 

0000000 F0E8ECC0F 
000000 ODCF76F700 

0000000 FF08C1F0F 
010110 1F3E3F0D0F 

4000808 F2ECECC0F 
21012023 E7FDFB31 


013FE09D008F069F 
00CF 7000000 F0003 

2A8E9E658D008F07 
33FF7E 3000100 F00 

386ED87CFAADO08F 
0C27E1 002000100 F 

072c 34307 CFFADFA 
3B 31201100200000 

98169968907 cfaad 
0FE0C 70000001000 

E2851D206A407CF4 
F2CCCE 0000000011 

1 A 71251 AF 069907 c 
33BD0000F1 000000 

688B03D0A9F 06990 
DFF722D000F 00000 


Oh ! MZ 1986.10. 































05 20 00 00 01 
06 60 83 Cl El 
9F F9 07 E0 9F 
A3 C5 83 Cl 01 
0180 02 40 01 
00 00 0180 02 
05 A0 0180 81 
F9 DF 9F F9 07 
F9 9F El87 83 
00 00 00 80 00 
04 A0 00 80 80 
80 8182 Cl 06 
FA C7 E0 87 80 
00 00 0180 02 
05 A0 0180 83 
BB DD 9F F9 07 


SUM ： FE 12 4A P5 34ID 84 82 


SUM ： 

45 

0B 

6B 

83 

41 

94 

63 

22 : 

：98 

SUM ： 

0£ 

0D 

11 

11 

0F 

E200 

E0 

9F 

F9 

F9 

9F 

El 

87 

83 

FB 







E208 

Cl 

06 

60 

IE 

78 

3E 

7C 

BE 

35 

E480 

20 

20 

20 

20 

20 

E210 

7D 

DE 

7B 

DE 

7B 

EE 

77 

6E 

02 

E488 

20 

0A 

00 

00 

04 

E218 

76 

7E 

7E 

3E 

7C 

IE 

78 

0F 

D1 

E490 

04 

0C 

00 

00 

04 

E220 

F0 

07 

E0 

03 

C0 

03 

C0 

01 

5E 

E498 

03 

16 

00 

01 

03 

E228 

80 

01 

80 

06 

68 

0E 

04 

8E 

0F 

E4A0 

03 

28 

00 

01 

09 

E230 

04 

C6 

08 

C6 

08 

E2 

10 

63 

F5 

E4A8 

09 

2A 

00 

01 

09 

E238 

90 

73 

90 

3B 

98 

IB 

98 

0F 

28 

E4B0 

09 

37 

00 

00 

04 

E240 

B0 

07 

A0 

02 

00 

02 

00 

01 

5C 

E4B8 

04 

39 

00 

00 

09 

E248 

00 

01 

00 

10 

08 

2E 

74 

AF 

6A 

E4C0 

09 

50 

00 

00 

06 

E250 

F5 

D7 

EB 

D7 

EB 

EB 

D7 

6B 

A6 

E4C8 

06 

52 

00 

00 

06 

E258 

D6 

7B 

DE 

3B 

DC 

IB 

D8 

0F 

48 

E4D0 

06 

64 

00 

01 

04 

E260 

F0 

07 

E0 

02 

40 

02 

40 

01 

5C 

E4D8 

04 

66 

00 

01 

04 

E268 

80 

01 

80 

00 

00 

00 

00 

00 

01 

E4E0 

09 

69 

00 

01 

09 

E270 

00 

03 

80 

3B 

B8 

73 

9C 

7B 

00 

E4E8 

03 

6F 

00 

01 

04 


: A6 

SUM ： 

5B 

5A 

4F 

4B 





8B 

E400 

2B 

2A 

2A 

3D 

£408 

20 

20 

20 

3E 

E410 

20 

20 

24 

E9 

E418 

23 

23 

23 

03 

E420 

20 

20 

20 

68 

E428 

20 

20 

20 

E0 

E430 

20 

20 

20 

FB 

E438 

20 

20 

20 

A7 

E440 

20 

20 

20 

48 

E448 

20 

20 

20 

CC 

E450 

20 

20 

20 

EF 

E458 

20 

20 

20 

A4 

E460 

20 

20 

20 

6A 

E468 

20 

20 

20 

60 

E470 

E478 

20 

20 

20 

20 

20 

20 


SUM ： 

3F 

4F 

IE 

FD 

69 

7F 

32 

A 7 : 

:6A 













SUM ： 

CD 

E100 

50 

0A 

A8 

15 

50 

2A 

A8 

15 

4E 



E108 

54 

2A 

AA 

55 

54 

2A 

AA 

00 

A5 

E38« 

2B 

E110 

00 

00 

00 

00 

00 

00 

00 

00 

00 

£388 

25 

E118 

00 

02 

A0 

05 

40 

0A 

A0 

05 

96 

E390 

20 

£120 

50 

0A 

A8 

15 

50 

2A 

A8 

15 

4E 

E398 

2B 

E128 

54 

7F 

FE 

7F 

FE 

7F 

FE 

00 

CB 

E3A0 

29 

E130 

00 

00 

00 

2F 

00 

F4 

00 

00 

23 

E3A8 

20 

E138 

00 

00 

18 

10 

10 

00 

10 

30 

78 

E3B0 

2B 

E140 

70 

78 

38 

10 

18 

08 

18 

3C 

A4 

E3B8 

2B 

E148 

7E 

7E 

24 

06 

60 

83 

Cl 

El 

AB 

E3C0 

20 

E150 

87 

F9 

9F 

9F 

F9 

07 

E0 

9F 

3D 

E3C8 

28 

E158 

F9 

FB 

9F 

E3 

87 

83 

81 

01 

02 

E3D0 

2B 

E160 

80 

05 

A0 

01 

80 

02 

40 

01 

E9 

E3D8 

20 

E168 

80 

00 

00 

06 

00 

83 

01 

El 

EB 

E3E0 

24 

E170 

07 

E3 

5F 

93 

79 

07 

60 

83 

3F 

E3E8 

2A 

E178 

41 

81 

01 

81 

01 

81 

01 

01 

C8 

E3F0 

20 











E3F8 

20 


SUM: 74 A4 FE EB 38 D5 74 F3 

E080 FF FF FF FF FF FF FF 00 
E088 00 00 00 00 00 00 00 00 
E090 00 00 00 00 00 00 00 00 
E098 00 00 00 00 00 00 00 55 
E0A0 55 AA AA 55 55 AA AA 00 
E0A8 00 00 00 00 00 00 00 00 
E0B0 00 00 00 00 00 00 00 00 
E0B8 00 00 00 00 00 00 00 FF 
E0C0 FF FF FF FF FF FF FF 00 
E0C8 00 00 00 00 00 00 00 00 
E0D0 00 00 00 00 00 00 00 00 
K0D8 00 07 E0 07 E0 0F F0 0F 
E0E0 F0 IF F8IF F8 3F FC 3F 
E0E8 FC 7F FE 7F FE 7F FE 00 
E0F0 00 00 00 00 00 00 00 00 
E0F8 00 02 A0 05 40 0A A0 05 


E278 9E 38 0E 30 C6 4E 75 06 : E3 


SUM ： 21 DF A1 CE A3 32 D2 6B ：81 

E280 3818 44 42 44 24 28 40 : A6 
E288 04 00 00 70 1C 38 38 06 :06 
E290 C0 IB B0 3B B8 72 9C 72 : FE 
E298 9C 00 00 00 00 06 70 06 : 18 
E2A0 3818 44 66 7C 3C 28 40 : 1A 
E2A8 04 00 00 70 1C 38 38 06 :06 
E2B0 C0 IB B0 3B B8 72 9C 76 ：02 
E2B8 DC 08 62 33 B6 06 70 06 : AB 
E2C0 3818 00 00 00 00 00 00 :50 
E2C8 00 00 00 40 40 40 42 78 :7A 
E2D0 42 89 E2 B8 BA C8 8C 88 : FB 
E2D8 8A 94 89 90 09 60 06 BC ：62 
E2E0 3D 7E 7E 66 66 3C 3C 00 :7D 
E2E8 00 00 00 00 00 00 00 00 ：00 
E2F0 00 00 00 00 00 00 00 00 ：00 
E2F8 00 00 00 00 00 00 00 3C ： 3C 


SUM ： B12133IF 87 64 E8 78 ： 6F 

E300 3C 7E 7E 7B 7E 1818 00 ：64 
E308 00 00 00 BF BF BF BD 87 ：81 
E310 BD 76ID 47 45 37 73 77 : FD 
E318 75 6B 76 6F F6IF F8 3F ：11 
E320 FC 66 66 42 42 24 24 00 :94 
£328 00 00 00 20 20 20 20 20 : A0 
£330 20 24 22 22 22 22 2D 2D :26 
E338 2D 22 22 22 22 25 20 20 ： 1A 
E340 20 20 20 20 20 20 20 20 ：00 
E348 20 20 24 28 2A 2A 2B 2B ：36 
E350 2B 2B 2C 2B 2B 29 25 20 ：46 
E358 20 20 20 20 20 20 20 20 ：00 
E360 20 20 20 24 28 2A 2A 2B ： 2B 
£368 2B 2B 2B 2B 2B 2B 29 25 :50 
E370 20 20 20 20 20 20 20 20 ：00 
E378 20 20 20 20 24 28 2B 2B ：22 


SUM ： 2D 0F 79 D6 95 7C 39 EE ： C3 

E000 F8IF F8IF F8IF F8IF ： 5C 
E008 F8IF F8IF F8 00 00 00 :26 
E010 00 00 00 00 00 00 00 7F ： 7F 
E018 FE 7F FE 7F FE 3F FC 3F ：72 
E020 FC IF F8IF F8 0F F0 0F ：38 
E028 F0 07 E0 07 E0 00 00 00 : BE 
E030 00 00 00 00 00 00 00 55 ：55 
E038 54 2A AA 55 54 2A A815 : B8 
E040 54 0A A815 50 0A A0 05 ： 1A 
E048 50 02 AO 05 40 00 00 00 ：37 
E050 00 00 00 00 00 00 00 ?F ： 7F 
E058 FE 7F FE 7F FE 2A A815 : DF 
E060 54 0A A815 50 0A A0 05 : 1A 
E068 50 02 A0 05 40 00 00 00 ：37 
E070 00 00 00 00 00 00 00 00 ：00 
E078 00 00 00 00 00 00 00 FF : FF 


SUM ： 5F 

E600 09 
B608 08 
E610 06 
E618 06 
E620 08 
B628 03 
E630 04 
B638 0B 
E640 09 
E648 09 
E650 03 
£658 03 
E660 09 
B668 03 
E670 03 
E678 09 


SUM ： 67 A8 0710 5E 16 0711 ： B2 


E680 

0B 

AA 

00 00 

0B 

B4 

ee 

00 

74 

E688 

0B 

BE 

00 01 

09 

C3 

00 

ee 

96 

E690 

09 

C8 

00 

01 

03 

E6 

00 

00 

BB 

E698 

06 

EB 

00 

00 

04 

F0 

00 

01 

E6 

E6A0 

09 

F5 

00 

01 

09 

FA 

00 

00 

02 

E6A8 

06 

0E 

01 

00 

03 

16 

01 

00 

2F 

E6B0 

03 

18 

01 

03 

03 

22 

01 

03 

48 

E6B8 

03 

36 

01 

04 

08 

3B 

01 

04 

86 

E6C0 

08 

40 

01 

04 

08 

45 

01 

05 

A0 

E6C8 

08 

4A 

01 

07 

08 

54 

01 

00 

B7 

E6D0 

09 

5£ 

01 

03 

03 

68 

01 

01 

D8 

E6D8 

03 

74 

01 

00 

04 

7A 

01 

01 

F8 

E6E0 

04 

7C 

01 

01 

04 

81 

01 

00 

08 

E6E8 

09 

86 

01 

00 

06 

90 

01 

01 

28 

E6F0 

03 

A4 

01 

6t 

0C 

AE 

01 

04 

C9 

E6F8 

08 

B3 

01 

04 

08 

B8 

01 

04 

85 

SUM ： 

6E 

21 

0B 

7F 

67 

AC 

0B 

18 : 

:4F 

E700 

08 

C2 

01 

04 

08 

CC 

01 

05 

A9 

E708 

08 

D1 

01 

05 

08 

D6 

01 

00 

BE 

E710 

09 

E0 

01 

04 

08 

E5 

01 

05 

El 

E718 

08 

F4 

01 

00 

03 

08 

02 

03 

0D 

E720 

03 

0D 

02 

03 

03 

12 

02 

01 

2D 

E728 

09 

21 

02 

00 

0B 

26 

02 

00 

5F 

E730 

0B 

30 

02 

00 

0B 

3A 

02 

00 

84 

E738 

0B 

3F 

02 

00 

0B 

44 

02 

03 

A0 

E740 

09 

00 

FE 

34 

CA 

4A 

E7 

C3 

F9 

E748 

13 

00 

E5 

C3 

F0 

10 

00 

00 

BB 

SUM ： 

5F 

04 

EF 

07 

F9 

9F 

F4 

D4 

： B9 


E4F0 09 78 00 03 03 79 00 00 ：00 
E4F8 09 82 00 01 04 84 00 03 ：17 


SUM ： 97 4C 20 2B 72 6D 20 2E ： 5B 

E500 03 87 00 01 09 88 00 01:ID 
E508 09 96 00 00 03 A0 00 03 ：45 
E510 03 C8 00 00 04 C9 00 01：99 
E518 09 CD 00 01 04 El 00 03 : BF 
E520 03 E6 00 01 09 F0 00 00 : E3 
E528 03 FI 00 01 04 04 01 01 : FF 
E530 04 05 01 00 06 0E 01 01:20 
£538 09 0F 01 00 0418 01 03 ：39 
E540 031A 01 01 09 2C 01 00 ：55 
E548 06 36 01 03 03 40 0162 : K6 
B550 07 4A 0162 0C 54 01 04 ：19 
E558 08 57 01 04 08 5E 01 04 : CF 
E560 08 60 01 04 08 66 01 04 : E0 
E568 08 72 01 04 08 74 01 07 :03 
E570 08 90 01 03 03 9A 01 03 ： 3D 
E578 03 C2 01 00 08 CC 01 00 ： 9B 


SUM ： 5E B2 OA 79 66 4A 0B 85 : D3 

E580 08 F4 01 00 03 FE 01 03 ：02 
E588 03 08 02 03 03 26 02 00 ： 3B 
E590 09 2B 02 01 09 2C 02 01 ： 6F 
E598 04 3A 02 00 04 3C 02 01：83 
E5A0 09 44 02 03 03 32 00 01:88 
E5A8 09 46 00 01 09 48 00 01 : A2 
E5B0 09 82 00 00 06 8C 00 00 ： 1D 
E5B8 06 91 00 00 06 C8 00 03 ：68 
E5C0 03 DC 00 03 03 FA 00 00 : DF 
E5C8 09 04 01 00 09 0E 01 00 ：26 
E5D0 0310 01 00 03 2C 01 01:45 
E5D8 04 5E 01 01 04 61 01 01 : CB 
E5E0 04 72 01 00 06 77 01 00 : F5 
E5E8 06 7C 0100 06 86 01 00 ：10 
E5F0 06 90 01 00 06 A4 01 03 :45 
E5F8 03 AE 01 03 03 C2 01 00 ： 7B 


►このところ TURBO PASCAL の記事が増えてきた。喜ばしいことである。なぜか日本 
では PASCAL よりも C がうけているが，米国ではまだまだ PASCAL のほうが主流であり 
書物，ツールも多い。日本にはまだあまり紹介されていないが r Software tool in Pasca 
1. など良書を見てもらいたい。 土居陽治郎（26> 茨城県 


00FD 000790019005 
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509B5011F640E013 
00FB000E 9008900 A 

0079000101010101 

008F884CEC08EC4C 

0808080808080808 

8899AABBCCDDEEFF 

IX 1IX IX X 1 1L 4X 1 1 IX X iA IX X IX 

eeeeeeeeeeeeeeee 
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6 

3 

0 
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20112233556667 
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B 03300000 00^ 
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0 F576ECA 94740 1D06 
8 4015004104205204 

0 90BB08B 04600 BOOB 
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F C08B 04600 B00B00C 
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8 B04B00B 00700 C00C 
E 2222222222222222 

4A 
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ohn 


「鉄腕アトム」のテーマにのって，次々と落ちてくる風船を割っていくアクションゲームです。 
投稿ゲームでアクションゲームがほしいと呼びかけて真っ先に送られてきた作品で，当編集 
室以外でも高い評価を受けるほど完成度が高く，きっと満足していただけることでしよう。 


入力，起動方法 


まず， BASIC を QD からロードし， 

NEW ON 20 
LIMIT $9FFFg 
BYEg 

と打ち込んで， BASIC のモニタに移ります0 
そして，モニタの M コマンドを使って，プ 
ログラムをダンプリストどおりに入力して 
いきます。 

入力が終わったら，チェックサムを確認 
して， BASIC のモニタカ*ら， 

* SA000 E 0 AF A000 : QD 
: Jocose john|J] 

として QD にセーブします。以上の操作は， 
必ず BASIC のモニタで行ってください（モ 

ニタコマンドについては，マニュアルの B 

ASIC モニタの部分を参照）。 

プログラムを 走らせるには， BASIC を起 
動後， 

RUN u Jocose John”Q 
と打ち込めば OK です。 

このプログラムは，すべて マシン 語です 
が， BASIC 内部の ルーチンを 使っている た 
め，単独では動きません。必ず BASIC を起 
動したうえで，プログラムを走らせてくだ 
さい。 

遊び方 


タイトル画面から， スペースキーを 押す 
とゲーム開始です。 

画面の下にいる人間が，あなたの操る 「ジ 
ョー カス.ジョン」 です。 カー ゾルキーを 
使って，上下左右に移動できますが，壁や 
画ビ ョウを 置いてあると ころへは 行けませ 
ん。また， スペースキーを 押しながら左右 




に移動すると，今までいた場所に画ビョウ 
を置くことができます。 

さて，軽快な BGM とともに，画面の上か 
ら4色の風^^がポロポロと落ちてきます力 ? ， 
この風船はジョンが置いた画ビョウに当た 
ると害 lj ることができます。風船の通り道に 
画ビョウを置いて，風船を割ることがジョ 
ンの使命です。 

9個のボールを割ると，画面のどこかに 
ボーナスプレートが 出現します 0 ボーナス 
プレートの種類は，9個目に割った風船の 
色によって決定され，また， ボーナスプレ 
一 卜の出現する位置もある一定の ルールに 
従っています。 

このボーナスプレートを4枚集めると， 

1面クリアに……なるとは限りません。 4 
枚すベて同じ種類のボーナスプレートを集 
める必要があります。同じ種類でなければ， 
もう一度その面を繰り返します。 

もし，間違えて種類の違うボーナス プレ 
一卜を出してしまったときは，取らずにそ 



なお，スコアが3位以内のときは名前の 
登録 （5 文字まで）ができます 0 カーソルキ 
一の左右で選び，スペースキーで登録です。 
この ゲームのコツ は， 

1) むやみに画ビョウを置かない。 

2) ボーナスゲームを 必ず狙う，です。 



プログラムについて 


BGM のルーチンは， MZ - 1500 付属の 
DEMO エディタのマシン 語 プログラムをリ 
ロケートして，使っています。 


のままにしておけば自然に消えますから， A 008 h - B 7 FFh は PCG のデータです 


そのあとで改めて9個の風船を割ります。 

1面クリアしたときは，取った4枚のボ 
ーナスプレートの種類によって，次のよう 
なボーナスが加算されます。 

171： 10000 点+ボーナスゲーム 
I MZ I ： 5000点+ ジョン 1 UP 
I ブドウ1 :10000点 
1 スイカ I : 5000点 

ボーナスゲームでは，スロットマシンに 
チヤ レンジします 0 スペースキーを 押して， 
0 が 4つ 揃えば，次の面はボールがすべて 
白になります。ただし，ジョンが死ぬとも 
とに戻ります。 

ジョンは，風船に当たったり，画面下の 
黄色いバーで示される制限時間をオーバー 
したりすると死んでしまいます。 


から，少しくらい間違って人力しても構い 
ませんし，変更することも町能です。 

また， D 000 h~ は BGM のデータです。 
入力するのが面倒な人は，これも MZ 15 
〇〇付属のアプリケーシ ヨンの QD に入っ 
ている，“ SOUND”，“GAKUFLT の 2 つの 
オブジェクトデータをロード すれば， D 0 
00 h 以降は打ち込まずにすみます。ただ 
し， BGM は途中で止まってしまいます。 

あるいは， ミュー ジツ ク エースを 使って 
作成したデータを使うこともできます。テ 
ンポは5に固定されていますので，それに 
合わせてください。 

上の2つの方法とも，プログラムの終了 
アドレスがずれますので，その場合の注意 
が必要です。 


94 Oh ! MZ 1986.10. 
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ee ee ee 
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B6B0 

B6B8 
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B6C8 

B6D8 

B6D8 
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B6F8 


SUM ： BA CC 20 0C 18 CC 7D 00 : 13 
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FF 
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F8 
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IF 

IF 

ee 

00 

ee 

ee 

50 

B358 

ce 

F0 

F8 

FF 

ee 

ee 

ee 

ee 

A7 

B366 

03 

0F 

IF 
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0F 
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IF 
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00 

ee 
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00 
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00 

ee 

A7 
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18 

F8 

B8 

A2 

ee 

ee 

ee 

ee ： 6A 

B380 

ee 

00 

ee 

0F 

0F 

0E 

0C 

IE 

56 

B388 

00 

00 

00 

F0 

F8 

30 

ee 

ee 

18 

B390 

80 

00 

00 

9F 

IF 

ec 

00 

ee 

3A 

B398 

00 

00 

ee 

F8 

F0 

70 

30 

78 

F8 

B3A0 

00 

ee 

ce 

FF 

FF 

ee 

ee 

ee 
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B3A8 

ee 
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F0 

F0 
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B3B0 

ee 

ee 
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0F 
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03 
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B3B8 

00 

ee 

00 

98 
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80 
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B3C0 

08 

ee 

ee 

0F 
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ee 
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ee 

ee 
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F0 
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B3D0 

00 
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0F 

0E 

ec 
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56 

B3D8 

ee 

ee 
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F8 

36 

06 

ee 
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B3E0 

00 

00 

ee 

0F 

0F 

8F 

0C 

9E 
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B3E8 

ee 

ee 

03 

FF 

FF 

ee 

ee 

ee 

01 

B3F0 

00 

ee 
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01 
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B3F8 

00 

ee 
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F9 

Ee 

86 

ce 

ee 
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ee 
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A9 

40 

41 
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EE : 
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0F 
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IF 

ee 

ee 
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00 
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ee 
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ee 
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IF 

IF 

IF 

IF 

IF 

IF 

CC 
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F8 

F8 

F8 
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EF 
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80 

88 

C2 

C0 

E0 

F8 

FF 

60 

B4C8 

FF 

0 i 

入 l 

03 

03 

07 

IF 
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D0 
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SUM ： 87 5E 3918 36 56 72 02 


SUM ： 43 5D 5D BB 24 CE B2 40 


SUM ： CA 3D 95 Cl B6 76 27 00 


ee ee ee ee ee ee ee 
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63 
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B9 

8F 


特集 Jocose John 


SUll ： BA 3C 99 81 E7 C3 81 0¢ 


B570 ee ee ee 60 ee ee ee ee : ee 
B578 ee ee ee ee ee ee ee ee ：ee 


SUM ： 00 E7 CF CF 3B F3 F3 E7 ： 8D 

B586 ee ee ee ee ee ee ee ee ：ee 
B588 ee ee ee ee ee ee ee ee ：00 
B59 8 ee ee ee ee ee 00 ee ee ：ee 
B598 ee ee ee ee ee ee ee ee ：ee 
B5A8 ee ee ee ee 00 ee 00 ee : ee 
B5A8 ee ee ee ee ee ee ee 00 ：ee 
B5B6 ee ee ee ee 00 ee ee ee ：ee 
B5B8 ee ee ee ee ee ee ee ee ：ee 
B5ce ee ee ee ee 00 ee ee ee ：ee 
B5C8 ee ee ee ee ee ee ee ee : ee 
B5De ee ee ee ee ee ee ee ee ：00 
B5D8 ee ee ee ee ee ee ee ee : ee 
B5Ee ee ee ee 00 ee ee ee 00 ：00 
B5E8 ee ee ee ee ee ee ee ee ： ee 
B5F0 00 01 03 07 0111 30 7C ： C9 
B5F8 00 80 C0 E0 80 88 6C 3E : 72 


SUM ： 00 81 C3 E7 8199 3C BA : 3B 

B 60 e ee ee ee ee ee ee ee ee ：ee 
B6e8 ee ee ee ee ee ee ee ee ：ee 
B6ie ee ee ee ee ee ee ee ee ：ee 
B6i8 ee ee ee ee ee ee ee ee ：ee 
B 626 ee ee ee ee ee ee ee ee ：ee 
B 628 ee ee ee ee ee ee ee ee : ee 
B636 ee ee ee ee ee ee ee ee ：ee 
B638 ee ee ee ee ee ee ee ee ：ee 
B64e ee ee ee ee ee ee ee ee : ee 
B648 ee ee ee ee ee 00 ee ee : ee 
B65e ee ee ee ee ee ee ee ee ：ee 
B658 ee ee ee ee ee ee ee 00 ：ee 
B66e ee ee ee ee ee ee ee ee : ee 
B668 ee ee ee ee ee ee 00 ee ：ee 
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B678 3E 0C 88 80 E0 C0 80 60 ：72 
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► 9 月号は売り切れ寸前で衣紙の汚れたのしか H えなかった。6 W 号は3粁の本屋をかけず 
り N ってようや〈手に入れた。これもみな PC ユーザーが悪いのだ。彼らのために興の MZ 
/ XI ユーザーが泣いている。今後このようなことが続くと “Oh ! MZ に燦弾をしかける会” 
が発生するかもしれません 0 人增刷をお願いします。また S - OS ソフトのディスク，テープ 
サービスは いつに なったらやるんですか？ 後藤真実 (26) 愛知県 
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47 0E 08 21 
C3 FI C9 F5 
BA 18 DF CD 
01 CD 99 CD 
IF C6 58 3E 
16 00 CD C9 
CO 99 CD Cl 
C0 21 ee 82 
01 02 22 45 
22 47 C5 CD 
881194 BC 
04 21 EF D6 
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BB18 

BB20 

BB28 

BB30 

BB3S 

BB40 

BB48 

BB50 

BB58 

BB66 

BB68 

BB70 
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BD80 35 21 
BD88 08 ee 
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BDB0 00 33 
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DP 

ee 

26 

49 

FF 

4E 

56 

C4 

BEF0 

55 

54 

28 

59 

4F 

55 

52 

20 

38 

BEF8 

4E 

41 

4D 

45 

FF 

FB 

20 

ee 

3B 

SUM: 

18 

C6 

A8 

00 

16 

22 

A0 

3B 

: 99 

BFee 

2e 

20 

26 

20 

28 

ee 

41 

20 

81 

BF08 

42 

20 

43 

20 

44 

26 

45 

28 

8E 

BF10 

46 

20 

47 

28 

26 

20 

ee 

CD 

DA 

BF18 

BC 

BF 

3E 

70 

32 

5D 

ee 

3E 

F6 

BF20 

16 

DF 

03 

21 

00 

ee 

22 

45 

80 

BF28 

C5 

21 

27 

18 

22 

47 

C5 

CD 

26 

BF30 

27 

C5 

21 

IE 

8E 

22 

6B 

ce 

26 

BF38 

21 

88 

13 

22 

2B 

C3 

3E 

❺ 4 

6E 

BF40 

32 

04 

CA 

3E 

01 

32 

93 

BC 

ce 

BF48 

3E 

02 

32 

09 

C0 

21 

ee 

ee 

5C 

BF50 

22 

29 

C3 

CD 

ee 

B8 

21 

00 

B4 

BF58 

ee 

22 

06 

C8 

3E 

IF 

32 

08 

87 

BF66 

C8 

22 

0B 

C8 

AF 

32 

0D 

C8 

73 

BF68 

3E 

IF 

32 

EC 

C8 

21 

ED 

Be 

61 

BF70 

22 

DA 

CA 

21 

ee 

ee 

22 

2D 

36 

BF78 

C3 

AF 

32 

22 

C6 

CD 

56 

C9 

78 

SUM: 

84 

87 

44 

1C 

4D 

13 

8E 

53 : 

: AC 

BF80 

21 

0 1 

17 

22 

52 

C9 

21 

A0 

37 

BF88 

00 

22 

54 

C9 

CD 

F6 

BC 

CD 

SB 

BF96 

ee 

ce 

CD 

2B 

CB 

C5 

21 

ID 

86 

BF98 

17 

01 

08 

87 

CD 

40 

C3 

Cl 

38 

BFA0 

65 

85 

28 

13 

21 

ee 

ee 

22 

88 

BFA8 

DA 

CA 

CD 

ki 

CD 

78 

FE 

ee 

58 

BFB0 

20 

Cl 

CD 

48 

BD 

18 

87 

CD 

17 

BFB8 

37 

BB 

18 

9A 

21 

00 

A8 

AF 

14 

BFC0 

77 

32 

01 

A0 

32 

62 

A0 

3E 

5C 

BFC8 

03 

0 1 

00 

08 

11 

ee 

De 

F3 

Ee 

BFD0 

D3 

ES 

ED 

B0 

D3 

E6 

FB 

3D 

46 

BFD8 

26 

EF 

C9 

00 

ee 

ee 

ee 

ee 

D8 

BFE8 

00 

ee 

ee 

ee 

ee 

ee 

00 

ee 

ee 

BFE8 

00 

ee 

00 

ee 

00 

08 

ee 

80 

ee 

BFF« 

00 

ee 

ee 

00 

ee 

ee 

00 

ee 

ee 

BFF8 

00 

ee 

80 

00 

00 

ee 

ee 

ee 

ee 

SUM: 

DB 

36 

Dl 

86 

99 

3C 

51 

57 : 

: E5 

c»ee 

C3 

37 

ce 

C3 

D3 

C0 

C3 

0D 

Ee 

C808 

ce 

ee 

00 

00 

ee 

3A 

0A 

ce 

C4 

ceie 

B7 

C2 

1C 

ce 

CD 

37 

ce 

3E 

57 

cei8 

92 

32 

6A 

ce 

DD 

21 

4C 

C2 

0 入 

C820 

ED 

5B 

0B 

ce 

C3 

P8 

Cl 

21 

Be 

0928 

00 

ee 

0E 

08 

29 

87 

D2 

32 

CA 

C«30 

ce 

19 

0D 

C2 

2C 

ce 

C9 

3A 

97 

C838 

6A 

C8 

B7 

C4 

D3 

ce 

F3, AF 

7A 


SUM: 10 CB Cl3A 3B 6139 FB 


A6 

5C 

76 

D5 

30 

BC 

DE 

AE 

4B 

7A 

36 

C9 

AB 

BE 

12 

7C 

B6 


SUM: 

AA 

D6 

DB 

9A 

D2 

9A 

ED 

51 : 

： 9P 

BC80 

21 

02 

ie 

11 

B8 

BC 

CD 

35 

BA 

BC88 

C4 

21 

04 

CA 

34 

CD 

56 

C9 

D3 

BC98 

C3 

DA 

BB 

ee 

59 

¥Y 

4P 

55 

54 

BC98 

20 

47 

4F 

54 

26 

41 

53 

26 

DE 

BCA0 

46 

4F 

4C 

4C 

4F 

57 

53 

PF 

25 

BCA8 

Dl 

ee 

42 

4F 

4E 

55 

53 

2% 

78 

BCB6 

CB 

20 

28 

28 

20 

20 

30 

ee 

9B 

BCB8 

54 

FF 

48 

45 

26 

FF 

4 入 

FF 

48 

BCC6 

4F 

43 

4F 

53 

45 

20 

FF 

4A 

E2 

BCC8 

FF 

4F 

48 

4E 

20 

4D 

55 

4C 

F2 

BCD6 

54 

49 

•5 0 

4C 

49 

45 

53 

FF 

19 

BCD8 

FB 

ee 

20 

20 

20 

20 

28 

20 

BB 

BCE0 

20 

26 

ee 

53 

FF 

4F 

52 

52 

85 

BCE8 

59 

FF 

CD 

FF 

20 

4E 

4F 

20 

ei 

BCF0 

42 

4F 

4E 

55 

53 

ee 

3A 

93 

54 

BCF8 

BC 

CD 

26 

CA 

ED 

5B 

2B 

C3 

AF 

SUM: 

12 

C8 

SC 

AD 

6F 

5E 

B2 

BE : 

: 70 

BD00 

21 

21 

es 

AF 

CD 

DO 

C2 

21 

76 

BD68 

8C 

ec 

u 

35 

BD 

CD 

35 

C4 

El 

BD16 

21 

0E 

14 

ei 

08 

80 

CD 

9F 

38 

BD18 

C3 

21 

ee 

86 

CD 

99 

CD 

21 

3E 

BD28 

KC 

D5 

li 

EC 

DD 

06 

06 

AF 

56 

BD28 

F3 

D3 

E3 

77 

12 

D3 

El 

FB 

El 

BD30 

23 

13 

ie 

F4 

C9 

52 

45 

41 

DB 

BD38 

44 

59 

FB 

ee 

ee 

ee 

ee 

ee 

98 

BD48 

2A 

29 

C3 

ED 

5B 

A4 

B9 

AF 

6A 

BD48 

47 

ED 

52 

30 

IB 

84 

2A 

29 

28 

BDse 

C3 

ED 

5B 

AC 

B9 

入 F 

ED 

si 

5E 

BD58 

30 

27 

64 

2A 

29 

C3 

ED 

5B 

B9 

BO60 

B4 

B9 

AF 

ED 

52 

30 

33 

C9 

87 

BD68 

21 

B3 

B9 

11 

BB 

B9 

01 

10 

23 

BD79 

00 

ED 

B8 

2 入 

29 

C3 

22 

A4 

81 

BD78 

B9 

11 

A8 

BD 

21 

A6 

B9 

18 

C7 


SUH ： 49 94 651A C6 4D 89 AA ：12 


SUM: 

6C 

eB 

4C 

31 

1C 

3C 

81 

C3 : 

： 90 

BB80 

11 

08 

0B 

C5 

DS 

E5 

F3 

D3 

69 

BB88 

E3 

7E 

D3 

El 

FB 

6 B 

62 

47 

24 

BB90 

0E 

08 

CD 

88 

C3 

K 1 

Dl 

Cl 

A1 

BB98 

23 

23 

1 C 

1C 

1C 

1 C 

ie 

E3 

A9 

BBA0 

21 

IF 

12 

11 

DA 

BC 

CD 

35 

FB 

BB 入 8 

C4 

21 

IF 

14 

11 

DA 

BC 

CD 

8 C 

BBB0 

35 

C4 

DD 

21 

ce 

D5 

F3 

D3 

52 

BBB8 

E3 

DD 

7E 

ee 

DD 

46 

04 

DD 

42 

BBC6 

4E 

08 

DD 

56 

ec 

D3 

El 

FB 

44 

BBC8 

B8 

20 

86 

B9 

26 

03 

BA 

28 

9C 

BBD6 

39 

21 

07 

0E 

11 

E3 

BC 

CD 

EC 

BBD8 

35 

C4 

21 

00 

0 5 

CD 

99 

CD 

52 

BBE0 

21 

1 A 

0A 

AF 

01 

0 8 

60 

16 

73 

BBE8 

01 

5K 

AF 

CD 

C9 

C4 

E5 

F5 

43 

BBF0 

21 

60 

ee 

CD 

99 

CD 

FI 

El 

86 

BBF8 

47 

7D 

FE 

62 

78 

20 

E5 

3E 

7F 


BAD8 BF BA 
BAE8 8108 
BAE8 BA 7D 
BAF0 17 FE 
BAF8 01 C0 


57 3 入 C0 BA 
68 CD C9 C4 
32 BE BA FE 
11 C0 3 入 BF 
3A BA BA C6 


5F 

AF 

：92 

32 

ce 

: B5 

15 

28 

： 1C 

BA 

FE 

:97 

ie 

47 

：8 C 


►もしかすると S - OS 用として発表した言語は自己増殖ができるものばかりでは？ 

上村圭介（14> 埼玉県 


B818 

B820 

B828 

B830 

B838 

B840 

B848 

B850 

B858 

B860 

B868 

B870 

B878 


21 09 
0'E 0 8 
13 2C 

ee 83 

40 C3 
87 CD 
E9 21 
9E 32 
CD 8A 
Cl BA 
0E 3A 
FE 86 
00 ee 


ee u C5 
CD 9F C3 
2C 10 EE 
C5 E5 ei 
El E5 26 
46 C3 El 
dl 0122 
BA BA AF 
B8 21 BC 
入 F DF 0D 
BC BA FE 
CC C7 B9 
22 45 C5 


D5 E5 
El Dl 
06 28 
08 87 
86 0 1 
Cl2C 
BE BA 
32 BC 
BA 34 
FE 20 

ee 28 

18 E4 
2127 


SUM ： 79 22 F5 C4 B169 3136 ： D5 


B8S0 

B888 

B898 

B898 

B8A0 

B8A8 

B$B0 

B8B8 

B8C0 

BSC8 

B8D6 

B8D8 

B8E0 

B8E8 

B8F0 

B8F8 


22 47 
27 C5 
2125 
C5 3E 
1123 
0 入 11 
08 0C 
2188 
CA 21 
35 C4 
A4 B9 
00 3E 
Dl C5 
2C 2C 
57 59 
2C 2C 


C5 3E 16 
2162 08 
14 22 47 
16 OF 03 
B9 CD 35 
38 B9 CD 
1151 B9 
0F 116D 
091711 
06 08 21 
D5 C5 E5 
01 CD De 
05 E5 2C 
2C E51A 
AP CD D0 
2C 2C 11 


DF 03 
22 45 
C5 CD 
21 0A 
C4 21 
35 C4 
CD 35 
B9 CD 
86 B9 
0711 
64 58 
C2 El 
2C 2C 
4F 13 
C2 El 
9D B9 


SUM ： 

90 

09 

E2 

95 

9E 

93 

E2 

CE : 

: FI 

B908 

35 

C4 

El 

Dl 

Cl 

C5 

D5 

E5 

EB 

B988 

01 

11 

ee 

09 

13 

13 

CD 

35 

43 

B910 

C4 

El 

Dl 

Cl 

24 

24 

64 

3E 

Cl 

B918 

ea 

13 

3D 

28 

FC 

78 

PE 

03 

ED 

B920 

20 

B0 

C9 

DF 

DP 

DF 

26 

4B 

A1 

B928 

45 

59 

20 

46 

55 

4E 

43 

54 

3E 

B930 

49 

4F 

4E 

20 

DF 

DF 

DF 

ee 

A3 

B938 

53 

FF 

SO 

41 

43 

45 

26 

42 

CD 

B940 

41 

52 

20 

FP 

CB 

28 

53 

FP 

EF 

B948 

45 

54 

26 

4E 

41 

49 

4C 

53 

30 

B956 

ee 

43 

FF 

55 

52 

53 

4F 

52 

DD 

B958 

20 

4B 

45 

59 

20 

FF 

CB 

20 

13 

B960 

40 

FF 

4F 

56 

45 

20 

FP 

4A 

9F 

B968 

FF 

4F 

48 

4E 

ee 

DF 

DF 

DF 

81 

B979 

26 

42 

45 

53 

54 

28 

54 

48 

8A 

B978 

52 

45 

45 

20 

53 

43 

4P 

52 

33 

SUH ： 

67 

29 

IB 

53 

B4 

E2 

40 

C3 ' 

:97 

B980 

45 

20 

DF 

DF 

DF 

ee 

DF 

DF 

ce 

B988 

DF 

20 

50 

55 

53 

48 

20 

S3 

B2 

B990 

50 

41 

43 

45 

28 

42 

41 

52 

eE 

B998 

28 

DF 

DF 

DF 

ee 

39 

2e 

FF 

ec 

B9A0 

42 

59 

20 

ee 

88 

13 

53 

41 

E 入 

B9A8 

49 

54 

4F 

ee 

B8 

0B 

4F 

48 

46 

B9B8 

20 

4D 

5A 

ee 

De 

07 

20 

2F 

ED 

B9B8 

2E 

2C 

20 

ee 

Be 

B2 

B4 

B2 

42 

B9C0 

B6 

B8 

D0 

Be 

B2 

BA 

BC 

21 

37 

B9C8 

08 

98 

22 

45 

CS 

21 

IP 

17 

93 

B9D8 

22 

47 

C5 

CD 

27 

C5 

21 

0A 

12 

B9D8 

08 

11 

6F 

BA 

CD 

35 

C4 

21 

29 

B9E0 

16 

8A 

11 

83 

BA 

CD 

35 

C4 

34 

B9E8 

21 

16 

0C 

11 

97 

BA 

CD 

35 

A7 

B9F0 

C4 

21 

16 

8E 

11 

AD 

BA 

D5 

56 

B9F8 

CD 

35 

C4 

Dl 

21 

16 

10 

CD 

AB 

SUM: 

ID 

14 

57 

47 

ee 

B0 

62 

EB : 

: CC 

BA00 

35 

C4 

21 

09 

14 

11 

86 

B9 

87 

BA08 

CD 

35 

C4 

21 

ie 

0A 

11 

10 

22 

BAie 

27 

AF 

CD 

1)0 

C2 

21 

ie 

ec 

72 

BA18 

11 

88 

13 

AF 

CD 

D0 

C2 

21 

DB 

BA20 

ie 

0E 

11 

10 

27 

k¥ 

CD 

De 

B2 

BA28 

C2 

21 

10 

10 

11 

88 

13 

AF 

5E 

BA36 

CD 

D0 

C2 

21 

1A 

0A 

0 1 

50 

F5 

BA38 

6A 

CD 

30 

C3 

21 

1A 

0C 

ei 

72 

BA40 

5e 

6A 

CD 

38 

C3 

21 

02 

ex 

A7 

BA48 

01 

9E 

84 

CS 

E5 

06 

04 

E5 ( 3C 

BA5e 

C5 

41 

0K 

08 

CD 

88 

C3 

Cl : 

: P5 

BA58 

El 

2C 

2C 

2C 

i e 

FI 

CS 

01:2C 

BA66 

08 

IE 

CD 

46 

C3 

Cl 

El 

Cl : 

： 59 

BA68 

6D 

0D 

24 

24 

ie 

DD 

C9 

DP : F7 

BA70 

DF 

DF 

20 

42 

4F 

4E 

55 

53 ：65 

BA78 

26 

56 

4C 

41 

54 

45 

26 

DF : 

95 

SUM ： 

4E 

CB 

48 

BD 

21 

38 

63 

49 : 

BB 

BA88 

DF 

DF 

ee 

FF 

50 

54 

53 

20 

D4 

BA88 

20 

20 

FF 

42 

FF 

4F 

4E 

55 

72 

BA90 

53 

26 

47 

41 

4D 

45 

ee 

FF 

8C 

BA98 

50 

54 

53 

20 

20 

20 

FF 

4A 

xe 

BAA0 

FF 

4F 

48 

4E 

20 

3B 

FF 

4F 

8D 

BAA8 

4E 

45 

FF 

2F 

00 

FF 

56 

54 

64 

BAB0 

53 

20 

20 

20 

28 

4F 

4E 

AC 

BC 

BAB8 

59 

ee 

ee 

ee 

ee 

09 

ee 

ee 

59 

BAC0 

ee 

21 

60 

00 

CD 

99 

CD 

3A 

EE 

BAC8 

BE 

BA 

FE 

01 

CC 

10 

BB 

FE 

0C 

BAD8 

25 

CC 

2F 

BB 

6F 

26 

04 

3A 

AE 


D 4 4 3 A 0 


42D 59418 CB0 


^01F00D402CFCB 


31 c 8 < 

> 1 B 2 c 


4 B 0 19 A 
J 5 D F 0 D 
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0B 33300 C0 




E 9 2 c 3 
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4E6D3B 8791775599 


1299E 453714 D1E14 
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93E48E5F15592CC5 
BCAB14ED2C 3613 E3 

B 9129 F0657D13C0D 
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98c 91820256933 eb 
BBA 220502 C06F13E 

3D1AD0FD 07116 B21 
BE12B5F 504212 F01 


98 Oh! MZ 1986.10. 




































ee ee 22 
C8 fe ee 

219F C8 

ee ia ed 

DD 36 01 
DD 36 62 
4F C8 DD 
62 93 C9 
D9 3A 68 
6F 2614 
0E 08 CD 
08 C8 C9 
C8 3E S0 
21IF 14 
CD 88 C3 
20 FI3E 


0C DD 
23 56 
06 D5 
16 ee 

1911 
52 DA 
19 29 
FA C8 
BD Cl 
7B E6 
30 ED 
0F 92 
96 DO 
7E 36 
79 C9 
7E 36 


C400 7E 51 FD 77 05 DD 7E 02 
C408 FD 77 06 DD 7E 2A FD 77 
C418 07 D3 El FB C9 00 08 00 

C418 ee ee ee ee ee ee ee ee 
C426 ee ee ee ee ee ee 00 ee 
C428 ee ee ee ee ee 00 ee ee 
C43e ee ee ee ee 00 af 32 62 

C438 C41A 13 FE 00 C8 DF ID 
C440 FE 60 20 0B 3A 62 C4 FE 
C448 00 20 EA 3E 30 18 E7 D5 
C458 E5 2162 C4 86 47 6E 08 
C458 El E5 CD 40 C3 El Dl2C 
C46618 D7 00 E5 F5 CD B0 C2 
C468 FI F5 F3 D3 E3 FE 00 28 
C470 19 FE 0128 23 FE 02 28 
C478 2E FE 03 28 39 AF DD 77 


SUM- 5A 03 27 A2 33 98 A5 88 

C480 00 FD 77 ee DD 77 01 FD 
C488 77 01 DD 77 28 FD 77 28 
C490 DD 77 29 FD 77 2918 2B 
C498 AF DD 77 01 FD 77 01 DD 
C4A0 77 29 FD 77 29181C AF 
C4A8 DD 77 80 FD 77 00 DD 77 
C4B8 01 FD 77 0118 0D AF DD 
C4B8 77 00 FD 77 66 DD 77 28 
C4C8 FD 77 28 D3 El FB FI El 
C4C8 C9 FE 012814 7A CD 63 
C4D0 C4 FE 00 28 2A FE 0128 
C4D8 29 FE 02 28 28 FE 03 28 
C4E0 27 E51C CB 43 28 62 04 
C4E8 04 7A FE 00 28 89 04 04 
C4F0 04 04 3D FE 60 20 F7 D5 
C4F8 CD 9F C3 Dl El7B C9 25 


SUM: 2D 0F 27 CE 63 FD E7 43 


SUM ： 

62 

B4 

Be 

D4 

89 

3E 

45 

1C : 

： 6^2 

C200 
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9F 

DD 

4E 

30 

ED 

79 

DD 

33 

C208 

36 

0C 

ee 

CB 

7B 

ce 

3E 

3F 

C5 

C218 

DD 

77 

ec 

6B 

26 

ee 

29 

29 

43 

C218 

29 

DD 

75 

12 

DD 

74 

18 

7 入 

70 

C226 

E6 

0F 

li 

87 

ee 

CD 

27 

ce 

41 

C228 

11 

C7 

D0 

19 

DD 

75 

ee 

DD 

F0 

C230 

74 

06 

2B 

7E 

DD 

77 

2A 

B7 

58 

C238 

DD 

7E 

IE 

DD 

77 

36 

C8 

FE 

C9 

C248 

C0 

C0 

DD 

36 

36 

E0 

C9 

ee 

72 

C248 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

C250 

ee 

ee 

00 

ee 

ee 

ee 

ee 

ee 

ee 

0258 

00 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

C266 
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00 
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00 

ee 

00 

ee 

ee 

ee 
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00 

ee 
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00 

00 

ee 

ee 
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ee 

00 

08 

ee 

ee 

ee 

0e 

ee 

ee 

C278 

ee 

00 

ee 

ee 

ee 

00 

ee 

00 

ee 


SUM ： CA 40 D8 E0 80 AB 7A 62 


IE 

C6 

90 

5D 

56 

20 

1C 

27 

67 

ID 

AE 

3B 

A2 

64 

B5 

2F 

4A 


SUM ： B14F 65 25 A6 D2 

C38e ee ee ee CD Be C2 
C3S8 CD Be C2 F3 D3 E3 
C398 ee fd 7i ee 04 dd 
C 398 FD 71 01 D3 El FB 
C3A0 E5 C5 CD 88 C3 Cl 
C3A8 78 C610 47 CD 88 
C3B0 C9 E5 CD Cl C2 FD 
C3B8 2115 C4 CD DE C3 
C3C0 FD 21ID C4 CD DE 
C3C8 CD B0 C2 FD E5 FD 
C3D8 C4 CD DE C3 DD El 
C3D8 2D C4 CD DE C3 C9 
C3E0 E3 DD 7E D8 FD 77 
C3E8 7E D9 FD 77 01 DD 
C3F0 FD 77 02 DD 7E 27 
C3F8 03 DD 7E 50 FD 77 


F0 

DA 

11 : 

:6F 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

80 

ee 

ee 

ee 

ee 

ei 

ee 

04 

69 

ES 

B5 

FD 

El 

Cl 

54 

DD 

El 

01 

2F 

El 

Cl 

C9 

SE 

36 

32 

21 

E9 

El 

11 

22 

EB 

AF 

32 

28 

C8 

C3 

7E 

FE 

50 

C3 

DF 

ID 

91 

El 

F3 

D3 

17 


C9 

22 

8E 

A1 

CE 

B6 

36 

ED 

94 

KD 

D2 

08 

6B 

21 

3E 

IF 

86 


C040 

32 

9C 

C2 

21 

ee 

03 

22 

9E 

74 

C048 

C2 

22 

A0 

C2 

入 F 

32 

A2 

C2 

8B 

cese 

21 

32 

D9 

DD 

21 

47 

C2 

0E 

41 

C058 

80 

06 

06 

DD 

36 

ec 

ee 

79 

A4 

C066 

FE 

03 

3F 

3E 

ee 

CE 

F2 

DD 

IB 

C068 

77 

30 

79 

FE 

63 

DA 

72 

ce 

2D 

C076 

D6 

03 

0F 

0F 

0F 

F6 

86 

DD 

59 

C078 

77 

IE 

DD 

77 

36 

DD 

36 

24 

56 

SUM ： 

CA 

A9 

入 8 

FB 

B6 

54 

C8 

8E : 

: 6B 


SUM: D610 E0 B6 C7 B4 入 5 7C 


SUM ： 

7E 

62 

AA 

46 

C4 

53 

38 

EE : 

:0D 

C500 

18 

DF 

2D 

18 

DC 

24 

18 

D9 

2D 

C508 

2C 

18 

D6 

DF 

25 

82 

83 

21 

44 

C510 

47 

C2 

86 

F5 

ED 

5F 

57 

PI 

18 

C518 

82 

C9 

21 

ee 

E6 

3E 

F7 

CD 

4E 

C520 

EE 

ee 

23 

CD 

E6 

ee 

C9 

2A 

B7 

C528 

45 

C5 

ES 

ei 

ee 

ee 

CD 

40 

FD 

C530 

C3 

El 

2C 

3A 

47 

C5 

BD 

30 

03 

C538 

FI 

3A 

45 

C5 

6F 

24 

3A 

48 

4A 

C540 

C5 

BC 

30 

E6 

C9 

00 

ee 

ee 

68 

C548 

00 

2A 

29 

C3 

ED 

4B 

2D 

C3 

3E 

C556 

99 

22 

29 

C3 

ED 

4B 

2B 

C3 

3D 

C558 

AF 

32 

2F 

C3 

ED 

42 

D8 

2A 

84 

C560 

29 

C3 

22 

2B 

C3 

3E 

01 

32 

60 

C568 

2F 

C3 

C9 

80 

88 

ee 

ee 

ee 

BB 

C570 

2A 

IF 

C6 

CD 

83 

C3 

AF 

32 

83 

C578 

22 

C6 

06 

94 

21 

7B 

C3 

3E 

8F 

SUM ： 

15 

07 

SB 

E4 

61 

80 

19 

EC : 

： 71 

C580 

87 

BE 

30 

0B 

3E 

8F 

BE 

38 

43 

C588 

06 

3E 

01 

32 

22 

C6 

C9 

23 

4B 

CS96 

10 

ED 

2k 

IF 

C6 

CD 

B1 

C3 

40 

C598 

CD 

1A 

C5 

FE 

DF 

28 

15 

FE 

C4 

C5A0 

FB 

28 

4B 

FE 

EP 

28 

53 

FE 

D4 


SUM: 

El 

08 

14 

6D 

ce 

E6 

51 

C9 : 

： 2A 

C3ee 

E3 

DD 

77 

ee 

FD 

36 

ee 

08 

72 

C308 

D3 

El 

FB 

DD 

23 

FD 

23 

23 

F2 

C3ie 

10 

DC 

C9 

3A 

28 

C3 

FE 

ee 

D8 

C318 

28 

84 

3E 

28 

18 

DA 

AF 

18 

43 

C326 

D7 

ee 

ee 

00 

ee 

86 

ee 

ee 

D7 

C328 

ee 

00 

ee 

ee 

00 

90 

ee 

ee 

ee 

C336 

CD 

Cl 

C2 

F3 

D3 

E3 

DD 

70 

46 

C338 

ee 

FD 

71 

ee 

D3 

El 

FB 

C9 

E6 

C340 

CD 

Be 

C2 

18 

EE 

CD 

Cl 

C2 

95 

C348 

F3 

D3 

E3 

DD 

6E 

ee 

DD 

66 

37 

C359 

ei 

DD 

5E 

28 

DD 

56 

29 

D3 

93 

C358 

El 

FB 

22 

7B 

C3 

ED 

53 

7D 

F9 

C360 

C3 

F3 

D3 

E3 

FD 

6E 

00 

FD 

D4 

C368 

66 

ei 

FD 

5E 

28 

FD 

56 

29 

66 

C370 

D3 

El 

FB 

22 

7F 

C3 

ED 

53 

53 

C378 

81 

C3 

C9 

ee 

ee 

ee 

ee 

00 

6D 


SUM: 02 0F A 入 3C 4C D6 F7 8E : 7E 

C100 09 C0 C6 03 77 3A 0A C0 : 00 
C108 3D C2 65 Cl DD 2147 C2 :2C 
C110 06 06 DD 35 24 F2 39 Cl:2E 
C118 DD 6E 3C DD 66 42 5E 23 : 8D 
C128 56 23 DD 75 3C DD 74 42 : 9A 
C128 7A CB 3F CB 3F CB 3F CB ：63 
C138 3F DD 77 24 C5 CD F8 Cl：02 
C138 Cl DD 23 05 C212 Cl2A ：85 
C140 9E C2 2B 22 9E C2 7C B5 :3E 
C148 C2 65 Cl2A A0 C2 22 9E ：34 
C150 C2 06 66 DD 2B DD 6E 48 ：69 
C158 DD 66 4E DD 75 3C DD 74 ：70 
C 1 68 42 95 C2 53 Cl DD 2147 ： 62 
C168 C2 86 66 C5 CD 7D Cl Cl:5F 
C170 DD 23 05 C2 6B Cl DD El ： B1 
C178 FI El Dl Cl C9 DD 7E 0C ： 94 


18 

D6 

BF 

6F 

F6 

2E 

35 

5D 

27 

30 
Dl 

31 
FB 
D5 
9D 
F3 
B6 


SUM ： 

IE 

05 

E7 

E4 

FI 

IF 

64 

C7 : 

: 29 

C860 

IF 

32 

98 

C8 

C9 

ee 

ee 

ee 

EA 

C888 

IF 

ee 

ee 

ee 

ee 

ee 

88 

8A 

31 

C810 

8C 

8E 

88 

8C 

88 

8A 

ee 

ee 

40 

C818 

FF 

00 

ee 

ee 

ee 

FF 

00 

ee 

FE 

0820 

ee 

ee 

FF 

ee 

ee 

ee 

ee 

FF 

FE 

C828 

ee 

ee 

ee 

ee 

FF 

ee 

ee 

ee 

FF 

C830 

ee 

FF 

ee 

ee 

ee 

ee 

FF 

ee 

FE 

C838 

ee 

ee 

ee 

FF 

ee 

ee 

3A 

0D 

46 

C848 

C8 

FE 

06 

C8 

3D 

32 

eD 

C8 

D2 

C848 

FE 

18 

26 

6E 

AF 

32 

0D 

C8 

F2 

CS50 

2A 

09 

cs 

ei 

ee 

ee 

CD 

88 

51 

C858 

C3 

C9 

30 

li 

FE 

ee 

28 

EC 

DF 

C866 

2A 

09 

C8 

3A 

ec 

C8 

47 

6E 

5E 


特集 Jocose John 99 


C5A8 

F7 

28 

5B 

2A 

IF 

C8 

ei 

08 

92 

C5Be 

88 

C3 

9F 

C3 

16 

68 

21 

25 

01 

C5B8 

C4 

CD 

23 

C6 

38 

84 

3E 

01 

ED 

C5C6 

18 

01 

kf 

21 

21 

C6 

5E 

2 入 

58 

C5C8 

IF 

C6 

e.i 

98 

68 

P5 

DS 

CD 

E5 

C5D0 

C9 

C4 

22 

IF 

C6 

32 

21 

C6 

AD 

C5D8 

Dl 

FI 

PE 

61 

C8 

3E 

ee 

DF 

A6 

C5E6 

6D 

FE 

28 

C0 

7A 

FE 

ei 

28 

8C 

C5E8 

29 

PE 

03 

28 

2E 

C9 

16 

ei 

68 

C5F0 

21 

27 

C4 

CD 

23 

C6 

38 

C6 

C0 

C5F8 

18 

C8 

16 

82 

21 

29 

C4 

CD 

D3 

SUM: 

Ee 

4A 

55 

0B 

54 

ID 

67 

A6 : 

:02 

C6ee 

23 

C6 

38 

BA 

18 

BC 

16 

03 

C8 

C688 

21 

2B 

C4 

CD 

23 

C6 

38 

AE 

AC 

C6ie 

18 

Be 

24 

2C 

2C 

ei 

08 

86 

D3 

C618 

C3 

46 

C3 

24 

2D 

18 

F6 

80 

25 

C6 2 0 

ee 

ee 

ee 

7E 

FE 

86 

38 

04 

3E 

C628 

FE 

96 

38 

0A 

23 

7E 

FE 

86 

F5 

C630 

38 

06 

FE 

90 

30 

02 

37 

C9 

FE 

C638 

AF 

C9 

21 

ee 

69 

2B 

7C 

B5 

FE 

C646 

20 

FB 

32 

11 

C7 

3A 

eE 

C7 

34 

C648 

FE 

FF 

CS 

2A 

0C 

C7 

CD 

83 

12 

C650 

C3 

3A 

7B 

C3 

FE 

86 

CA 

ES 

6E 

C658 

C6 

2A 

ec 

C7 

7C 

FE 

15 

26 

72 

C660 

18 

7D 

FE 

ei 

28 

84 

FE 

1C 

DA 

C668 

26 

0F 

3E 

FF 

32 

8E 

C7 

2A 

9D 

C678 

ec 

C7 

ei 

ee 

ee 

CD 

40 

C3 

入 4 

C678 

C9 

E5 

01 

ee 

ee 

CD 

46 

C3 

7F 

SUH ： 

B8 

D6 

F9 

B4 

95 

FD 

34 

5A : 

： 5B 

C686 

El 

3A 

7D 

C3 

FE 

87 

38 

ec 

24 

C688 

3A 

0E 

C7 

FE 

01 

28 

14 

FE 

48 

C699 

03 

28 

IF 

C9 

24 

E5 

CD 

6B 

F4 

C698 

C5 

E6 

82 

F6 

ei 

32 

0E 

C7 

AB 

C6A0 

El 

18 

1C 

7D 

FE 

ei 

26 

07 

B8 

C6A8 

3E 

03 

32 

6E 

C7 

18 

0F 

2D 

9C 

C6B0 

18 

0D 

7D 

FE 

1C 

2e 

07 

3E 

21 

C6B8 

01 

32 

8E 

C7 

18 

FI 

2C 

22 

5F 

C6C0 

ec 

C7 

CD 

83 

C3 

3A 

7B 

C3 

5E 

C6C8 

FE 

86 

28 

19 

3A 

8F 

C7 

3C 

11 

C6D6 

32 

0F 

C7 

E6 

02 

CB 

8F 

21 

EB 

C6D8 

18 

C7 

86 

47 

0E 

98 

2A 

ec 

FB 

C6E0 

C7 

CD 

40 

C3 

C9 

2 入 

0C 

C7 

SD 

C6E8 

01 

ee 

ee 

CD 

40 

C3 

3E 

FF 

BE 

C6F8 

32 

0E 

C7 

2A 

2D 

C3 

01 

01 

23 


C6F8 ee 09 22 2D C3 3E eC 32 


97 


► ところて FuzzyBASIC の予約 I 吾に BOX, CIRCLE, CPAINT, DOT, GRAPH, L 
INE, PAINT, PALETTE, POINT, SPLINE, WINDOW 力すあるのはグラフィックノレ 
- チンを追加するためなのですか。 増田秀樹 (20 ) 東京都 


3092 DB82C 


VC 30237 EEr* 


0 D 3 D 0 


> 0 C 3 5 A DC 


> D 0 2 E c F 


69F18861B1AC3344 
0CA22C 01803022 C3 


08080808080 SO808 
0011223344556677 
7777777 77? 777777 

cccccccccccccccc 


16874 DB 61372 B40D 
20C000C 311430003 

5A 61705 DE87C2E0C 
c 30070 CDF2C 33302 

9920 0D6B 0871170 01c 
4C3CD301C21FCC02 

D3FE2DD0DEA31D 51 
CCA01DC00F3C10EF 

8D 810816 A850A251 
B2C1B 0033 CF433FE 

0808080808080808 
000099 aabbccddeeff 
7777777777777777 

cccccccccccccccc 


*lEC0c243FDEn 


D0D6CBA 512 DD3CC 


i/A0c2c 2170 


"670CDCCI 


》 6 2 D c C 


5607 E4F7 


0 s 0 8 0S 03030 S0S0S 
8899AABBCCDDEEFF 

1* 1 1111111 n 111111 
cccccccccccccccc 


A 7 7 0 < 


> 4 B E 4 0 7 < 


4 
7 

D 

6 

5 

0 


7 5 0c 
13 c D 


8ED6E4EE76C3 

89D2460E6260 


H7CECEDC2FF 


0 E D 4 
0 7 F 0 


5 

1 0000000 EEF3D1228 

7 800000 195522 F123 
c 00000000 CE0CD23C 

00000059 E 9801501 

6 000000 C0102B0022 

9 000000 E1F80D6681 
1 000080 1ED00C0022 


08080 s 9808080808 
8899AABBCCDDEEFF 

2C - I 夂 


53C7BA249D9CAFE6 
8D3B 496183 FA3070 

7 7¢ 

7 7 n 

D D n 
D Dr 


V0FC79CFC3E09 


0808080808080888 
80099 AABBCCDDEEFF 
0 0 0 000600000 0 0 0 0 
cccccccccccccccc 




































99 CD C3 03 
22 0B C0 CD 
CC 34 CD 0B 
03 3E 9E C9 
87 80 C9 FE 
B0 C2 F3 D3 
D3 El FB 3C 
02 3E 98 F3 
00 3C DD 77 
C9 CD B0 C2 

ee ee ee 53 

20 4E 55 4D 
57 49 54 48 
43 4S 20 42 
00 59 FF 4F 
4E 20 45 4E 


SUM ： 6F FD 9B 55 2E 7C B2 28 : E0 

C980 CD 35 C4 21211711 F4 ：24 
C988 C9 CD 35 C4 21IF 0B 11 : EB 
C990 FB C9 CD 35 C4 21IF 0C ： D6 
C99811 FB C9 CD 35 C4 3A 04 ： D9 
C9A0 CA 3D C8 FE 05 38 02 3E : 4A 
C9A8 04 21IF 0B 01 08 80 F5 : CD 
C9B0 E5 CD 9F C3 El FI2C 2C : 3E 
C9B8 3D 20 FI2126 05 01 08 : A3 
C9C0 20 CO 40 C3 2126 09 81 : 41 
C9C8 08 50 CD 40 C3 C9 4A FF :3A 
C9D0 4F 43 4F 53 45 08 4A FF : C2 
C9D8 4F 48 4E 00 48 FF 49 2D : A2 
C9E0 53 43 4F 52 45 00 FF FB : 76 
C9E8 CD DD CB Dl 06 53 FF 54 : EC 
C9F0 4147 45 00 2D 3D 3B 2F : A1 
C9F8 2E 2C 00 20 20 20 26 20 : FA 


SUM ： B4 73 87 49 67 09 D7 A4 : E2 

CD00 4A 4F 59 20 42 4F 4E 55 ：46 
CD68 53 20 47 414D 45 FF FB ： 87 
CD10 00 43 FF 4F 4E 47 52 41 ： B9 
CD18 54 55 4C 4154 49 4F 4E ：70 
CD20 53 FF FB 00 20 20 26 20 : CD 
CD28 20 26 20 20 20 20 20 20 : 66 
CD30 20 20 26 20 00 49 FF 4E : 16 
CD38 20 4E 45 58 54 20 53 54 ：26 
CD40 4147 45 FF CD 20 FF 45 : FD 
CD48 56 45 52 59 20 42 414C : 35 
CD50 4C 20 00 FF 49 53 20 57 : 7E 
CD58 48 49 54 45 FF FB 00 53 ：77 
CD60 FF 4F 52 52 59 FF CD 20 : 37 
CD68 FF 4E 4F 20 42 4F 4E 55 : F0 
CD70 53 FF FB 00 FE 00 28 85 : 78 
CD78 2189 CD 18 03 l\ 91 CD : 11 


SUM: 41 AE BF AF 96 EC B4 43 : D6 

CD80 01 08 0811 0E C8 ED B0 ：8 D 
CD88 C9 8A 8C 8E 88 8C 88 8A : 93 

CD90 88 8E 8E 8E 8E 8E 8E :6 入 

CD98 8E 2B 06 FF 00 10 FD 7D : 48 

CDA0 B4 20 F6 C9 CD 03 C6 3E : 61 

CDA8 BE 32 8C C6 CD 06 C0 CD : 6C 

CDB0 74 CD AF 2A IF CB F5 E 5 ： D9 

CDB8 CB 47 28 85 01 08 8418 : E4 

CDC0 63 81 08 80 CD 9F C3 21 : DC 

CDC8 60 06 CD 99 CD El FI3C : A1 

► 私の 81 年式ターボにはあの懐し い Z18 と (• 
カカセット， FM 付き。ただ窀 M でなくガソ 


SUM: DC 55 04 98 B4 C0 44 26 


SUM ： 94 D7 E8 B8 60 53 D7 56 

CC80 D2 CC 21 08 6B 1A C5 D5 
CC08 E5 CD A7 CC 2119 96 CD 
CC10 99 CD El Dl Cl2C 2C 2C 
CC18 2C 1310 E9 3A D6 CC FE 
CC20 04 20 B9 3A D2 CC 21 D3 
CC28 CC BE 20 46 23 BE 20 42 
CC30 23 BE 26 3E 21 021111 
CC38 35 CD CD 35 C4 21 0B 13 
CC40 11 S3 CD CD 35 C4 06 0C 
CC48 78 E6 07 F611 D3 FI21 
CC56 67 0E CB 40 28 851111 
CC58 CD 18 031124 CD C5 CD 
CC69 35 C4 2180 00 CD 99 CD 
CC68 Cl18 DD 3E 11 D3 FI AF 
CC70 18 0B 21 07 «F 115F CD 
CC78 CD 35 C4 3E 01 CD 74 CD 


SUH ： 

90 

06 

38 

31 

C6 

93 

35 

8F : 

: 1C 

CA80 

El 

E5 

26 

18 

CD 

40 

C3 

El 

B5 

CA88 

2C 

7D 

KK 

11) 

20 

E7 

21 

01 

ED 

CA90 

01 

0 1 

00 

00 

CD 

40 

C3 

21 

F3 

CA98 

1C 

01 

CD 

40 

C3 

3E 

01 

32 

5E 

CAA0 

52 

C9 

21 

Ae 

00 

22 

54 

C9 

IB 

CAA8 

21 

ei 

04 

22 

ec 

CB 

2A 

0E 

57 

CABO 

CB 

06 

04 

E5 

C5 

7E 

CD 

85 

CF 

CAB8 

CA 

Cl 

El 

23 

22 

0E 

CB 

16 

9A 

CAC0 

F2 

2A 

ec 

CB 

2E 

01 

7C 

C6 

64 

CAC8 

03 

67 

22 

0C 

CB 

FE 

16 

26 

97 

CAD6 

DD 

2A 

0E 

CB 

11 

ID 

C9 

01 

D8 

CAD8 

88 

ee 

ED 

Be 

21 

0E 

14 

22 

0A 

CAE8 

IF 

C6 

21 

8E 

00 

ei 

08 

96 

B3 

CAE8 

CD 

88 

C3 

21 

62 

ee 

22 

54 

B1 

CAF0 

ee 

11 

10 

CB 

3E 

1 0 

32 

5D 

C9 

CAF8 

00 

DF 

95 

3E 

70 

32 

5D 

ee 

21 

SUH ： 

F8 

EE 

ID 

C9 

4B 

8B 

E6 

71 

: F9 

CB00 

21 

16 

C8 

66 

28 

36 

FF 

23 

：85 

CB08 

10 

FB 

C9 

00 

ee 

00 

ee 

60 

： D4 


100 Oh! MZ 1986.10. 


SUM ： E7 4C 

CAee 2e 26 

CA08 F5 C5 
CA10 CB 2D 
CX18 8718 
CA20 C3 Cl 
CA28 C8 F5 
CA30 9E ee 
CA38 E6 0F 
CA40 07 47 
CA48 22 0E 
CA50 C5 21 
CA58 27 C5 
CA60 E5 CD 
CA68 CD 40 
CA70 20 EE 
CA78 C3 El 


SUM ： 33 2F A2 47 A9 

C9ee ei e7 ee ia ed 
C968 69 C811ID C9 
C910 01 07 ee 1A ED 
C918 0A C8 C3 3E C8 
C920 1119 05 6211 
C928 C6 20 32 55 C9 
C930 54 C9 3C 32 54 
C938 20 0C 3A 52 C9 
C940 C9 3E A0 32 54 
C948 C9 3A 54 C9 47 
C950 40 C3 0117 A0 
C958 6811 CE C9 CD 
C960 23 0111 D6 C9 
C968 21IF 6311 DC 
C970 C4 2122 8711 
C978 35 C4 2122 0E 


AB 

22 

D8 

95 

CC 

55 

47 

29 

C5 

9A 

B8 

58 

02 

35 

EE 

34 

FA 


8C 46 E6 E8 0D 3A 4F : FI 

ee 03 F8 6F ee eF es : id 

F9 Fe 08 3C ee 63 C8 : F8 

F9 F8 08 F3 E0 7C F8 ：41 

14IB 14 05 8E 10 0B ： 72 
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C0 3F C8 El E8 78 78 :B7 
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U 69 85191413 65 :6A 
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FF F8 F8 3F F0 FF C8 ： D6 

79 E7 E8 3F 3F CF C8 : DB 
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SUM ： 94 2A 38 2A D7 2A 7D 29 : C7 

、う心臓が搭戟されています0もちろん屯磁メ 
リンで励きます。仆扑龍太郎 （28) 來京都 
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SUM ： 89 9182 84 64 3C 30 9A 


SUM ： 32 OO DD 93 C5 .95 FF 34 


SUM ： 64 53 3129 B2 25 F7 4C 


sum ： 96 oe Ae ee ao ee Ae 9D 


SUM ： 541132 7175 5F 79 4B : 
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SUM ： 84 69 79 4B 2F 17 8C 68 : EB 

02 0 6 07 0 0 0 6 0 0 06 0 0 0 5 0 0 : 18 
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0218 02 ee ei 06 ee 00 ee ee ：03 
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D248 ee ee ee 00 ee 00 00 ee ：00 

0250 ee ee ee ee ee 53 54 52 : F9 

D258 4E 47 34 06 00 0C 00 0C : El 

D260 00 0B 00 0B 00 0A 00 0 入 ： 2 入 

D268 00 09 00 09 00 08 00 07 ：21 

D2?e ee 06 oo 05 ee 04 ee 03 :12 
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SUM: 5B 63 3F 19 09 75 5B 72 ：61 
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SUM: 4B 20 19 00 79 45 67 4B : F4 
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SUM ： 96 DO 3510 FB B4 8E AD ：95 


SUM ： 09 28 68 6A 5 6 70 44 43 ： 50 
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SUM ： ID 60 60 4E 64 3C 37 08 :0A 
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► あなたが今，いちばん欲しいもの-う一む困った。まず「どこでもドア J に「タイム 
マシン J , いやドラえもんをもらったほう力す早いかな。まてまてモビルスーツもほしいしイク 
サーロボもいいな。飛行石，ドラゴンボール，赤城山23号にえ一と，ドリームノートもいい 
し，そうそう V MAX を忘れてた。 晴山佳彦（16> 千葉県 
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16 37 


DB88 

DB88 

DB90 

DB98 

DBA0 

DBA8 

DBB0 

DBB8 

DBC0 

DBC8 

DBD0 

DBD8 

DBRO 

DBE8 

DBFO 

DBF8 


DC00 13 37 
DC0813 37 
DC10 13 07 
DC18 0F 36 
DC2618 36 
DC281317 
DC30 OF 37 
DC38 0E 37 
DC40 13 37 
DC4814 37 
DC59 0E 17 
DC5813 37 
DC60 13 07 
DC68 0F 36 
DC7818 36 
DC78 0F 17 


DF80 

DF88 

DF90 

DF98 

DFA0 

DFA8 

DFB0 

DFB8 

DFC0 

DFC8 

DFDO 

DFD8 

DFE0 

DFE8 

DFF9 

DFF8 


DC80 13 3714 3614 3714 36 
DC8814 3713 3613 3713 36 
DC90 13 3714 3614 371136 
DC98113713 3613 3713 36 
DCA0 1317 7F 10 16 3616 37 
DCA816 3616 3716 8716 07 
DCB0 16171617161713 36 
DCB813 37 9F 36 0F 37 8F 36 
DCC0 OF 3716 0716 071617 
DCC81617161713 3613 37 
DCD0 1136113711361137 
DCD816 3616 3716 3616 37 
DCE0 18 3618 3718 3618 37 
DCE81136111711171117 
DCF0 1117113716 3616 37 
DCF816 3616 3716 0716 07 


SUM: 39 EA AB B4 44 9A 3E CA 


SUM ： 26 8E 28 97 24 DD 26 E7 


SUM ： 23 DE 26 B7 22 AE 28 A7 


mo OA 32 W 32 OA 12 08-12 
DA88 0712 0512 03 32 07 32 
DAO0 03 32 07 32 03 32 07 32 
D\98 03 32 07 32 08 32 03 32 
DAAO 08 32 03 32 00 32 03 32 
DAA8 00 32 03 32 05 32 08 32 
DABO 05 32 08 32 03 32 07 32 
DAB8 93 32 07 32 05 32 08 32 
DACO OA 32 OE 32 03 32 0? 32 
DAC8 03 32 07 32 7F 1013 36 
DADO13 3?13 3613 3713 0? 
UAD813 07131713 17131? 
DAE0 OF 36 OF 3718 3618 37 
DAE818 3618 3713 0713 07 
DAFO131713171317 OF 36 
DAF8 OF 37 OE 36 OE 37 OE 36 


SIM ： F8 FO 8B F2 

D9O0 20 07 20 06 

0908 20 03 20 02 

0910 00 OF 00 OK 

D918 00 OB 00 0A 

0920 00 07 00 06 

D928 00 03 00 02 

D930 66 07 40 D9 

D938 78 DE E6 DF 

D940 03 32 07 32 

D948 03 32 07 32 

0950 08 32 03 32 

0958 03 32 07 32 

1)9 6 0 OA 32 0 5 32 

D968 03 32 07 32 

0970 05 32 38 32 

0978 OA 32 05 32 

SUM ： IB A3 97 70 

D980 0712 0312 
D988 03 32 07 32 

1)990 03 32 07 32 

0998 08 32 03 32 

D9A0 00 32 03 32 

D9A8 05 32 08 32 

D9B0 03 32 07 32 

D9B8 OA 32 OE 32 

D9C0 03 32 07 32 

D9CS 03 32 07 32 

DSDO 03 32 07 32 

D9D8 03 32 00 32 

D9E0 03 32 07 32 

D9E8 0A 32 05 32 

D9F0 03 32 07 32 

D9F8 05 32 08 32 

St'M ： 4D 0 6 6 6 0 0 

DAOO OA 12 C812 

DAOS 03 32 07 32 

DA10 03 32 07 32 

DA18 08 32 03 32 

DA20 00 32 03 32 

DA28 05 32 08 32 

DA30 03 32 07 32 

DA38 05 32 ¢8 32 

DA10 03 32 07 32 

DA 48 03 32 07 32 

DA 5 0 03 32 07 32 

DA58 08 32 03 32 
DAGO 03 32 07 32 
DA68 OA 32 03 32 
D 入 70 03 32 0 7 32 
DA78 05 32 08 32 

SL'M ： 4B 0 0 6 6 0 0 


8B 

OE 

47 

48 : 

： 8D 

20 

05 

20 

04 

96 

20 

01 

20 

00 

86 

00 

OD 

00 

0C 

36 

00 

09 

00 

08 

26 

00 

0 5 

0 0 

04 

16 

00 

01 

eo 

00 

08 

CC 

DA 

A2 

DC 

AA 

46 

E0 

00 

02 

43 

03 

32 

07 

32 

DC 

03 

32 

07 

32 

DC 

08 

32 

00 

32 

DB 

03 

32 

07 

32 

DC 

0A 

32 

05 

32 

E6 

03 

32 

07 

32 

DC 

05 

32 

OS 

32 

E2 

OA 

12 


12 

A 9 

7F 

-1C 

13 

6 A : 

: 3D 

03 

32 

07 

32 

9E 

03 

32 

07 

32 

DC 

08 

32 

03 

32 

DD 

00 

32 

03 

32 

D6 

05 

32 

08 

32 

D8 

03 

32 

07 

32 

DF 

05 

32 

08 

32 

DF 

03 

32 

07 

32 

EA 

03 

32 

07 

3 2 

DC 

03 

32 

07 

32 

DC 

08 

32 

0 3 

32 

DD 

03 

32 

07 

32 

DA 

OA 

32 

05 

32 

El 

03 

32 

07 

32 

E] 

0 5 

32 

08 

32 

DF 

0A 

32 

05 

32 

E4 

4B 

20 

S3 

20 : 

: A1 

07 

12 

05 

!2 

60 

03 

32 

07 

32 

DC 

03 

32 

07 

32 

DC 

08 

32 

03 

32 

DE 

00 

32 

03 

32 

CE 

05 

32 

08 

32 

E2 

03 

32 

87 

32 

DC 

0 入 

3 2 

OK 

3 2 

ED 

03 

32 

07 

32 

DC 

03 

32 

07 

32 

DC 

0 3 

32 

07 

32 

DC 

08 

32 

00 

32 

DB 

03 

32 

07 

32 

Dr 

OA 

32 

0 ：； 

32 

E6 

03 

32 

07 

32 

DC 

05 

32 

08 

32 

E2 


4D 00 66 00 : 64 


SUM ： ED DE EE IB EF FE FI FE 


SUM ： 21 AC 20 C9 24 6E 29 49 


81 

26 

F7 

98 

28 

D1 

C3 

13 

21 

29 

D9 

D8 

F7 

98 

28 

C9 

BB 


SI M ： A3 CC BO DC 

DBOO OE 37IS 36 
DB0813 37 H 36 
DB1014 37 OE 36 
DB18 OE 17 OE 17 
DB2013 37 U 36 
DB2813 071317 
D!i30 OF 30 OF 37 
DB3818 3618 37 
DB40 OF 17 OF 1? 
DB4813 3714 36 
DB50 H 3713 36 
0358 13 3714 36 


19 SB BB AO : FA 


13 

37 

13 

36 

21 

11 

37 

14 

36 

29 

OE 

17 

0E 

17 

D9 

0E 

37 

13 

3G 

D8 

13 

37 

13 

07 

F7 

13 

17 

13 

17 

98 

18 

3G 

IS 

37 

28 

OF 

07 

OF 

07 

C9 

OF 

17 

13 

36 

BB 

14 

37 

14 

36 

29 

13 

37 

13 

36 

27 

14 

37 

11 

36 

26 


D8A0 00 
D8A8 00 
D8B0 00 
08B8 00 
D8C0 20 
D8C8 20 
D8D0 38 
D8D8 3$ 
D8E0 20 
D8E8 20 
D8F0 00 
D8F8 00 


BO 

4D 
3B 
9C 
33 
K 1 
55 
7D 
46 
DB 
99 
89 
48 
35 
BC 
BC 
BC 


SUM ： 

48 

A8 

45 

AD 

51 

D7 

51 

DD : 

: 38 

DD80 

is 

36 

18 

37 

11 

36 

11 

17 

0C 

DD88 

11 

17 

11 

17 

11 

17 

11 

37 

C0 

DD90 

16 

36 

16 

37 

16 

36 

16 

37 

32 

DD98 

16 

07 

16 

07 

16 

17 

16 

17 

94 

DDA0 

16 

17 

13 

36 

13 

37 

0F 

36 

05 

DDA8 

0F 

37 

0F 

36 

0F 

37 

13 

07 

EB 

DDB6 

13 

87 

13 

17 

13 

17 

13 

17 

98 

DDB8 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

DDC0 

18 

36 

18 

37 

16 

36 

16 

37 

36 

DDC8 

16 

: ぅ G 

16 

37 

18 

36 

18 

37 

36 

DDD0 

1A 

36 

1A 

37 

16 

36 

16 

37 

3A 

DDD8 

16 

36 

16 

37 

16 

36 

16 

37 

32 

DDE0 

16 

36 

16 

37 

16 

07 

16 

07 

D3 

DDE8 

16 

17 

16 

17 

16 

17 

13 

36 

DO 

DDF0 

13 

37 

0F 

36 

0F 

37 

OF 

36 

1A 

DDF8 

0F 

37 

16 

07 

16 

07 

16 

17 

AD 

SUM ： 

51 

A8 

51 

AD 

46 

89 

43 

8D ： 96 


DE00 1617161713 3613 37 : ED 


BA 

29 

27 

26 

24 

52 

D3 

DO 

1A 

AD 

ED 

IE 

32 

3A 

BF 

09 

D3 


SUM ： 5F E2 5F BA 

DE80 2D 12 2E 91 
DE88 2E 12 30 32 
DE90 32 32 3312 
DE98 2E 12 29 B1 
DEA0 2B B12C 12 
DEA8 2B 32 2C 12 
DEB0 30 12 2E FI 
DEB8 2B 12 2C 32 
DECO 2E 12 2D 12 
DEC8 30 32 3012 
DEDO 37 B13812 
DED8 36 313712 
DEE0 2E 312D 12 
DEE8 30 32 3212 
DEF0 33 FI2B 32 
DEF8 2C 32 2D 12 


DE08 

11 

3 6 

11 

37 

11 

36 

11 

37 

IE 

DE10 

16 

36 

16 

37 

16 

36 

16 

37 

32 

DEIS 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

DE20 

11 

36 

11 

17 

11 

17 

11 

17 

BF 

DE28 

11 

17 

11 

37 

16 

36 

16 

37 

09 

DE30 

16 

36 

16 

37 

16 

07 

16 

07 

D3 

DE38 

16 

17 

16 

17 

16 

17 

13 

36 

De 

DE40 

13 

37 

0F 

36 

OF 

37 

0F 

36 

l 入 

DE48 

0F 

37 

13 

0 7 

13 

07 

13 

17 

入 4 

DE50 

13 

17 

13 

17 

18 


18 

37 

FI 

DE58 

18 

36 

18 

37 

18 

36 

18 

37 

3A 

DE60 

16 

36 

16 

37 

16 

36 

16 

37 

32 

DE68 

18 

36 

18 

37 

1A 

36 

1A 

37 

:U: 

DE70 

16 

36 

16 

37 

16 

36 

16 

17 

12 

DE78 

2B 

32 

2B 

32 

26 

12 

2C 

32 

55 


7766667677776668 

3133331313313333 

O03E34EE33FO0F 4343 


} 1333333130 1C 


7776666667777666 
130 CO 333 CO 31331333 

6F 38006 A6663F 61600 
11 0 11 n n 1i n II 1 11 1 0 11 u n 


3 3 313 0 讀 


33383 FE34E3338F3 

11 J 1 J 1i n 0 0 n u 0 n 1i n n 0 n 

7776777777777677 

3313013331331301 

333833 E34EE338FF 

1 i 1 * n n 11 o 111 0 0 1 J n n 0 o 

6677776666767777 

3313313333131331 

333F83E34EE33F8F 

1i 1 1i 0 n 1 0 n n 0 0 1* n 0 11 0 


4C993F376C 98619 n 


E 2122222222222212 
D 3 B 1 u n 311311113 3 9 3 

D 

E 

E 

D 

F 

E 

D 2221222221112122 
7 131B 31113 B333F31 

F 

E 

B 


42223332c 

12 2 1c 


0322222233323222 


J 2232233 C 


*313931770 


J 2 2 3 3 3 3 C 


001122334455c 

FFFFFFFFFFFFFFFF 

dddddddddddddddd 


7777666667777666 

1331333330130333 

63F 38686666 F6316 
1101111111 1i 0 1111 

0808080808080808 

0011223344556677 

DDDDDDDDDDDDDDDD 

DDDDDDDDDDDDDDDD 


7 t 
3 < 


>6670 
> 3 CO1 C 


-776666 
13 0 3 3 3 3 


83FE34E 3330 OF 3431 
111i 0 0 J 1 0 n 1 n 1 0 n n 1J n 


2 12 2 1c 
«1 Do 1 * 1 nwr 0 


J 2 2 2 2 


F F F F 


•532337¢ 


22223212211220 oo 
111313931773 1FFF 

O0E9EBE 03530 EFFF 
3322222333 CO 32777 

2122222222222000 
3B111 31131113 FFF 


■522222c 


■581o 9 C 


O0COO4OD 9 51 coo 
000000000000 

> 8 00 o C 
J 3 3 2 C 

> E A 6 C 

V 0 o o A 

V 8 8 o A 

-332200 

4 F B 70 

> 0 0 OA 

> OO 8 0 C 


> 0 o o o o o C 


e:ECD 600 F FA 6 7 8813 
A9DDDDDDE4F92DC 


*AF 3333390 EArt 


WOOF 12292 ADC 


4 6 8 F 
2 2 A D 


6 6 7 7 
3 3 13 

3 3 3 F 

7 7 7 6 
3 3 0 3 

3 3 3 F 

6 6 7 7 
3 3 0 1 

3 3 3 3 

7 7 7 7 
3 3 3 1 

13 3 3 

0 8 0 8 
6 6 7 7 
B B B B 
D D D D 


■*2 9 4 419 


2222232122112222 
11 n 1 313 9 3 11 7 7 3 u 11 

DOOE9EBE 03530 EBG 
2332222233333222 

22122222c 

13 B n 1131 1 
> B D B D t 


6 

3 

5 

3 

5 

9 

4 
E 

8 

7 


— 777777c 


V o 0 o A 

丨 F F F C 

F F F C 
• 777c 

00000000000 

fffffffffff 

FFFFFFFFFF 

7777777777 

F F F F F F F 

ffffffft? 

7 7 7 7 7 7 7¢ 


0808080808080808 

0011223344556677 

eeeeeeeeeeeeeeee 


F F F F F 


F p F F o A 

F F F F o o 
7 7 7 7 0 0 

0 0 0OOO 
F F F F F o 

F F F F F o 
7 7 7 7 7 0 

OOO0O0 
F F F F F 0 


F 8 
7 0 


F F F F 

7 7 7 7 

0 8 0 8 0 3 

8 8 9 9 A A 
0 0 0 0 0 0 
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MZ-700 /1500 ， MZ-80 巳 /2000 /2200 72500 


北斗の男 

Nishiya Hisanori 

西谷久範 


丸や四角のキャラクタだけで描かれたケンタロウが宙を舞う。編集室でも話題騒然となっ 
た力作です0必殺のアクションと思わず笑ってしまう登場人物のセリフを存分に楽しんで 
みてください。 MZ の伝統は北斗2000年の歴史よりも奧深いのですよ。 



遊び方 


RUN するとどこかで見たようなプロロー 
ダが画面に流れ，そのあと説明が出ます。 
そして，なにかキーを押すとゲームの始ま 
りです。 

ゲームの内容は主人公ケンタロウを操り， 
いろいろな技を繰り出して敵を倒すのが目 
的です。敵の攻撃を受けるとケンタロウの 
体力は減っていき，0になると死んでしま 
いゲームオーバーになります。体力は減る 
だけでなく，ときどき乱数で増えたりもし 
ます。 

ゲームオーバーになってもう一•度プレイ 
したい場合は，のキーを押してください。 



キー操作 


MZ -700 版では カーソルキー と スペース 
キー， gi ， 同， a の8つの キーを 使います。 
日日で前後に移動し， II で前(画面では左） 
にジャンプ， u で後ろ（画面では右）にジ 


ャンプです。 MZ -80 B / 2000/2200/2500版で 
はテンキーの2,4, 6,8を使用します。 

そして思3で技を選び， スペースキー 
で相手に技を繰り出してください。のキ 
一を押すと，必殺のニ シシン クウ ハ （ス ペー 
ドと戦うときに必要）を使うことができま 
す0 


技について 

技は，8種類用意されています。それぞ 
れ必要な間合いが違いますから，タイミング 
をしっかり練習してください。敵によって 
は効かない技もありますが，決まりさえす 
れば相手を一撃で倒すことができます（正 


拳突きと足蹴りを除く）。そのときの敵の情 
けないセリフもいくつか用意されています 
ので楽しんでください。 



下っぱ……正拳突きと体当たりで攻撃して 
くる。弱いが，倒しても倒しても出てく 
る量産型。こいつを3人倒すと，次の強 
敵が出現する。体力が残り少ないときに 
現れて，たまたまこいつにやっつけられ 
ると，弱い〈せに生意気なセリフを吐く。 

スペード……ボーガンを持っていてときど 
き矢を放って〈る。矢は目には見えない 
が，音がするのですぐに回のキーを押し 
ニシシンクウハで矢を防ぐようにする。 
矢が1発でも当たるとケンタロウは死ん 
でしまう。油断できない相手。 

クラブ……鎌使いの達人。すばやく近づい 
て攻撃し，またすばやく離れるのを繰り 



ラオウ……とにかく強い。ケンタロウの技 
もほとんど通じない。特にシンケッシュ 
ウを突かれると，体力は減らないが残り 
3日（ゲーム中では3分）の命となる。 
ただ，あることをすればその秘孔を打ち 
破ることができる。 

シュウ……敵のなかでいちばん強い。技も 
数多く持っている。 

これらの敵はランダムに出現して〈るの 
で，強い敵ばかり出てきてすぐにゲームオ 
—バーに なってしまうこともあります。 


返すテラジのようなやつ。 

ダイヤ……棒使いの達人。離れたところか 
ら，長い棒で攻擊してくる。 

ハート . かの有名なハート様。わけのわ 

からない武器を持ち，自分の血を見ると， 
「いてえよう」のセリフを連発して狂った 
ように襲いかかってくる。特異体質で， 
ケンタロウのホタト神拳をもってしても 
有効な技がほとんどない。 

ジヤギ……ホクト神拳とナント聖拳を使い 
分けるが，どっちつかずの修業をしてき 



移植について 


このプロダラムではメモリをほとんどぎ 
りぎりまで使っていますから， MZ -1500 の 
QD - BASIC では動きません。 MZ -80 K / C /12 
00の方は 48 K ならば，すべての POKE，CO 
LOR , USR を削除して REM 文中のコメン 
卜を削ればなんとか納まるで'しよう。 MZ - 
2500， Xlturbo ではメモリに余裕があるの 
で移植は楽ですが，フリーエリアの少ない 


たためにそれほど強力ではない。しかし， 
必殺のホクトラカンゲキには注意が必要。 
ユダ……ナント六聖拳のひとり。ナントコ 
ウカクケンは攻擊範囲が広い。 

レイ……ナント六聖拳のひとり。ナントス 
ィチョウケンで相手を切り刻む。そのた 
めに容易に近付けず，かなり手強い。 


XI については各自で工夫してみてください0 
このプログラムでは，リアルな音を出す 
ために， $ B 16 番地にデータを書き込んで， 
USR (68) で音を出し， USR (71) で音を止 
めるということをやっています。データの 
値が小さいほど出る音は高くなりますので 
移植の際には注意してください。 
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スト 1 北斗の男 MZ -700/ 1500 (700 用 S - BASIC ) 


" ； WA$ (W) 


= 1 000* 1 1 ： GOTO6990 


10 GOTO7940 

20 REM Hi クキ 3 ウノヒ 3 ク / ■■ 

30 C0L0R,,7:CURS0R22,22:PR1NT~ フサ*， 

40 CURSOR22, 20:PRINT~ ラキ = " ； HA$ (L) 

50 CURSOR 1, 22 ： PRINT"SC0RE ； SC*10 
60 CURSOR 1,20:PRINT"9 ィリ 3 ク ノ； KT;~ 

70 XT-VAL (TI$) ：IF L =1 THEN HN-1 
g0 IF JU>0 THEN 4770 
90 IF KT<-0 THEM 120 

100 IF (RT-1)* (XT>300) THEN RT-2 ： GOTO120 
110 GOTO140 

120 REM Hi ； » イリ 3 ク IT ナイ WM . 

130 COLOR,,2 ： CURS0R 8,20：PRINT 0 00 0 0 ":GOTO7090 
140 AT = 0：REM 
150 Ql-INT (20*RND (1))+1 
160 Q2-INT (10*RND (1))+1 
170 IF (Ql = l)* (NE<>0) THEN KT-KT+50*Q2 
186 IF NB<>1 THEN 200 

190 IF NJ»X THEN I 1=INT (5*RND (1)) + 1 ： BB- 
200 COLOR,,5 ： CURS0R X,15：PRIHT K$ (H) 

210 IF TX<3 THEN TX-3 
2 20 COLOR,,3 ： CURSORTX,14：PRINT S$ (L) 

230 IF TX-1»X THEN KT=KT-10*L ： MUSIC"-»D-#C' ： GOSUB7010 
240 REM ■キ- ニュゥリ 3 ク ■ 

250 GET AS 

260 IF A$-" 

278 IF A$=" 

280 IF A$-" 

290 IF A$»" 

300 IF A$-' 

310 IF A$〆 

320 IF A$〆 

330 IF 入 $-1 

340 IF l? = 9 THEN W = 

350 IF W-0 THEN W=8 
360 IF X>-36 THEM X-36 

370 IF X<=4 THEN X=4 

380 GOTO410 

390 REM ■■■ゲンノコウ n A ーチン a ■■ 

400 ON W+2 GOTO 410 , 3720,3720,3810, 5800,4040,4210, 5040, 5300 , 5420 
410 REM ■ ラキノコウケ、ル-チン八 ■■ 

4 2 0 COLOR, , 3 ： CURS0RTX, 14： PRINT S$ (L) 

430 IF L<>1 THEN 460 

440 IF TK>2 THEN ME-IHT (9*RHD (1))+1 

450 IF NE-0 THEN 480 

460 REM H iW ィカ*ィ麵 

470 TW-NE ： L-NE+1 ： 0N HE GOTO 840,98 8,1230 ,1510, 1680,1880,2260 ,2590, 3360 
480 REM 

490 IF TX<3 THEN TX-3 

500 IF (X-TX)<0 THEN ZG-2 ： G0T0528 

510 ZG--2 

520 Sl-IHT ( (ZG+6) *RMD(1))+1 

5 30 S2-IHT ( (-ZG+6) *RND (1))+1 
540 IF HY-1 THEN 560 
5 50 TS- 300* (HE+1) : MY 
560 
570 
580 
590 
6ee 
610 
620 

639 

640 


注） MZ-1500 用 QD-BASIC では動きません。 
MZ-700 用 S-BASIC をご利用ください。 


THEN X-X-l ： KT-KT- 
THEN X=X+1 ： KT-KT- 
THEN W=W+1 
THEN S=W-1 
THEN 3900 
THEN 390 
THEN JT-1 
THEN JT-1 


G0T04758 

GOTO4960 


THEN TX-TX+1 ： TS-TS- 
THEK TX-TX-1 ： TS-TS- 


IF TX<3 THEN TX=3 
IF TS<-0 THEN 690 
IF (Sl<-3) * (TX<33) 

IF (S2<-3) * (TX>0) 

IF S2>-5 THEN 630 
IF (KK->3) * (KY=1) THEN 820 
GOTO20 

REM ■ セイケンデキ（ヲキ） ■ 

IF JT-1 THEN GOTO20 
650 COLOR,,3 ： CUES0R TX+2,15 ： PR1NT* — T:TS = TS-I 

660 IF ( (X-TX)>0)* ( (X-TX)<4) THEN HUSIC*#C' ： KT-KT-20*L ： GOSUB7010 
6 7 0 CURSOR TX+2,15 ： PRINT" - 

689 GOTO20 

690 REM M ラキシン厂 WM 
700 IF JT-1 THEN GOTO80 

710 CURSOR TX, 14：PRIKT S1 $ ： MUSIC~-D' 

720 COLOR,,5 ： CURS0R X,15：PRINT K$ (N) 

730 COLOR, , 2:CURS0R TX,17 ： PR I NT^XMA" 

740 COLOR,,7 ： CURS0RTX-1,15:PRINT 卜*ザパ 
758 FORI- 010250 0：MEXT 
760 TN-TN+1 

770 R2-INT (3*RND (1))+ 1 ： SC-SC+2 0*R2*L 
780 CURSOR TX, 17 ： PRIHT' " 

790 CURSOR TX-1, 15 ： PRINT" • 

808 TX-1HT(16*RND(1))+1 
810 IF TX<-3 THEM 800 

820 IF L<>1 THEN TN = 0 ： TW-0 ： L-1：HE - 0 ： MY-e 

830 TS-300 ： GOTO418 

84 0 REM ■ スぐ - 卜 * ■ 

850 HN-1：IF YAM THEN 890 
860 R7-INT (4*RKD (1)) + 1 
870 IF R7-1 THEN 890 
880 G0T054e 
890 YA-YA+1 

gee if (ju-i) + (ju-2) then ya-b:goto920 

910 FORI = 0TO8 ： POKE$B16, I ：USR (68) ： HEXT：USR (71) 

9 20 IF (YA>3) + (YA-3) THEN 960 
930 Gl-INT (6*RND (1))+1 
948 IF Gl<3 THEN 20 
950 GOTO480 

960 COLOR,,2 ： CURS0R X,14：PR I NT*>-♦« " 

970 FORI=0TO800 ： NEXT ： HN=1 ： KT-0 ： GOTO20 
980 REM ■ イヤ ■ 

990 R8-INT (4*RND (1)) : HN=1 
1000 IF R8-1 THEN B0=1 

1010 IF R8-2 THEM BO-2 

1020 IF R8-3 THEN B0=3 

1 030 IF (R8-0) + (JT-1) THEN 480 

1646 R9- INT (18*RND (1))+1 
1050 IF R9=1 THEK 1070 
1060 G0T01 100 

1 070 COLOR, , 7 ： CURS0R TX-2,12 : P R I NT** コパ ウ ’iT ■: F OR い 0TO1 0 0 0 : NEXT 
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► アルファは簡単すぎる。 2 時間で解けた。ついでにストーリーが 4 流 SF だ0もつとス 
、ーリーを，ストーリーを！ おお，タイムシークレット III よ！ どこにいるの？ 

堀幸司 （ 16) 福岡県 






1080 CURSOR TX-2,12:PRINT-? キレ A* !! " : FOR I=0TO1250 ： NEXT ： COLOR,,3 
1090 CURSOR TX-2,12 ： PRINT- " 

1100 CURSOR TX+2,14：PRINT B0$ (BO) 

1110 FOR 卜 0TO100:NEXT 
1120 IF (X-TX)<8 THEN 1140 
1130 G0T01 180 
1140 IF JU=1 THEN 1186 
1150 IF JU=2 THEN 1180 
1160 IF (X-TX)<1 THEN 1180 

1170 COLOR, , 7 ： CURS0R X ， 12:mHT 、， キ "：KT = KT - 4 5 0 : MU S 1 C " - C - D - D * : GO SUB7 0 1 0 
1186 CURSORTX+2,14 ： PR1KT BK$ (BO) 

1190 CURSOR X,12 ： PRIHT* * 

1200 H1 = IHT (6*RND (1)) 

1210 IF Hl<4 THEN 20 

1220 GOTO 480 

1230 REM ■ クラ r ■ 

1 240 COLOR" 3:CURS0R TX,14：PRINT S$(L) 

1 2 50 KM-INT (2*RND(1)) : HN-1 

1260 IF (KM-1)♦ (JT-0) THEN 1280 

1270 GOTOS40 

1280 P = 1HT (6*RND (1)) + 1 

1290 IF TX+P>E7 THEN P-0 

1300 F0RI=1T0P 

1310 CURSOR TX+I,14：PRINT S$(L) 

1320 NEXT 

1338 TX-TX+P:COLOR， ， 3 

1340 CURSOR TX+2,14 ： PRINT"' 

1 350 CURSOR TX+Z, 15 ： PRIHT"A" 

1360 CURSOR TX+2,15 ： PRINT' ~ 

1 370 CURSOR TX+2, 16 ： PRINT"A" 

1388 CURSOR TX+2,16 ： PRINT"' 

1390 IF (X-TX-2) + (X-TX -1) + (X-TX-0) THEN AT-1:GOTO141 0 

1410 COLOR^f 7 : CURSOR X ， 12:PRINTH - :FORI-3TO20:POKE$B 16，1 :IJSR(68) : NEXT ： USR (71)*• 


rrOSS 

rrfl& 


•: P0KE$B16,RND (1)*2：USR (6 8) 

* ： P0KE$B16,RHD (1)+ 1：USR (68) 

- ： P0KE$B16,RHD (1) : USR (68) 

- ： P0KE$B16,RHD (1)*1.2 ： USR(68) 


KT-KT-500 

1 420 CURSOR X,12 ： PRIHT <， " : GOSUB7010 
1 430 COLOR,,3：CURSOR TX,14：PRINT S$ (L) 

1440 F0RI=1T0P 

1450 CURSOR TX-I,14 ： PR1HT S$ (L) 

1460 NEXT 
1470 TX-TX-P 
1 480 Ul-IHT (6*RND (1))+ 1 
1490 IF Ul<3 THEN 20 
1500 G0T0488 
1510 REM ■ 八 - 卜 ■ 

1520 AT-0 ： HN-1 

1530 COLOR,,3 ： CURS0R TX, 14：PRINT S$(L) 

1540 R5-IKT ((10-UY) *RND (1))+ 1 
1550 UY-UY+1 
1560 IF UY>8 THEN UY=8 
1 5 70 IF (R5=l)* (JT-0) THEN 1590 
1580 GOTO480 

1 590 COLOR,,3 ： R1-IHT (3*RHD (1))+1 
1 600 CURSOR TX+2, 14:PRIN*r/H>C 

1610 IF R1=1 THEN COLOR,,7:CURSOR TX-1,12:PR I NT* イヲ 13*■:FOR I•0TO7 50 :NEXT 
1620 CURSOR TX+2,14 ： PRIKT' □ - 

1630 COLOR,,3:CURS0R TX+3,15 ： PBINT- — K :FOR I-0TO5 0 0 :NEXT 
1648 CURSOR TX-1,12 ： PRIKT- ' 

1 6 50 IF (X-TX<1) + (X-TX>3) THEN 1670 
1660 KT-KT-850:MUSIC _ -#E#G- : GOSUB7010 
1670 CURSOR TX+3,15 ： PRINT" " ： GOTO480 

1680 REM ■ レイ ■ 

1696 HN-3：IF JT-1 THEN 480 
17 00 Y2-INT (3*RHD (1))+1 
1710 IF Y2-1 THEN 480 
1 720 FOR い 8T03:C0L0R,,3 
1730 CURSOR TX+2,14 ： PRINT" 

1740 CURSOR TX+2,14 ： PRINT' 

1 7 50 CURSOR TX+2, 15:PRINT* • 川 BBS 
1760 CURSOR TX+2,15 ： PR I NT* J J J D 
1770 HEXT：USB (71) 

1780 IF (X-TX>0)* (X-TX<7) THEN 1800 
1790 GOTO1850 

1800 COLOR" 3:CURS0R TX,14iPRIHT S$ (L) :COLOR, ， 5:CURSOR X,15：PRIHT KS (H) 

1810 COLOR,,7 ： CURS0R TX,12:PR 1 NT - ナント -: FOR I-0TO7 50 :NEXT 
1 820 CURSOR TX-2,12:PRINT* スイチ * ウケン **: FORI-0TO 1 50 0 :NEXT 
1830 CURSOR TX-2,12 ： PRINT' ' 

1840 KT-KT-1500 ： GOSUB7010 ： GOTO20 
1850 Yl-INT (6*RND (1))+1 
1860 IF Yl<3 THEN 20 
1870 GOTO480 
1880 REM ■ シ y ■ 

1890 HN-2 ： IF JT-1 THEN 4S6 
1900 Y2-IHT(7*RHD(1)) 

1910 IF Y2>-1 THEN 480 

1 9 20 IF (X-TX=3) + (X-TX-4) + (X-TX-5) THEN F-l ： GOTO1950 
1930 IF (X-TX-2) + (X-TX-3) + (X-TX-4) THEN F-2 ： G0T01958 
1940 GOTO480 
1950 Yl-INT (4*RND (1)) 

1 9 60 * IF Yl=l THEN 460 

1970 IF F=2 THEN 2140 
1980 REM ホクトラ JT ノケ*キ 

1990 IF TX>27 THEN 1930 

2000 COLOR,,3 ： TX-TX+1：CURSOR TX,14:PRINT S$(L) 

2010 COLOR" 7:CURS0R TX,12 : PBI NT a” ！ ！ •： COLOR,,1 
2020 FORI-0TO5 ： POKE$B16,I*12 ： USR(68) 

2039 CURSOR TX + 2,14 ： PR I NT'A" : CURSORTX+2,14 ： PRINT •* 

20 40 CURSOR TX + 2,15：PR I NT * --'：CUR SORTX+2,15 ： PRINT" 

2 650 CURSOR TX+2, 16 ： PRIKT-\/" : CURSORTX+2,16 ： PRINT'* 

2060 CURSOR TX,12 ： PRIHT* ' 

2070 COLOR,,5:CURS0R X,15：PRINT K$(H) 

2080 CURSOR TX,14 ： PRINT" OSOB tZZZS EZXB * ： TX-TX+7 
2 0 9 0 COLOR,,3 ： CURS0R TX,14：PRINT S$ (L) 

2100 COLOR,,7:CURS0R TX,12 ： PRINT* ホクト " : FOR I-0TO 5 0 0 ：NEXT 
2110 CURSOR TX, 12:PRINT ••ラ J ン V キ ■ :FOR い 0TO 1 500:NEXT 
2120 CURSOR TX,12 ： PRINT _ ■: KT-KT-900 

2130 COLOR,,7 ： CURS0R X,12：PRI NT *7!! ■: FOR I -0TO1 0 00 ： NEXT：CURSOR X,12 ： PRIHT~ 
':G0T028 

2149 rem mm シ入 v ノナントセイケン mm 


(シ y ) 


" : NEXT：USR (71) 


► なんで私が MZ- 2000 用ポイボスを持っておるのかとゆ一と，連日ソフト メーカー 本社に 
馆話攻撃して試作品を讓らせたからである。まがいものをつかまされたのではないかとゆ 
一人もいるかもしれないが， LOD の 46 分テープにペイント マーカー で “ MZ- 2000/2200 用 
ポイボス ” と書いてあるからには純正品であろう。ポスター2枚とバグ1 コ， もれなくつ 
いてきました。 乃一俊祐 （ 17 ) 京都府 


特集北斗の男 105 
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2150 COLOR,,3 ： CURS0RTX,14：PRINT S$ (L) 

2166 COLOR,,5:CURS0R X,15：PRINT KS (N) 

2179 COLOR,,3 ： TX-TXM ： CURS0RTX,14：PRINT S$ (L) 

2188 COLOR,,7 ： CURS0R TX+1,12：PR IHT _ a 7 ,!"：FOR I -0TO5 00 ：NEXT 

2199 COLOR" 3:CURS0R TX+2,15 ： P8IHT'- ■: COLOR,,2:CURSOR X+2, 15：PRINT I" : FORI = 50T 
O0STEP-2.3 ： POKE$B16,I ： USR(68) : HEXT：USR (71) 

2200 HN«3 ： KT-KT-400 

2219 CURSOR TX+1,12 ： PRINT* - 

2 2 2 0 COLOR ，， 7:CURS0R X,12:PRI NT~ コ * フフ ！-: FOR い 0TO1 00 0 :HEXT 
2230 COLOR,,5 ： CURSORTX+2, 15 ： PRINT" | : CURSOR X,15：PRINT K$ (N) 

2240 COLOR,,3 ： CURSORTX,14：PRINT S$ (L) 

225 0 CURSOR X,12：PRINT * ••: X = X-1:GOTO20 

2 2 6 0 REM ■ jy ■ 

2270 HN-3 ： IF JT-1 THEN 480 

2280 Y2-INT (7 本 RND(1)) + 1 

2290 IF Y2-1 THEN 2510 

2300 IFTX->23THEN 2530 

2318 IF Y2>-5 THEN 480 

2320 SQ-INT (15*RND (1))+1 

2330 IF X>34 THEN SQ-35-TX 

2340 FORI-0TO2 ： COLOR,,3 

2350 CURSOR TX+2,15：PR I NT * rr * ： MUSIC* + »C' 

2360 CURSOR TX+2 ， I 5:PR I NT つハ 

2370 CURSOR TX+2, IS ： PRINTS^ ： MUSIC - +#C* 

2380 CURSOR TX+2 ， 15 : P RI NT - 、ぃ ：} iEXT 

2390 COLOR,,6 ： FORI-0TOSQ ： POKE$B16,INT (RND (1)*58) ：USR (68) 

2400 CURSOR TX+3+1,17：PRI NT *ff"：NEXT ： USR (71) 

2410 IF (TX+SQ+2>-X) * (TX<X) THEN COLOR，，7 : CURSOR X,12 ： PR ! NT ' FOR I - 0TO 7 5 0 ： HEX 

T ： GOTO2430 

2420 GOTO2470 

2430 CURSOR X,12 ： PRIHT" ■•: KT-KT-650 

2440 COLOR,,7 ： CURS0R TX,12：PR I NT"t^h*：FOR I -0TO 500 ：NEXT 
2450 CURSOR TX- 2, 12:PR I NT. コウ J クケン ' : FOR I-0TO1090：NEXT 
2460 CURSOR TX-2, 12 ： PRINT" - 

2470 FORI-0TOSQ 

2480 CURS0BTX+3+I, 17 ： PRIHT* ■: NEXT 
2490 COTO20 

2500 Y3-INT(2*RND(1))+1 
2510 IF TX<7 THEN 2550 
2520 IF Y3-1 THEN 20 
2530 FORI-0TO2 

2540 COLOR,,3 ： CURS0R TX-I,14：PRIHT SS (L) ： NEXT ： TX-TX-I ： GOTO2 0 
2550 Y3-INT (2«RND (1)) + 1 
2560 IF Y3-1 THEN 20 
2570 F0Rl:eT02 

2580 COLOR, ， 3:CURS0R TX+I,14：PRINT S$ (L) : NEXT ： TX-TX+1 : GOTO2 0 
2590 REM ■ シ > ゥ ■ 

2660 HN-3 ： IF JU<>0 THEN 480 
2610 IF Ul-1 THEN 809 
2626 Y3-IKT (7*RHD (1)) + 1 
2630 IF Y3>1 THEN 2650 
2640 GOTO 480 
2650 ZX-X-TX 
2660 IF ZX-7 THEN 2710 

2678 IF ZX-5 THEN 2840 

2680 IF ZX-2 THEN 3150 

2690 IF ZX-3 THEN 2990 

2700 G0T0489 

2710 rem mm ナントセイケンノ “ ク mm 

2729 COLOR,,3：IF TX>18 THEN 480 

2730 CURSOR TX,1S：PRINT K7$ 

2740 CURSOR TX+2,13 : PR I NTT 0[E 

2750 CURSOR TX+2,13 ： PR I NT" QQ [ED OB DEED ' ： FOR I ■ 0TO15 ： NEXT 


2760 CURSOR TX+4,10:PR 1 NT ■ ヒ a ゥ！ 

2770 CURSOR TX+4,12：PRIHT 
2780 CURSOR TX+4, 12 ： PRINT _ COD EE 

em ShB 


iDDom/ziBa/ 

CEB QQQ DEBS 

Hoi—<oass<' 


: P0KESB16,2 ： US8(68) 



2790 CURSOR TX+4,12 ： PR I NT" 6| 

XT 

2800 CURSOR TX + 4, 12:PRIN*T ED 
2810 CURSOR TX + 4, 10:PR1NT- •: USR (71) 

2826 TX-TX+10：CURSOR TX,14：PRIHT SS (L) 

2830 KT-KT-508 ： GOT03358 
2840 rem mm ナント a ウケ • ンシ 3 ウ mm 
2850 COLOR,,3 ： CURS0R TX-2,15：PR I KT" JJJJ •: MUSIC*R* 


P0KESB16,1 ： US8(68) : FORI-0TO5：NE 


2868 

CURSOR 

TX-2,14 

PRWT 」 e J 

■: HUS 

1C*+#C' 

2870 

CURSOR 

TX-2,13 

PRINT' JJ JJ 

-：MUS 

IC*+#D* 

2886 

CURSOR 

TX-2,13 

PRINT- 

' : MUS 

IC*+#E" 

2890 

CURSOR 

TX-2,14 

PRINT - 0 

■ ：MUS 

IC*+8G" 

2900 

CURSOR 

TX-2,15 

PRINT* 摄 

-: MUS 


2910 

CURSOR 

TX,15：PRINT K7$ 




2920 TX-TX+3 ： KT-KT-1000 
2930 CURSOR TX,14：PRINT S$(L) 

29 4 0 CURSORTX+2,14：PR I NT"--O：•" 

2950 COLOR, , 7 ： CURS0R X,12：PR I NT - 7!!" : FOR I -0TO1 0 00 ： NEXT ： COLOR,, 2 
2960 CURSOR TX+2, H ： PRINT" O ••: CURSORX, 12 ： PRINT _ ■: COLOR, , 7 

2970 CURSOR TX-1,12：PR I NT " ナント *：FOR I = 0TO500 ： NEXT 

2980 CURSOR TX-2,12:PR I NT - 3 ウケ•ンシ s ウ - :FOR I»0TO500 :NEXT:CURSORTX-2,12 ： PRIHT' 
■ : G0T03358 

2990 REM mm レククウ : T wun 

3006 COLOR,,3 ： CURS0RTX,15：PRINT K7$ 

3010 COLOR, ， 7:CURS0RTX,12 : PR I NT 、 t-! ! ■ 

3620 FORI-9T01S ： COLOR,,3 ： POKESB16, (RND (1 )*20)+280 ：USR (88) 

3030 cursortx-1,m ： print _ /OBeiil DB] CB ' 

3040 COLOR,,7:CURS0R X+3,12 ： P81NT"i* 7!* ： COLOR,,3 


3056 

CURS0RTX-1, 

,14 

PRI 

NT" 

3960 

CURSORTX-1, 

14 

PRI 

Nf 

3970 

CURSOR X+3, 

,12 

PRI 

NT" 

3080 

CURS0RTX-1, 

14 

PRI 

NT" 

30 9 0 

CURS0RTX-1, 

14 

PRI 

NT" 


12 ： PRINT"i* 7!* : COLO 

/me 級 ~~ebb m 

QQD EE 


3100 NEXT：USR (71) 

3110 CURSOR TX,12 ： PRINT" 一 

3120 CURSOR TX,14：PRINT S$(L) 

3130 COLOR,,7:CURS0R TX,12 ： PRINT* ナント 
3140 CURSOR TX-2, 12:PRINT •• レパ v ク W 
■: KT-KT-800 ： GOTO3350 
3150 REM mSk リ 7 キャククウ : T msk 
3160 COLOR,,7 ： CURS0R TX,12 ： PR1NT" 

3170 COLOR,,3 ： F0RI* 01010 
3180 CURSOR TX+ 1,13 ： PRINT _ | | 


-: FOR レ 0TO500:NEXT 

FORl-0TO800 ： NEXT ： CURSORTX-2,12 ： PR1HT* 


セイ “ • ！ • 

iiiMiam 


iuxu / r 

s つていま • 


： P0KE$B16,200 ： USR(68) 


►私は怒っています！ 9 月号の高速グラフイックパッケージになぜ MZ -1500 がないのだ！ 
とはいえ本文中にもあるように，.いずれサボートしてくれると信じてます。 

石田勝利 （24) 神奈川 m 








3190 
3290 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3360 
3310 
3320 
3336 
334 0 


tea m os ossa 
/mn /ticaroeaaa/ 

ESBDOB DD EZED 


I* ： P0KE$B16, 150：USR (68) 


CURSOR TX+1,13 ： PRINT" 

CURSOR TX+1, 13 ： PRINT"| 

CURSOR TX+1,13 ： PRINT~ _ 

CURSOR TX+1,13: PRINT-| B3 _JXBSO|eQCB/ I' ： P0KE$B16, 100：USR (68) 
CURSOR TX+1, 13 ： PRIHT" [E OES CS OD " 

CURSOR TX+1, 13 ： PRINT"| IB {BiNOESPNOCBS/ I* ： POKE$B 16, 6 0 ： USR (68) 
CURSOR TX+1, 13 ： PRIHT ， GP QB 033 DEBT 

CURSOR TX+1,13 ： PRINT 1 EO _JEGSKOIdBBS/ I * ： P0KE$B16,90：USR (68) 

CURSOR TX+1,13 ： PRINT" E C CP aB QQ OBHB 

CURSOR TX+I, 13 ： PRIHT"| /USSS r iPOKESBie, 155 

CURSOR TX+ 1 , 13:PR!Nr. QBZ3 OGB E C IBS 

CURSOR TX+ 1,13 ： PRIHT-| | QQQ | EOMSM 90 JB/ : POKE $B 16 ， 187 

CURSOR TX+1, lS^RINT* US EXS9 CD IBS " ： NEXT：USR (71) 

CURSOR TX,14：PRIHT S$(L) 


••: FORI»0TO750 ：NEXT 

FOIU-0TO80 0:NEXT:CURSOR TX-1 ， 12:PR INT~ 


COLOR, , 7 ：CURSOR TX,12 : PR I NT •"ナント 
CURSOR TX-1, 12:PRINT-|J? キャククウ : T 
.. : KT»KT-900 
3350 GOSUB7010 ： GOTO20 
3360 REM Wtk ラオ 1 ) Hi 
3370 HN-2：IF JU<>0 THEN 480 
3380 FX-INT (5*RKD(1)) + 1 
3390 ON FX GOTO 480,3500,3610 
3400 REM 圓ラオウノコウケ • キ 1 圓 
3410 IF (X-TX-3) + (X-TX-4) THEN 3430 
3420 GOTO480 

3430 FORI-0TO30 ： POKE$B16,I + 60*RND(1) : USR (68) 

3440 COLOR,, 7 ： CURS0R TX,12 ： PR I NT"7?!~ 

3458 COLOR, , 3 : CURSORTX+2,15 ： PRINT"—~iB29~ 1 " 

3466 CURSOR TX + 2,15 ： PRIHT" -: KEXT：CURSOR TX,12:PR INT~ "：USR (71) 
3470 COLOR, , 7 ： CURS0R X-1,12 ： PR I NT" 7* 7! ** ： FOR I - 0TO12 0 0 ： NEXT 
3480 CURSOR X-l,12 ： PRIHT" * 

3490 KT-KT-1 100 ： G0T029 

3580 REM 圓ラオウノコウ V キ 2 瞧 

3510 IF X-TX<>2 THEN 480 

3520 COLOR, , 3 ： CURS0R TX,15：PRIKT K7$ 

3530 CURSOR TX, 14 ： PRIHT* OCOaVEBBET T ： MUSIC'RR' 

3540 CURSOR TX,14 ： PRINT" COB OB 003 ' 

3550 COLOR,,7 ： CURS0R TX,12 ： PRINT"7?r!!" _ 

3560 COLOR, , 3 ： CURS0R TX, 14 ： PRIKT* COB/W/IBBM/TIB ": MUSICB - 
3570 CURSOR TX, 14 ： PRINT' CD BO CDS " : MU S I C"-#F-#C-#G' 

3580 CURSOR TX,12:PRINTT - 

3590 CURSOR TX,14：PRINT S$ (L) 

3600 GOSUB7010 ： KT-KT- 1 300 ： GOTO20 
3618 reh 圓ラオ ウノコウ ケーキ 3 mm 
3620 IF X-TX<>2 THEN 480 

3630 CURSOR TX+2,15 ： P R I NT^DDr- - : MUS I C " - E-D " ： FOR I - 0TO80 0 ： NEXT 
3640 COLOR,,7 ： CURS0R TX-2,12 : PHINT“ ヒコ ウノ ヒトフ-: FOR 卜 eTO750 : NEXT 


3650 CURSOR TX-2,12: 
3660 CURSOR TX-2,12 
3670 CURSOR TX+2,IS ： 


2 : PRINT** シンケ， • シュウヲフイ Jr* :FORI- 0 TO 1750 :NEXT 
2 ： PRINT" ' 

5 ： PRIKT- QQ - 

3680 COLOR,, 3 ： CURS 0 R TX, 15 ：PRINT K 7 $ 

3690 IF TX >4 THEN TX-TX- 3 ：CURSOR TX, 14 ：PRINT S$ (L) 

3700 TI$-~ 0 000 0 0 - ： RT- 1 ： GOTO 20 
3718 REM ■ ケン 90 ウノ 71 T ■ 

3726 rem 画セイケン： r キ mm 

3730 KT-KT- 1 ：IF X-TX <0 THEN 416 

3740 COLOR,, 5 :CURS 0 R X-l, 15 ： PRINT" \ — ' 

3750 COLOR, , 7 ： CURS 0 R X+l ,12 ： PRINT* 7 J«! * 

3760 CURSOR X-l, 15 ： PRIHT" • 

3770 IF X-TX <4 THEN TS-TS- 40 ： MUSIC*C* 

3780 Wl-INT( 3 *RND( 1 ))+ 1 ：CURSOR X+l, 12 ： PRIHT" ■ 

3790 IF Wl <-2 THEN 28 
3800 GOTO 410 

3818 rem wm v ； mm 

3820 KT-KT- 3 ： IF X-TX <1 THEN 410 

3830 COLOR,, 7 :CU?S 0 R X+ 1 , 12 ：PR I NT'* 7 ?!" ： KT-KT -1 

3848 COLOR,, 5 ： CURS 0 R X- 2 , 16 ： P 8 IHT K$ ( 3 ) 

3859 IF X-TX <3 THEN TS-TS- 80 ： HUS 1 C"A * 

386 0 l? 2 -IHT ( 3 *RHD ( 1))+1 

3878 CURSOR X- 2 , 16 ：PRINT K 1 $ ： CURS 0 R X+ 1 , 12 :PRINT* ' 

3880 IF W 2<-1 THEN 20 
3898 G 0 T 0418 

3900 REM Wm -y シンク”麵 
3910 KT-KT- 20 ：IF (YA- 1 )+ (YA- 2 )THEN 3930 
3920 IF YA -0 THEN 3940 
9 g ^0 GOTO ヌ 950 

3940 COLOR, , 5 ： CURS 0 R X+ 1,14 ： P R I HT - IQB 1 -' : KT-KT -3 ： GOTO 39 6 0 
3950 COLOR, , 5 :CURS 0 R X-l,U ： PR I NT" >—HH L " 

3960 COLOR,, 7 ： CURS 0 R X- 2,12 : PR I NT" 本クトシンケン "： FOR I- 0 TO 1000 :NEXT 
3970 CURSOR X- 2,12 ： PR I シンクウ乃！"： FOR I - OTO 1 0 0 0 : NEXT 

3980 CURSOR X- 2 , 12 ： PRINT* " 

3990 CURSOR X-l, 14 ： PRIHT~ CO ' 

4000 IF YA -0 THEN 410 

4010 R 3 -IHT ( 5 *RND ( 1 ))+ 1 ： YA -0 

4 0 20 SC-SC+ (R 3 * 60 ) 

4830 GOTO 20 

4040 rem wm r ン i ； イケン mm 

4050 KT-KT- 40 ：IF X-TX <>3 THEN Z -0 
4060 IF X-TX -3 THEN Z-l 

4 0 70 COLOR,, 5 :CURS 0 R X- 1 , 15 :PRINT K$ (N) 

4080 CURSOR X-l ,14 ： PRI NT _ T-nB L 
4090 IF Z =0 THEM 4160 
4100 COLOR,, 7 :CURS 0 R X- 4 ， 12 : P R 1 NT - 本クトサ * ンカイケン -: MU S I C • if D#C#D ~ 
4110 FORI= 0 TO 800 ：NEXT 

4120 CURSOR X- 4 , 12 ： PRIHT* 3 # 3 * ' : FOR I- 0 TO 50 0 ：NEXT 

4130 CURSOR X- 4 , 12 ： PRIHT** 才 i ヌ！ ' : FOR 1 - 0 TO 1 0 0 0 ： NEXT 
4140 R 4 -IHT ( 7 *RND ( 1))+1 
4150 IF (L= 10 ) + (L- 6 ) + (L- 5 ) THEN 6860 
4168 CURSOR X- 4 , 12 ： PRIHT- ' 

4170 CURSOR X-l, 14 ： PRIHT~ - 
4188 CURSOR X-l, 15 ： PRINT - ■ 

4190 IF Z -0 THEN 410 
4268 GOTO 6350 
4210 REM 画 100 レフケン画 
4228 IF X-TX <>3 THEN KT-KT- 60 :Z -0 
4238 IF X-TX -3 THEN Z-l 
4240 COLOR,, 5 ： CURS 0 R X-l, 15 ：PRIHT K$ (N) 

4250 COLOR,, 7 ： CURS 0 R X- 2,12 : PR 1 NT" ア 3 タタ ？-.' 

4260 FORI» 1 TO 30 ： POKE$B 16 , (RND ( 1 )* 20 ) + 19 ：USR ( 68 ) : COLOR ,,5 

► ひどいじゃないですか！あんなおもしろそうなものを夏休みも終わろうというときに 
載せて！休みあけに試験があるのにどうしてくれるんだ。ちくしょ 一， こうなったら意 
地だ。打ち込んでやる！ 鹿又健 （ 17 ) 宮城県 
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4 ： print"-,DD l CB_" 
4 ： PRINT' QQ DQ 
,15：PRINT 
， 15 ： PRIKT" 

,16 ： PRINT'- 
， 16 ： PRIHT* 




• r i I、 i j i 

: PRINT"*| 


4270 CURSOR X-l 
4280 CURSOR X-l, 

4290 CURSOR X-l 
4300 CURSOR X-l, 

4310 CURSOR X- 
4320 CURSOR X- 
4330 NEXT：USR (71) 

4346 CURSOR X-2,12：PR I NT" ' 

4356 IF Z-0 THEN 410 
4360 IF (L-9) + (L-5) + (L-10) THEN 6860 
437 0 COLOR, , 7:CURS0BX-2,12：PR I NT' 9????? •' 

4380 COLOR,,3 ： CURS0R TX,13：PRINT S$ (L) 

4 398 COLOR,,5 ： CURSORX-1,15：PRINT K$ (N) 

4496 CURSOR TX,17 ： PRIHT* * 

4410 FORI 1T01 10 ： POKESB16, (RND (1)*20) : USR ( 68 ) : COLOR,. 

4420 CURSOR X ， 15 ： PRINT\B 
4 4 30 CURSOR X,14：PRINT \fl 
4 4 4 0 CURSOR X ， 13 ： PRINT"\D 
4 4 50 NEXT：USR (71) 

4460 CURSOR X-2, 12 ： PRINT* " 

4 4 7 0 COLOR,,3 ： CURS0R TX •1,13 ： PRINTS1$ 

4480 COLOR,,3 ： CURS0R TX-2,13 ： PRINT"*r \D 
4 4 9 0 FORI - 01025 8：NEXT 
4500 CURSOR TX-2,13 ： PRINT" 

4510 CURSOR TX-2, 17 ： PRINT"*«A : MUSIC- 
4520 COLOR,,7:CURS0R TX-2,15 ： PR I NT'h^ 7 ' 

4 530 CURSOR X, 12 :PR 1 NT ■ ホクト ： FOR 1-0TO7 50 :NEXT 
4 54 0 CURSORX-2, 12:PRINT 
4 5 50 FORI - 810250 0 ：KEXT 
4560 CURSORTX-2,17 ： PRINT' 

4 5 70 CURSORTX-2, 15 ： PRINT _ ~ 

4 580 CURSOR X ， 12 ： PRINT" " 

4 5 90 CURSOR X-2, 12 ： PRINT~ " 

4 6 00 COLOR,,3:CURS0R TX-1, 14：PRINT S$ (L) 

4618 FX-INT ( 6 本 RND (1) い 1 

4620 COLOR,,7 ： 0N FX GOTO 4630,4650,4670 ,4680,4710,4720 
4 630 COLOR, , 7 ： CURS0R TX - 3,12 : PR I NT • 才 71 ノ ケンナトー： FO R レ 0TO 1 0 0 0 : NEXT 
4 6 40 CURSOR TX-3, 12 ： PRINT _ i W モ ■: FOR I -0TO15 0 0 ： NEXT：GOTO 4 74 0 

4 6 5 0 CURSOR TX-3, 1 2：PR I NT'a,a 7 a,••" ：FOR I■ 0TO1 0 00 ：NEXT 
4660 CURSOR TX-3,12 ： PRINT"t>htfYt , !" ： FOR10TOl500 ： NEXT ： COTO4740 
4 6 70 CURSOR TX, 1 2 : PR I NT . キサマ！！ • ： FOR い 0TO15 00 :NEXT:GOTO 4 7 4 0 
4680 CURSOR TX-2, ] 2 : P R I NT ■ コぃ、 7 ^** : FORI 0TO 1 08 0 ：NEXT 
4 6 9 0 CURSOR TX-5,12:PR1HT■r ンセフノ ゲンホ • ウ * :FOR い 0TO15 00 :NEXT 
4760 CURSOR TX-5, 12 ： PRINT* ホクトシンケン！ FORI-0TO 20 0 0 ： NEXT ： GOTO 4 74 0 

4710 CURSOR TX-2,12:PR1NT V ヲ i ナ ay*!' : FOR I -0TO15®0 ： NEXT：GOTO 4740 
4 7 20 CURSOR TX-2, 1 2:PR 1 NT • ォネ IT ”*!r 
4 730 CURSOR TX-2,12:PR 1 NT * ? スケラクレ！ 

4740 KT-KT-80 ： GOTO6350 

4 7 5 0 REM 圓マエハンフ - Wm 

4760 IF X<=9 THEN JT-0 ： GOTO410 

4770 JU-JU+1 

4780 IF JU>1 THEN 4840 

4 790 COLOR,,5:CURS0RX- 1 ， 15:PRINT Kl$ 

4S00 CURSOR X-l, i7 ： print" *； 

4810 IF JU-1 THEN CURSOR X-l, 12：PRIHT K$ (5) :MUS1C - R0■ 

4820 IF X-NJ THEN JK-0 
4830 CURSOR X-l, 12：PRIHT K2$ 

484 0 IF JU-1 THEN CURSOR X-5,10：PRINT KS ( 6 ) : GOTO 410 
4850 CURSOR X-5,10：PRIKT K3$ ： MUSIC"R" 

4860 X-X-7 

4870 COLOR,,5 ： CURS0R X,15：PRINT K$ (1) 

4 8^8 0 IFBN<>0 THEN 4910 
4890 IF RO=0 THEN 4930 

4 90 0 NJ-IHT(30*RND(1))+ 1：IF MJ<15 THEN 4 90 0 
4916 BN=1 

4 9 20 IF JK-0 THEN KB-1 ： GOTO6920 
4930 T1-IHT(50*RND(1))+1 

4949 IF Tl»l THEN BN=0 ： RO-0 

4950 KT-KT-5 ： JU-0 ： JT*9 ： GOTO410 
4960 REM 圓ウシ ti シ、ンフ . WM 
4970 IF X>27 THEN JT-0 ： GOTO410 

4 980 COLOR, ， 5:CURS0RX, 15:PRINT K7$：KT = KT-5 ： COLOR,,3 ： CURS0RTX,14：PRINT S$ (L) 

4 9 96 X-X + 2 ： C0L0R,^ 5 ： CURS0R X,12 ： PRINT" DOCDWIZTS' : MUSIC'RR' 

50 0 0 CURSOR X, 12 ： PRINT _ 033 EBB DD B3 _ 

5616 X-X + 4 ： CURS0R X,1 0 ： PRINT - iiaaiTJil// UlllMa/- : uii ^ r r ■ R n B - 

5 0 2 0 CURSOR X,10 ： PRINT _ maWJ naiaiaa 

5930 X-X+2 ： CURS0R X, 15 ： PR1NTK$ (N) : JT 0 ： G0T0410 
5040 REM H AJT ンケン Wm 

5050 KT-KT-40 


•: FORI- 0101 00 0：NEXT 
: FORI * 01015 0 0 ： NEXT ： G0T04 74 0 


5060 IF X<9 THEN 410 

5070 IF X-TX=2 THEN AT•1 

5080 COLOR,,7 ： CURS0R X,12:PR I NT " ウァ厂 

5090 COLOR,,5 ： CURS0RX -1,15 ： PRINT~ ' — ' : FOR 1»0TO50 0：NEXT 
5100 COLOR, ， 3:CURS0R TX,14：PRINT S$ (L) 

5110 CURSOR X-l, 17 ： PR1NT' ■: CURSOR X,12 ： PRINT" - 

5120 CURSOR X-l, 15 ： PRINT- - 

5130 COLOR, , 5 ： CURS0R X.15 ： PRIN'T Kl$ 

5140 COLOR,,3 ： CURS0RTX,14：PRIHT S$ (L) 

5150 COLOR,,5 : CURSOR X,11：PRINT K$ (4) :FOR い 0TO50 0:NEXT:COLOR,,3:CURSOR TX.14：PR I 
NT S$ (L) 

5160 COLOR, ,5 ： CURS0R X,11：PRINT K4S 

5170 CURSOR X- 3, l0：PRINT KS (6) : FORI^0TO 5 00：NEXT 

5180 CURSOR X-3,10：PRINT K6$ 

5190 COLOR,,3 ： CURS0R TX, U：PRINT S$ (L) 

5200 COLOR,,5 ： X-X-6 ： CURS0R X,15 ： PR1NT K$ (1) 

5210 IF AT 0 THEN KT-KT-5:GOTO410 
5220 AT，0 

5 2 30 COLOR, , 7 ： CURS0R X 2,12 : PRI NT •• コウ）ュ ンヶゾ ： FORT 0TO1 7 5 0 : NEXT 
5 2 4 0 CURSOR X-2,12：PR I NT " 

52 5 0 IF (L^5) + (L-6) + (L-9) 4 (L-10) + (L-7) THEN 6860 

5260 COLOR, , 7 ： CURSOR TX 1,12 ： P R ! NT ^ y ： ： MU S f C " CC FRRRRR 

52 7 0 CURSOR TX-2,12:PR1 NT コ，キコ * キキ . ： MUS1C. »C6R »GR CR-DR ^DRR" 

5280 CURSOR TX 3,12 ： PRIKT" 

5290 G0T06358 

5300 REM 麵 i 幻フケン K 

5310 KT-KT-45：IF X-TX<>2 THEN AT ， 0:GOTO5330 
5320 AT-1 

5330 COLOR,,5 ： CURS0R X ， 14:PRI NT —1 ® し 
5 34 0 IF ATI THEN 5380 

5350 MUSIC'-»DE' ： C0L0R..7 ： CURS0R X.12 ： P R I NT -， * 9 f ' ： F 0 R 1= 0T0600：MEXT 


► MAGICS 萵です。これで CG のデータなんか共通だから誰かバラダギ様とかイクサー 1 
とか送ってください。 FIX のことなんですが magiFORTH のほうがはるかに使いやすいの 
で税在制作 STOP です。すいません。そろそろ S - OS の別冊出しませんか？それから Su 
per BASE はいつ発表ですか？ キヤリーラボ & MAGIC & SOS で全機钝共通ちゃっくん 
ぼっぶとかジエルダなんてどうでしょう。 旧村俊屯（17> 兵沖:似 





5360 CURSORX-2,12:PRINT ■ カイコフケン -: FORI-0TO 1250:NEXT:IF (L>4)* (L<10) THEN 6860 
5370 CURSORX-2,12 ： PRIHT* 

5380 CURSOR X,14 ： PRINT- B3 
5390 IF AT-0 THEN 410 
5400 AT-0 ： GOTO6350 

54 10 R2-INT (3*RND (1))+1 ： SC-SC + R2*L*5 0 

54 20 REM _ /a ク ン M 

54 30 COLOR,,5 : CURSOR X,15：PRINT Kl$ 

5 4 4 0 CURSOR X,17:PRINT‘ 

54 50 COLOR,,3:CURS0R TX,14：PRINT S$ (L) 

54 60 COLOR,,5 ： CURSORX-l, 16：PRINT K$ (7) 

5 4 70 COLOR, , 7 ： CURS0RX-1,12 ： PR I NT " t7 5» ? 9 ? • " : C OLOR, , 5 
5 4 80 FOR 卜 0TO60 ： POKE$B16,RND (1)* 24 0 ： USR(68) 

5 4 90 CURSOR X-1,16：PRIHT B2S — BS -—— 

5500 NEXT：USR (71) : KT-KT-70 

5510 CURSOR X-l, 12 ： PRINT* B3aBXEBZZ3 

5520 IF X-TX<>3 THEN 5730 

5530 IF (L-6) + (L-8) + (L=10) THEN 6860 

5540 IF L<>5 THEN OO-l 

5550 CURSOR X-l, 16：PRIHT J:CURSORX,15:PR I NT K$(1) 

5560 IF 00-1 THEN 02 -1：GOTO 5730 
5 5 70 REM ハート IT シ * ュウ M* ンクケ A 

5580 


COLOR,,5 ： CURS0R X-l, 16：PRIHT JUS：CURSOR X,15：PRINT K$(1) 

5590 COLOR, , 3 ： CURS0R TX,14 ： PRINT" ▼ {minDH-OSl/W 
5 6 00 COLOR" 7:CURS0R TX,12：PR I NT"•" : FOR I -0TO900 ：NEXT 
5610 COLOR,,S ： CURS0RX+1,15 ： PRINT"" 

5620 CURSORX-1,15 ： PRINT" —— " 

5630 CURSOR TX,12 ： PRINT" • 

COLOR,,7:CURSOR X ， 12:PR I NT ■ ウフタ ！-: FOR い 0TO 500:NEXT 
CURSOR X,12 ： PRINT~ " : CURSOR X-l, 15 ： PRIHT" ■ 

COLOR,,2:CURS0R X-l,15：PR I NT 

COLOR,,7:CURS0R X-l,12:PR1 NT■ t • クトシ * ュウ M へ / : FOR I-6T01 500 ：NEXT 
GJ- INT (3*RKD (1))+1 
CURSOR X-l, 12 ： PRIHT~ ' 

COLOR,,7 ： CURS0R TX-1,12：PRINT HH$ (GJ) : FOR I -0TO750 ：NEXT 
CURSOR TX-1,12 ： PRIHT* * 

OO-0 ： KT°KT-15 ： GOTO6350 
REM 

CURSOR X-l,12 ： PRINT* - 

COLOR,,5:CURS0R X-l, 16：PRINT JU$：CURSOR X,15：PRINT K$(1) 

COLOR,,3 ： CURS0R TX ， 14:PRINT SS(L) 

00-0 ： IF 02 = 0 THEN 5790 
O2-0 ： GOTO6350 
G0T0419 

5809 REM 麵ヒコウ 画 

5810 IFX-TX<>2 THEN KT-KT-26 ： Z-0 
5820 IF X-TX-2 THEN Z-l 

D2-IHT (3*RND (1) )+1 _ 

IF D2-2 THEN COLOR,,5:CURSOR X,14 ： PRINT" — 〇〇〇 ~■ 

IF D2-3 THEN COLOR,,5 : CURSOR X,14 ： PR INT"t_- 
IF D2-1 THEN COLOR,,5 : CURSOR X,14:PR I NT-、、DBD し ■ 

IF Z-0 THEN CURSOR X,14 ： PRIHT" CB ' ： GOTO410 
COLOR,,7:CURS0R X-5, 12：PRINT WS (D2 )；" トイウヒコウヲフイ厂 
19 ： IF (L-10) + ((L-5) * (D2<>3)) THEN 0860 
5890 CURSOR X-5, 12：PRINT ' ' 

CURSOR X,14 ： PRINT* EBB *： X-X +2 ： COLOR,,3：CURSOR TX,14：PRIHT S$(L) 
CURSOR X,14：PRINT - 〇〇 [fi ' 

COLOR,,5 ： CURS0RX,1S：PRINT K$(1) 

CURSOR X,15：PRINTBEDD ■ 

COLOR,,7 ： 0N D2 GOTO 5950, 6000, 6029 


56 40 
56 50 
5660 
5 6 70 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 


5830 

5840 

5856 

5860 

5870 

5880 


5 9 00 
5910 
5 926 
5930 

5 9 46 
5950 
5966 
59 70 
5986 
5990 
6000 
6619 

6 9 26 
6030 


CURSOR X,12:PRINT - オマ i a モウ . .":FOR I•0TO5 0 0：NEXT 
CURSOR X,12: PRINT** シンディ *!! •: FOR I • 0TO1 0 0 0 ： NEXT 
CURSOR X,12 ： PRINT" * 

D3-IHT(5*RKD(1))+1 

COLOR,,7 ： 0N D3 GOTO 6840,6080,6160,6200,6270 
CURSOR X,12:PRINT • 才 71 ノイパ 〆 ： FORO-eTO7 50:NEXT 
CURSOR X,12:PRINT ■ アト 5g..." : FOR I -0TO1 0 0 0 ： NEXT：GOTO 5970 
C4JRS0R X,12:PR1N"T オノレノ フ？フ * i サヲ -: FOR 1■ 0TO1 0 0 0 : NEXT 
CURSOR X,12:PRINT _ i モィシレ！！！ " : FOR I -0TO 129 0 ： NEXT ： GOTO 5970 

6 040 CURSORTX, 12:PRINT ■ ソンナ .• •: FOR I -0TO7 50 ： NEXT ： HUSIC" + B +BR" 

60 50 CURSORTX,12 ： PR I NT" a* 7* 7* " __ 

6060 COLOR, , 6 ： CURS0R TX-1,14 : PR I NT - 0「ESSEELTV EXXXES 丨 ■ KZSS3 - Y 
6 0 70 FORI- 010150 0 ： NEXT：CURSOR TX,12 ： PRINT" - : GOTO6620 

6080 CURSOR TX,12 : PR I NT - タスヶヲ ！*•: F OR I - 0TO 7 5 0 : NEXT : MU S I C •’A A 

6 0 90 CURSOR TX,12 ： PRINT" ": CURSOR X-1,12 : PR I NT - アクトウ : FORI -0TO750：NEXT 

6160 CURSORX-1, 12:PR1HT ••ヒメイ a * : F OR I - 0TO 8 5 0 ： NEXT 
6110 CURSORX-1, 12:PRINT" キコ i ンナ！ *：FOR I -0TO1500 ：NEXT 
6120 CURSORX-2, 12 ： PRINT" 

6130 CURSOR TX-1, 12 ： PRIHT-7l ， VU. . ' ： FORI-0TO 500 ：HEXT 

6148 COLOR" 6:CURS0R TX,14 ： PRINT*i IBBCDA 0QB«VBBSB //'： FOR I - 0TO1 0 0 0 ： NE 
XT 


6150 CURSOR TX- 
6160 CURSOR TX-2 
6170 CURSOR TX-2 


6180 COLOR,, 

NEXT 

6190 CURSOR TX-2,12 
6200 CURSOR TX-3,12 
6210 CURSOR TX-3,12 
6220 CURSOR TX-3,12 
6230 CURSOR TX-3,12 
6240 CURSOR TX-3,12 
6250 COLOR,,6 ： CURS0R TX, 
XT 

NT. 
NT" 
NT 


12 ： PRIHT* - ： GOTO6620 

12:PRI NT - コイプ！！！ド : FOR I-0TO 7 56 ：NEXT 
12:PRINT • フララララ . . ■: FORI- 0101 00 0 ：N 


CURSOR TX,14 ： PRINT _ L« 


: NEXT 

n EBEDX I 


: PRINT - * : GOTO6620 

: PR I NT ■■ イ 9 ク { •: FORI-0TO 1000：NEXT 

: PRINT" コレ iT 7 ノ " : FORI-0TO500 ：KEXT 
: PR I NT~ ホクトシンケン iV! * ••FORI-0TO 1 200：NEXT 
: PR I NT* • ワラフセルセ *. " ： FORI-0TO 1 0 00 ：KEXT 

: PR I NT*a” フケ♦レレレ “： FORI -0TO 1200: NEXT 
PRINT".« 


L' : FORI-0TO 1 0 0 0 ： 


-: FORI -0TO 1 5 0 0 ：NE 


6260 

CURS0RTX-3, 

12 

PR 

6270 

CURS0RTX-2, 

12 

PR 

6280 

CURS0RTX-2, 

12 

PR 

6 2 99 

CURSOR 

X-3, 

12 

PR 

6300 

CURSOR 

X-3, 

12 

PR 

6310 

CURSOR 

X-3, 

12 

PR 

6320 

CURSOR 

TX,1 

2：I 

>RI1 

6330 

COLOR,, 

, 6 ： CURS0R • 


ナントモナィ 5 


-: GOTO6620 
: FORI- 010130 0：NEXT 


h'T _ キサマノョゥナヶ • ドゥ -: FOR い eTOl000:NEXT 
NT - れ IT イカストオモウ ！ T : FORI-0TO 15 0 0 : NEXT 
NT" - 

KT"kA* a* - 
TX,14 ： PRIHT'.\» 


-: FORI = 0TO 1 500：NE 


6340 CURSOR TX,12 ： PRINT* 
6350 REM 


- ： GOTO6620 


6360 COLOR,,3：CURSOR TX,14:PRINT S$ (L) 
6370 H- 0 ： COLOR,,5 ： CURS0RX, 15：PRINT K$(1) 
6380 V-INT(11*RND(1))+1 
6390 IF ff‘4 THEN Z-0 ： GOTO6450 


►なんだあの MAGIC は速すぎるじやないか！せっかく NEW BASIC の倍のスピード 
のライン&ペイントルーチンを作ったのに 一。 こうなったらあのルーチンをカラー対応に 
してやる！ 阿部好典 U 9> 愛媛県 
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6 4 00 
6410 
6420 
64 30 
64 4 0 
6 4 50 
64 6 6 
6470 
6480 
64 9 0 
6 5 0 0 
6510 
6 526 
6538 
6 54 0 
6550 
6560 
6570 
6580 
6590 
6660 
6610 
6620 
6636 
664 0 
6650 
6660 
6 67 0 
6680 
6696 
6700 
6710 
6720 

6739 

6740 
6750 
6760 
6770 
6780 
67 9 0 
6800 
6810 
6820 
6836 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6958 
6960 


IF W-5 THEN Z-0 ： GOTO6580 
IF W-6 THEN 6470 
IF W-7 THEN 6470 
IF W-8 THEM 6630 
C0T0419 

COLOR,,7 ： FORI-3TO0STEP-1 

CURSOR TX+1,11：PRIHT I ； : MUSIC* + CRRR _ ：NEXT 
CURSOR TX+3, 14 ： PRIKT" ' : COLOR,.7 
CURSOR TX-1,12：PRINT SH$ (V) 

COLOR,,2 ： CURS0R TX,13：PRINT •. 

CURSOR TX,14: PRINT' r ' い： MUSIC'E-D — 

FORI-0TO1500：NEXT 
CURSORTX+2,11 ： PRINT _ - 
CURSORTX-1,12 ： PRINT- " 

CURSOR TX,13 ： PRINT' - 

CURSOR TX, 14 ： PRIHT- 

COLOR,,3 ： CURS0R TX,14：PRINT Sl$ 

GOTO690 _ 

REM 

CURSOR TX-3, 12 ： PRINT- 

COLOR,,7 : CURSOR X-2,12：PR I NT*t ?xa モウ ..： FOR I:0TO1 00 0 :NEXT 
CURSOR X-2, 12 ： PRINT" シン r イ A! ■: FORI-0TO1 00 0 ：NEXT 
CURSOR X-2,12 ： PRINT' 

R5-INT (ie*RND (1))+1 ： C0L0R,,7 
CURSOR TX-1,12：PBIHT SH$ (R5) 

COLOR,,2:CURS0R TX-1,14 ： PRIHT'r.' * " 


: PRINT*-^. - 
: PRINT-. f J - 
JPBINT-• | :,- 
TW-0 
NEXT 

2 ： PRINT- 
4 ： PBINT" - 

5 ： PRIHT _ - 

6 ： PRIKT - - 

7 ： PRINT _ - 


: RESTORE8430 


CURSOR TX-1 
CURSOR TX-1 
CURSOR TX-1 
MUSIC~-A+C" 

FORI-0TO2508 ： 

CURSOR TX-2 
CURSOR TX-1, 

CURSOR TX-1 
CURSOR TX-1 
CURSOR TX-1 
IF L<>1 THEN TN-0 
L-l : ME»0 ： GOTO769 
REM ■■ GAME OVER ■ 

COLOR,,7 ： CURS0R 14,3 ： PR I NT*GAME OVER' 

REM ~F6ER2E6DR3F8G#E6E6D9R0" 

CURSOR 11,5 ： PRINT"YOUR SCORE -* ； SC»10 
GOTO6830 

CURSOR 11,8 ： PRINT'PUSH (8] KEY ! !' 

GETD$：IF (D$-"8*) + (CG-690) THEN 7980 
CG-CG+1 ： G0T06849 

REM ■ フサ * IT キ * ナィ ■ _ 

A-IHT (5*RHD (1))+ 1：CURSOR X,12 ： PR I NT C^B3 
COLOR,,7 ： CURS0R X.12：PRINT HH$ (A) : FOR I=9T0750：NEXT 

CURSOR X,12 ： PRINT" _ - 

CURSORX-1, U ： PRIHT ， * OEQ *H-0 ： AT-0 ： Z-0 
GOTO410 

REM ■ ? ? ? ■ 

HJ-HJ+3 ： C0L0R,,6 

CURSORHJ+1,15：PRINTCHRS (32, 233, 32) 

CURSORNJ+1,16 ： PRIHTCHR$ (32, 200, 233) 

COLOR,,2 ： CURS0RHJ+1,17 ： PRINTCHR$(83) : COLOR,,6 ： CURSORHJ+2,17 ： PRINTCHE$(213,3 
2) : COLOR, , 7 
6970 IIUSIC- + A + D + A" 

6980 BN-0 ： NB-1 ： R0-e ： G0T0495e 

6998 CURSORKJ-1,16：PR INTBB»10：HUS IC"+E5 +C4B+C8R0" : RT-0 

7eee sc-sc+bb ： kt-kt+i500 ： cursornj-i,i6 ： print* •: nb-0 ： ro-b：jk 

7016 REM ■■ ケンタ〇ク M レカケ * ■■ 

7020 COLOR, , 5：CURSOR X,1S：PRIHT Kl$ 

7036 CURSORTX+3,15 ： PRIHT _ • 

7040 CURSOR X ， 14 ： P8IHT KS (2) 

7050 COLOR,,7：CURSOR X-2,12：PR I NT* ゥ！！ ": COLOR,,5：HUS 1 C*-#C-«D' 

7060 FORI-0TO800：HEXT 
7070 CURSOR X,12:PRIN*T - 

7080 CURSOR X,15：PBINT K9$ ： CURS0R X,15：PRINT K$(l) : RETURN 
7090 REM ■■ ゲンタ u ウノシエカタ 
7180 IF RT-2 THEN HN-2 

7110 ON HN GOSUB 7120,7160,7280 ： GOTO6780 

7120 reh mm デコこ ヤラレ 9 mm 

7130 COLOR,,2 ： CURS0R X,UtPRINT - 
7140 COLOR,,3 ： CURS0R TX,14：PRIHT S$ ( 

7156 COLOR,,7 ： F0RI1-1T04 ： CURS08TX-2,12：PRIHT ZSS (I 1)：FOR I -0TO380 ：NEXT I,I 1:RETURN 
7160 rem mm ホクトシンケン y ヤラレ？ mm 
7170 COLOR,,3 ： CURS0RTX,14：PRINT S$ (L) 

7180 COLOR,,5 ： CURS0R X,15：PRINT K$ (1) 

7190 COLOR" 7:CURS0R X ， 12:PR I NT - ** ココ -: FOR I■0TO80:P0KE$B 16, (SIN (I) + 1)* 100：USR (68) 

: NEXT：USR (71) 

7260 CURSOR X ， 12 ： PRIHT* - 

7210 CURSORX+2,13：PR I NT'!* "：FOR I'0TO500：NEXT 

7228 COLOR, ， 4:CURS0R X+l, 14 ： PRIKT' T : F OR 1- 6T01 0 0 8 ： NEXT ： COLOR, , 7 

7230 CURSOR X-1,13 : PR 1 NT*\a リア r-• •/_ _ _ _ _ 

7240 COLOR, , 2 ： CURS0R X+l, 12 ： PRINT* QXBSr •.ノ DBXB. • • ン CBB'I \, • :MUS 

IC-_F.G "： IF (RT-2)♦ (L<>10) THEN RETURN 

7250 COLOR,,7 ： CURS0R TX-1,12 ： PRINT"t7i a" : FOR I = 0TO750 ：NEXT 
7260 CURSOR TX-1,12 ： PR 1 KT* 1 1 /； a* : FOR 1-0TO7 5 0 ： NEXT 


0 ： GOTO2O 


: MUSIC* 


NEXT：RETURN 


FORI- 50100 STEP-2 ： POKESB16,I : USR(68 
FORI-50TO0STEP-2 ： POKE$B16,I ： USR(68 


7270 CURSOR TX-1,12:PR 1 NT - カラン ！！-: FOR 1•0TO17 5 0 : 

7280 REM mm ナントセイケンデヤラレ 9 WM 
7290 COLOR, , 7 ： CURS0R X-3,12 : PR I NT • ス八 . 7 • ス八 •，** 

) : KEXT：USR (71) 

7300 COLOR, ， 2:CURS0R X+1,14 ： PR I NT - •- CBS^l-' 

) : NEXT：USR (71) 

7310 CURSOR X+l,16：PR I NT ^/ULUS \ " : RETURN 
7320 REM ■ シ>キセ 7 ラィ ■ 

7330 CLR ： P0KK$3444,0 ： COLOR,,7,0 ： PRIHT"S '； 

7340 KT-5000 ： SC-0 ： JK-1 ： RO-1 ： N=1 ： L'1 ： X-33 ： TX-6 ： TS»300 
7350 RT»0 ： DIHNA* (10) : DIHffAS (8) 

7360 CG”0:DIM HH$ (5) : DIM Q (8) : DIMW$ (3) 

7370 TI$-- 0 0 0000 ■: HH*(1) パナニ！！！ -: HHM2 い -〆 カナ！ -: HH* (5) - • キカティ！ -: HH$ (4) ■ 

M3) ■•ナン y r 

7380 (1) ■•• トウ厂 ： W$ (2 い■セフリ ■: W$(3) •■ィカク -, 

7390 JU$- ' QQ SB CZZB : DIMT1S (7) : DIMT2S (14) 

74 00 DIM K$ (7) : DIM S$ (1 e) : DIU SHS (11) : DIM BOS (3) ：DIM BK$ (3) : DIM ZSS (4) 

7410 ZS$ (1)-* へ 7 へ，へ • ： ZS$ (2) --7 フノ キス - パ： ZS$ (3 )-• オトコノ クビ a - : ZS$ (4) - •• れ f ラ， 5!! 

7420 K7s〆 rwm 022 S EBSS 


■ウわ 


no Oh! MZ 1986.10. 


► 8 月 21 日現在まだ香川に F M 音源がこない。シャープはなにをしているんだろう。 

竹田智哉（15> 香川県 










7430 K4$'" 

7 44 0 KS (7) - 


7 4 50 
7460 
7470 
7480 
74 90 
7 590 
7510 
7 5 20 
7530 
7540 
7 5 50 
7560 
7570 
7580 
7598 
7600 
7610 

7629 

7630 
7640 
7650 
76 60 


K3$ 
K9$-" 
BK$ (1) 
BOS (1) 

K1 い 

SH$ (1) 

K$(4) 

K$ (6) 

SH$ (2 

K$(l) 

KS (2) 

K$(3) 

S$(l) 

S$(2) 

SS(3) 

S* (4) 

S*(5) 

SS(6) 

SS(7) 

SS(8) 

S$(9) 

s$ (ie) 



SH$(9) - ■ライ レ，！-: SH$ (3) ! - :SH$ (4} - •ア ぐシ r : SH$ (5) --AJT r 

-\sra~ \- ： k$(5) - ~90jir\jxMn2//uaaa/' 

a»L \M3BV : SH$ (6) --IM ，！ "： SH$ (7) チ :^!!": SH* (8)-- ァ d! ! ! "• 
. フ 〆 ラ！“： SH$ (10) - " ti! ! ド ， ： SH$ (11) いク ！！“ 

HIM ■ QB33S 
3 QQBBQ3 d 



ナマエ嫌級 
. •: NA$ (2) 〆 ハ .- K " 
: NA$ (4) -- グラフ * 

: HA$ (6) レイ 
: NA$ (8) - “コ广 
: NA$ (10) -*，ォゥ 

ナマエ總鐵 I 
^ • 


7670 Sl$- 
7680 REM Ml ヲキ 
7 690 NA$ (1) バシ 9”. 

7700 NAS (3) _-，* イ t 
7710 HAS (5 ) -■ハート 
7720 NA$ (7) パシ * キキ * 

7730 HA$ (9) ■•シュウ 
7740 REM 級趣 | 7 グ 
77 5 0 WA$ (1) ヘイケ 〆 
7760 WAS (2) -*7vir* 9 
7770 WAS (S) ■-ヒコウヲフク " 

7788 WAS (4) ンカイケン - 

7790 VA$ (5) パホクトヒ t クレフケン - 
7890 WAM6)〆 コウシ * aJT ンケン “ 

7810 WA$ (7) 〆 本クト J イコフケン " 

7820 ⑷■■ホクト v* 

7830 REM Hi 八イケイヲカク ■■ 

7840 COLOR, ,4, 0 ： FO8I-0TO39：CURSOR 丨， U : PIU NT ■ 職 -: NEXT 
7850 FORI-1T015 

7860 V-IHT (RND (1)*39) + l ： S-INT (RND (1)* 11)+ 1 ： COLOR, , INT (RND (1)*7) 

7870 CURSOR V,W ： PRIHT"." : NEXT 
7880 F0RI-1T038 

7 89 0 V-IHT (RND (1)*39) +1 ： W-IHT (BHD (1)*11)+1 ： COLOR, , INT (RND (1)*7) 

7966 CURSOR V,ff ： PRIHT"• •: NEXT ： COLOR,,4 
7918 COLOR,,7 ： W-1 

7920 F0RI-1T07：READ PI：READ P2：SET P1,P2：HEXT 
7930 GOTO20 

7940 BEM ■ フ -QD-r ■ 

7956 RESTORE ： COLOR, ,7,8：PR I NT"B- : TEMPO 7 

79 6 0 F0RI-1T0222 ： 8EAD MJ$ ： CUBS0R 39,12 ： PR1HT MJS ； : POKE*D800 + 39+40* 12, 200 ：CUBSOR 
0,12 ： PR1NT CHR* (18) 

7970 HUS1C-+A182- ： NEXT ： MUSIC*R0- 


7980 
7990 
8680 PR 
8010 PR 
8620 PR 
8038 PR 
8040 PR 
8050 PR 
8968 PR1 
8678 PRINT* 
8080 PRINT- 
8090 PRINT" 
8190 PRINT* 
8110 PRINT* 
8126 PRINT- 
8130 PRINT" 


REM ■ 

PRINT* 
INT - 
INT _ 
INT" 
INT 
INT' 
INT" 
INT" 


セフメイ 


<<<[ 本クトノ オト:！ PART 1]>>>' 

ケン？〇ウヲアヤフ 7710 シ》*ィノヲキト力 77 クタ*サイ 


M 

I ~~I 

|t| 

I~ I I ~I 

IXI&IVI 




♦クトシンケンテ 

_ ンシ》ウシ¥二 

flAt !!• 

KEY J 

セフメイ " 


• •マ 3： イト♦ウ 

11 " 

M •… 

1 _1 寿 

ウシ D イト ♦ ウ * * 

，マ I JUUP 

m .... 

1 __1 - 

ウシ D JUHP- 

•…？，• 

1) セイゲンフ*キ 

? ii* 

2) アシ V 



8146 PR 
8156 PR 
8166 PR 
8170 PR 
8180 PR 


-ispci 

-I_I 


3) ヒ 3 ゥヲフク （ 3 シュ處イ ） ’ 

本タトデンカイケン 5) 本タトヒ♦タレフケパ 
6} 3 ウシュ AIT ンケン 7) 本クト J イ 37 ケン _ 
8) 本クト / ユウ M •パ 


フサ * ヲタ*ス 


I■―I 

|C| 

I__I 


.... ニシシンクウ八 _ 
( スへ ニ フカウ ） • 


(C) LUU SOFT* 

BY YAMATO SOFT & NISHIYA* 


8190 PRINT"* 

8288 PRINT- 
8210 PRINT 
8220 PRINT' 

8236 PRINT**_ 

8240 rem aMMMMMMNMMMMNMMMMHMMHi 

8250 A-A+l ： COLOR,,INT (RND (1)*7) + 1：CURSOR 12,22：PR IHT-HIT ANY KEY I!“ 
8260 IF A-1500 THEM A-0 ： GOTO7940 
8270 GETAS ： IF A$-*" THEM 8250 

8286 HUSIC"G5F5R2G5R5F4R1F4R1F4R1F4R1F4R1#D5D5R5#D5F5R2#G5R1G5R5G9R0" 
8296 GOTO7320 

8308 REM ■ フ . DD-y 卜 4； クトシチセイノテ〜？ ■ 

83H DATA 2, 0, 8, 0 ，年，，ハ，レ，キ，シ，，ヲ，，キ，サ，.パ 


39 


ラ，キ , 


本 * ク， 


，ク，ウ 


» フ》ラ 


，ウ，セ，イ，シ， 


，，ラ， 


34,3,42 


1,39 


ン , J 


ウ，ヲ， 


I ,サ 


0, 


8329 DATA 

8330 DATA 

8349 DATA 
8359 DATA 
8368 DATA 
8370 DATA 
8386 DATA 
8396 DATA 
8400 DATA 
8410 DATA 
8420 DATA 
8430 DATA 
8440 REM 
8456 REM ホグトノオト:！ 

8460 REM ケ • パク-エンシ * 3 ウシ • シン ; >* (SP- 5030) 
8470 REU ァレンシ .^ ュシ t ヒサノリ （70 0 S-BASIC) 
8486 REM 1985 年 12 月 23 日（月） 

8496 REM . . . . . 


38 


， 40,12,43,13 


► XI の FM 音源を買ったら劣声 コーラスに 人って いる父親が熱中してしまい，自分で触れ 
る時間が 1 時間ほどしかありません。なんと父は朝 4:00 ころから起きてコンピュータに向 
かっています。 妹厂4聪（17> 兵庫県 


特集北斗の男 111 






























リスト 2 


北斗の男 MZ -80 B / 2000 /2200/2500(80 B / 2000モード） 


18 GOTO7940 

20 REM 讓團シ *3 ウキ 3 ウノヒ 3 ウ / 091 
30 CURS0R22, 22 :PRINT~ フサ * “ * ； ffA$ (W ) ； 

40 CURSOR22, 20 ： PRINT'7^ - " ； NA$ (L) : 

50 CURSOR 1,22 ： PRIHT"SC0RE - ~ ； RICHT$ (~ 000 〇 - STRS (SC*10),5) : 
60 CURSOR 1,20:PRINT“ ？ イリ 3 ク 》* ； RIGHT$ (' 0000 ^STR$ (KT) ,5); 
70 XT»VAL (TI$) : IF L-l THEN IfN-1 
80 IF JU>0 THEN 4770 
98 IF KT<=0 THEN 120 

100 IF (RT=1)* (XT>300) THEN RT-2 ： GOTO120 
110 GOTO140 

120 rem mm タイリ 3 ク ir ナイ wsm 

130 CURSOR 8,20 ： PRINT" 0 0 0 0 0 • : G0T0709 0 

140 at: o :rem —mm—mnHnBmwaagBaMi 

150 Ql-INT (20*RND (1))+1 

160 Q2-IKT (10*RND (1))+1 

170 IF (Ql»l)* (NE<>0) THEN KT=KT+ 50*Q2 

180 IF NB<>1 THEN 200 

190 IF NJ-X THEN 11-INT (5*RND (1))+1 ： BB» 1 000* 1 1 ： GOTO6 9 90 
2 0 0 CURSOR X,15：PRIKT K$(N) 

210 IF TX<3 THEN TX=3 
220 CURS0RTX,14：PRINT S$(L) 

230 IF TX-l-X THEN KT-KT -1 0*L:MUSI (T-#D-W:GOSUB7010 

240 REM M! キ - 二 > ウリ 3 ク国 

250 POKE $952, 0：GET A$ ： P0KE $952,166 


注） MZ -80 用または MZ - 2000 /2200 用標準 BASIC 
(ディスク BASIC も可）でご利用ください。 


260 

270 

280 

290 

360 

310 

320 

330 

340 

350 

369 

378 

380 

396 

400 

410 

420 

430 

449 

450 

469 

470 
480 
490 
500 
510 
520 
538 
540 
556 
560 
570 
580 
^96 
608 
610 
620 
630 
640 
656 
660 
678 
686 
690 
700 
710 
720 
730 
740 
750 
760 
778 
780 
790 
800 
810 
820 
830 
840 
858 
860 
870 
886 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1626 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



THEN 

X»X-1 ： KT*KT-1 

A$=-6~ 

THEN 

X-X+l ： KT-KT-1 

A$= 了 

THEN 

1 

A$-'V 

THEN 


A$--C- 

THEN 

3900 

A$ = - - 

THEN 

390 

A$="8' 

THEN 

JT-1 : GOTO4750 

AS--2* 

THEN 

JT-1 : G0T04969 

W-9 THEN ff- 

1 

W-8 THEN W- 

8 


IF X>-36 THEN X=36 
IF X<-4 THEN X-4 


G0T0418 


REM IBBI ケン ノ 3 ウケ * キ A-f'y a m 

ON ff+2 GOTO 410, 3720, 3720 , 3810, 5800, 4040, 4210, 5040 , 53 00, 5420 

rem an ヲキノコウケ ♦ キル - チンへ wm 

CURS0RTX,14：PRIHT S$(L) 

IF L<>1 THEN 460 

IF TN>2 THEN NE=INT (9*RND (1))+1 

IF NE=8 THEN 480 

rem mm シタフパイグイ wm 

TW = NE：L = NE+1 ： 0N NE GOTO 8 40, 980,1230 , 1 510, 1680,1880, 2260, 2590, 3360 

REM ——— 

IF TX<3 THEN TX-3 

IF (X-TX)<8 THEN ZG-2 ： GOTO520 

ZG--2 

51- INT ( (ZG+6)*RND (1))+1 

52- INT ((-ZG+6)*RND(1))+1 
IF HY=1 THEN 568 

TS = 308* (NE+1) : HY-1 
IF TX<3 THEN TX-3 
IF TS<=0 THEN 690 

IF (Sl< = 3)* (TX<33) THEK TX-TX+1 ： TS-TS-.1 
IF (S2<-3)* (TX>9) THEK TX-TX-1 ： TS-TS-.1 
IF S2>-5 THEN 630 
IF (KK->3) * (KY-1) THEN 820 
GOTO20 


rem wm セイケンデキ .( ヲキ ） ■ 

IF JT=1 THEN GOTO20 

CURSOR TX + 2,15 ： PRINT" ― , * ： TS-TS-1 

IF ( (X-TX) >0)*( (X-TX)<4) THEN MUS I C"»C" ： KT-KT-29*L ： G0SUB7010 

CURSOR TX+2, 15 ： PRIHT* - 

GOTO20 

REM ■ ヲキシン r wm 
IF JT-1 THEN G0T088 
CURSOR TX,14：PRIHT S 1 $ ： MUSIC"-D* 


CURSOR X,15 
CURSOR TX,17 
CURS0RTX-1,15 
FOR い 0TO2500 :NEXT 
TK-TN+1 


PRINT K$ (N) 
PRINTX ■ハ 
PRINT-K サパ 


R2-INT (3*RND (1))+1 ： SC-SC+20*R2*L 
CURSOR TX,17:PRINT “ - 

CURSOR TX-1,15 ： PRIHT" - 
TX-INT (16*RND (1))+1 
IF TX<=3 THEN 800 


IF L<>1 THEN TN=0 ： Tff-0 ： L-l ： NE-0 ： MY=0 
TS»300 ： GOTO410 

rem mm ス v- 卜 * wm 

HN-l：IF YA-1 THEN 890 
R7-IKT (4 本 RND (1))+1 
IF R7-1 THEN 890 


GOTO540 


YA-YA+1 

IF (JU=1) + (JU-2) THEN YA-0 ： GOTO920 

FORI-1T08 ： P0KE$F1A,I ： USR($F14) : NEXT 

IF (YA>3) + (YA = 3) THEN 960 

G1 = IKT (6*RKD (1)) +1 

IF Gl<3 THEN 20 

GOTO480 

CURSOR X,14 ： PRINT*>-»-»" 
FORI=0TO800 ： NEXT ： HN-1 ： KT-0 ： GOTO20 

rem wm wm 

R8-INT (4*RND (1)) : HN-l 
IF R8=l THEN B0-1 
IF R8=2 THEN BO-2 
IF R8=3 THEN BO-3 


► “Fuzzy” つてウルテイマ 1U からもってきましたね？ 


小林敉 （17) 良野 m 






1030 IF (R8 = 8) + (JT-1) THEN 480 
1 040 RHNT(10 本 RND (1))+1 
1050 IF R9=1 THEN 1070 
1060 G0T01 100 

1 070 CURSOR TX-2, 12:PRINT-：i パホ * ゥ .IT *:FOR い 0TO 1 000:NEXT 
1080 CURSOR TX-2,I2:PRINT* • ミキ tA 力！！ FOR I = 0TO1250：NEXT 

1890 CURSOR TX-2,12:PRIN*T - 

1100 CURSOR TX + 2,14：PRINT B0$ (BO) 

1110 FORI=0TO100：NEXT 
1120 IF (X-TX)<8 THEN 1140 
1130 GOTO1180 
1140 IF JU-1 THEN 1180 
1150 IF JU-2 THEN 1180 
1160 IF (X-TX)<1 THEN 1180 

1170 CURSOR X,12 ： PRIKT-a^' ： KT=KT-450 ： HUSIC"-C-D~D- ： GOSUB7010 
1180 CURSORTX+2,14：PRINT BK$ (BO) 

1190 CURSOR X,12 ：PR I NT" ~ 

1 2 0 0 H 卜 INT(6 本 RND (1)) 

1210 IF Hl<4 THEN 20 

1220 GOTO 480 

1230 rem mat クラフ， mm 

1248 CURSOR TX,14:PRINT S$(L) 

1 250 KM-INT (2 本 RND(1)) : HN-1 

1 260 IF (KM=1)* (JT=0) THEN 1280 

1270 GOTO540 

1280 P-IHT (6*RND(1)) + 1 

1290 IF TX+P>37 THEN P=0 

1300 F0RI-1T0P 

1310 CURSOR TX+I,14：PRINT S$ (L) 

1320 NEXT 
1330 TX-TX+P 

1349 CURSOR TX+2,14 ： PRIKT - - 
1 350 CURSOR TX+2, 15:PRINTV\~ 

1360 CURSOR TX+2,15:PRIN*T - 
1370 CURSOR TX+2,16 ： PR I KTV\~ 

1380 CURSOR TX+2,16 ： PRINT" * 

1390 IF (X-TX-2) + (X-TX-1) + (X-TX-0) THEN AT=1 ： GOTO141 0 
1480 GOTO1430 


1418 

1420 

1430 

1440 

1450 

1468 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1569 

1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1816 
1826 
1830 
1840 
1850 
1860 
1870 


CURSOR X,12:PBINT •: mOBI-3TO20:POKE$FlA, I:USB ($F14) : KEXT ： KT-KT-500 
CURSOR X,12 ： PRIHT" *GOSUB7018 
CURSOR TX,14：PRIKT S$(L) 

F0RI-1T0P 

CURSOR TX-I,14：PRINT S$(L) 

NEXT 

TX-TX-P 

Ul-INT (6*RND(1))+1 
IF Ul<3 THEN 20 
G0T0489 

rem mm A-h ■ 

AT-0 ： HK-1 

CURSOR TX,14：PRIHT S$(L) 

R5-IHT ((10-UY)*RND(1))+1 
UY-UY+1 

IF UY>8 THEN UY-8 

IF (R5-1)* (JT-0) THEN 1590 

GOTO480 


Rl-INT (3*RND (1))+1 
CURSOR TX+2, 14 ： PRINTV<>X* 

IF Rl = l THEN CURSOR TX-1,12 ： PR IKT"a* - ： FOR I - 0TO 7 5 0 ： NEXT 
CURSOR TX+2,14:PRINT - 0 ■ 

CURSOR TX+3,15 ： PRINT* — h" ： FORI-0TO500 ：NEXT 
CURSOR TX-1,12 ： PRINT" - 

IF (X-TX<1) + (X-TX>3) THEN 1670 
KT=KT-850 ： HUSIC - -«E#G" ： GOSUB7019 
CURSOR TX+3,15 ： PRINT' ~ : GOTO480 

REM ■ レイ ■ 

HH-3：IF JT-1 THEN 480 
Y2-INT (3*RKD(1))+1 
IF Y2-1 THEN 486 


FORI-0TO3 

CURSOR TX+2,14:PRINT_『 「「000 
CURSOR TX+2,14:PRINT - 「「rOOO 
CURSOR TX+2,15 ： PRIHT"jjjOOO 
CURSOR TX+2,15 ： PRINT" JJJ 000 
NEXT 


■: P0KE$F1A,RKD (1)*2+l：USR ($F14) 

* ： P0KE$F1A,RKD (1)+1 ： US8 ($F14) 

■: P0KE$F1A,END (1)+ 1：USR ($F14) 

•: P0KE$F1A,RKD (1)*1.2+l：USR ($F14) 


IF (X-TX>0) * (X-TX<7) THEM 1800 
GOTO1850 


CURSOR TX,14：PRINT S$ (L) : CURSOR X,15：PRINT K$ (N) 
CURSOR TX,12:PRINT- ナント - : FOR I-0TO750 ：NEXT 
CURSOR TX-2,12 ： PRIHT"xYf3^>>" ： FORI-0TOl500：NEXT 
CURSOR TX-2,12 ： PRINT* - 

KT-KT-1500 ： GOSUB7010 ： GOTO20 
Yl-INT (6*RND(1)) + 1 
IF Yl<3 THEN 20 
GOTO480 


1880 REM H ハキ ， m 
1890 HN-2 ： IF JT-1 THEN 480 
1900 Y2-INT (7*RND (1)) 

1910 IF Y2>-1 THEN 480 

1 920 IF (X-TX-3) + (X-TX-4) + (X-TX=5) THEN F=1 ： GOTO1950 
1930 IF (X-TX-2) + (X-TX-3) + (X-TX-4) THEN F-2 ： GOTO1950 
1940 GOTO480 


1 950 Yl-INT (4*RND(1)) 

1960 REM IF Yl-1 THEN 460 
1970 IF F-2 THEN 2140 
1 980 REM ■ ホクトラカンケ、（シ入キ •） 
1990 IF TX>27 THEN 1930 


2000 

2010 

2029 

2036 

2040 

2050 

2060 

2870 

2880 

2090 

2108 


TX-TX+1 --CURSOR TX,14：PRINT S$ (L) 

CURSOR TX,12 ： PRIKT* ； S77 ! !" 

F0RI-1T0 6 ： P0KESF1A,I * 12：USB ($F14) 
CURSOR TX + 2, lCPRINTW :CUBS0RTX+2,14 
CURSOR TX+2,15 ： PRINT - --" ： CURS0RTX+2,15 
CURSOR TX+2,16 ： PRINT*\/- ： CURS0RTX+2,16 
CURSOR TX,12 ： PRIHT* ~ 

CURSOR X,15：PRIHT K$(N) 

CURSOR TX,14 ： PRINT* 0000 00 

CURSOR TX,14：PRINT S$(L) 

CURSOR TX.12 ： PRIKT - 本クト *FOR I»0TO500 ： 


PRIKT" 

PRINT" 

PRINT*" 


►あの一，昔あった “ トムトムソフト ” を復活させて S-OS のプログラムを手ごろな価格 
で供給してはどうでしょうか。 末吉宏 （ 17 ) 兵庫県 
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r" ： HUSIC"+#C* 


+ # c - 


2110 CURSOR TX,12:PBIK*T ラ i ンケ * キ - :FORI-0TO 1 500:NEXT 
2120 CURSOR TX,12 ： PRINT' ' ： KT-KT-900 

2130 CURSOR X,12 ： PRINT - >*7! !"：FOR I *0TO1 000 ： NEXT：CURSOR X,12 ： PRINT- 
2140 REM ■■ ノナントセ / ケン Hi 

2158 CURSOBTX,14：PBINT S$ (L) 

2160 CURSOR X,15：PRINT K$(N) 

2170 TX-TXM ： CURSORTX,14 ： PRINT S$ (L) 

2180 CURSOR TX+1, 12:PRINT、” ！ FOR い 0TO500 :NEXT 

2190 CURSOR TX+2,15 ： PRINT" ——•： CURSOR X + 2,15:PRI NT 一 :FOR 卜 50TO0 STEP - 2. S 
1 入 , I:USR ($F14) : NEXT 
2200 HN-3 ： KT-KT-400 
2210 CURSOR TX+1,12 ： PRINT" - 

2220 CURSOR X,12:PHI NT - コ • フフ r:FOB 卜 0TO10e0:NEXT 
2230 CURSORTX + 2,15 ： PRINT* | ■: CURSOR X,15：PRIHT K$ (H) 

2240 CURSORTX,14：PRINT S$(L) 

2250 CURSOR X,12 ： PRINT' ■: X-X-1:GOTO 20 

2260 REU ■ ajr* ■ 

2270 HN-3：IF JT-1 THEN 480 
2280 Y2-IHT(7*RND (1))+1 
2290 IF Y2-1 THEN 2510 
2300 IPTX->23THEN 2536 
2318 IF Y2>-5 THEN 480 
2320 SQ-IKT(15*RND (1))+1 
2330 IF X>34 THEN SQ-35-TX 
2340 FORI-0TO2 
2350 CURSOR TX+2,1S:PR1NT _ 

2368 CURSOR TX+2,15 ： PRIHT* 

2370 CURSOR TX+2, 15 ： PRIHT- in •: MUSIC- 
2388 CURSOR TX + 2, 15:PRINT • しぃ ： NEXT 
2390 FORI-0TOSQ ： POKE$F1A,IKT (RND(1)*50+1) : USR ($F14) 

2400 CURSOR TX^3+I,17：PR I NT"ff*：NEXT 

2410 IF (TX+SQ+2>-X) * (TX<X) THEN CURSOR X,12 : PR I NT - ゥ，！ ** : FOR I - 0TO 7 5 0 : NEXT : GOTO 2 4 
30 

2420 GOTO2470 

2430 CURSOR X,12 ： PRINT - ' ： KT»KT-650 

244 0 CURSOR TX,12：PR I NT"*：FOR I -0TO500 ：NEXT 

2450 CURSOR TX-2,12:PR I NT* コウ J クケン •: FOR I-0TO1 0 00 ：NEXT 

2460 CURSOR TX-2,12 ： PRIHT' - 

2470 FORI-0TOSQ 

2480 CURS0RTX+3+I,17 ： PRIKT" •: NEXT 
2490 G0T028 

2500 Y3-IHT(2*RND(1))+1 
2510 IF TX<7 THEN 2550 
2528 IF Y3-1 THEN 20 
2530 FORI -0TO2 

2540 CURSOR TX-I,14：PRINT S$ (L) : NEXT ： TX-TX-I ： GOTO20 
2550 Y3-INT (2*RND (1)) + 1 
2560 IF Y3-1 THEN 20 
2570 FORI -0TO2 

2580 CURSOR TX+I,14：PRINT S$ (L) : NEXT ： TX-TX+I ： GOTO20 

2599 REU ■ シ :> ゥ ■ 

2600 HK-3：IF JU<>0 THEN 480 
2616 IF Ul-1 THEN 800 

2620 Y3-INT (7*RND (1))+1 
2630 IF Y3>1 THEN 2650 
2640 GOTO 480 
2650 ZX-X-TX 
2660 IF IX-7 THEN 2710 

2670 IF ZX-5 THEN 2840 

2680 IF ZX-2 THEN 3150 

2690 IF ZX-3 THEN 2990 

2700 G0T0488 

2710 HEM ■■ ナントセイケンノキャク ■■ 

2720 IF TX>18 THEM 480 

2730 CURSOR TX,15：PRINT K7$ 

2740 CURSOR TX+2,13 ： PRIHT* 00¢*,000100 C>//0OOO/ - 
2750 CURSOR TX+2,13 ： PR I NT* 0C» 000 ": P 

2760 CURSOR TX + 4,10：PR IKT*kj9!" 

2770 CURSOR TX+4, 12 ： PRIKT* 0000 ~'OO 
2788 CURSOR TX + 4, 12 ： PRIHT" 〇〇 〇〇 

2790 CURSOR TX+4, 12 ： PRINT" 0«>C>000« 1 ~~ 1 〇 «>" : POKE$F 1 A,1：USR ($F 14) : FORI -0TO5 

: NEXT 

2800 CURSOR TX+4,12 ： PRIHT" &00 &00000 〇〇 - 

2818 CURSOR TX+4,1 0:PR IW " 

2820 TX-TX+10：CURSOR TX,14：PRINT S$(L) 

2830 KT-KT-500 ： GOTO3350 
2849 reh ■ ナント ：< ウケ•ンシ > ゥ mm 


2850 CURSOR TX-2,15 ： PRIHT _JJJ 1 JJJ " ： MUSIC - R* 

2860 CURSOR TX-2,14:PR1NT - J 0 J * ： HUSIC"+«C" 

2870 CURSOR TX-2,13 ： PRINT* JJ JJ ■: hUSIC*+#D" 

2880 CURSOR TX-2,13 ： PRINT* - ： M0SIC-+«E" 

2890 CURSOR TX-2,14 ： PRINT" 0 ■: HUS IC"+#G" 

2900 CURSOR TX-2,1S:PRINT- ■ •: HUSIC"+«B" 

2910 CURSOR TX,15：PRIKT K7$ 

2920 TX-TX+3 ： KT-KT-1000 
2936 CURSOR TX,14：PRIHT S$(L) 

2940 CURSORTX+2,14：PR INT _ --o：.* 

2950 CURSOR X,12 ： PRINT*? # 7!! •: FOR I -0TO1 000 ：NEXT 
2960 CURSOR TX+2, 14 ： PRINT*" o * ： CURSORX, 12 ： PRIHT" - 

2970 CURSOR TX-1,12:PR 1 NT ナント -：FOR I-8T050 0：NEXT 
2980 CURSOR TX-2, 1 2 : PR I NT " コウ ケ ヘンシ s ウ - : F0RI • 0TO5 0 0 : NEXT : CURSORTX-2, 
•: GOTO3350 

2990 REM ■ レ，キ t ククウフー mm 
3000 CURSORTX,15：PRINT K7$ 

3010 CURSORTX, 12:PRINT•”-!!- 

3020 FORI-0TO15 ： POKE$F1A, (RND (1)*20)+200 ：USR ($F14) 


* ：FORI -0TO15：HEXT 


OOOX><* .-POKEJFIA, 2：USR ($F14) 
00000 - 


3630 

CURS0RTX-1, 14 

PRINT- 

/OOO0»._ 

.0000 

• 

3840 

CURSOR X+3, 12 

PRINT- 

i • フ！ ■ 



3050 

CURSORTX-1, U 

PRINT* 

/oo^e*|_. 

¢00 


• 

3060 

CURS0RTX-1, 14 

PRINT* 

000 C* 〇〇 


3078 

CURSOR X + 3, 12 

PRINT- 

• 



3080 

CURSORTX-1, 14 

PRINT" 

\^oooo/ 

办 0000 

.Bi 80000 
0000 

〇〇 • 

3090 

CURSORTX-1,14 

PRINT' 


3100 

NEXT 





3110 

CURSOR TX,12：I 

•RINT** 

• 




3129 CURSOR TX,14：PRIKT S$ (L) 

3130 CURSOR TX,12 ： PRINT ' ナント _ : FOR!-0TO500 ：NEXT 

3140 CURSOR TX-2, ]2:P.RIN*T いキ t ククウフ —：FOR い 8TO80 0 : NEXT : CUBSORTX- 2, 12 : PR I NT* 


114 Oh ! M 2 1986.10. 


►私の XI がゴールドに見えてきたので磨いてやったら「新同」になってしまった。皆さん 
もう知っていると思いますが「ピカール」は偉大です。 五味淳（19> 千葉県 









3158 

3160 

3170 

3188 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3356 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3569 

3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3788 
3710 
3720 
3738 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4 000 
4010 
4620 
4030 
4040 
4 0 5 0 
4060 
4070 
4 880 
4090 
4180 
4 110 
4 120 
4130 
4140 
4150 
4 160 
4170 
4180 
4190 
4 200 


' : KT = KT - 800 ： GOTO 3350 
REM wm リ，キヤククウフ*麵 
CURSOR TX , 12 : PRINT-t イフフ.！ • 

FOR い 0 TO 10 

CURSOR TX + 1 , 13 ： PRINT " | | OCx >| | 〇<^*>〇 10 〇〇«>〇/| * : P 0 KESF 1 A , 288 ：USR ($ F 14 ) 
CURSOR TX + 1 , 13 ： PRINT " *< X > &<X> 〇〇 - 

/OOOOI / OOOiOC 41000 ¢> 0 / I ■: P 0 KE $ F 1 A , 158 ：USR ($ F 14 ) 
0000 &< X > 〇〇 0000 - 

|< K >| —«&〇〇〇*>〇 10 〇«ゃ〇/丨 ~ : P 0 KESF 1 A , 100 ： l T SR ($ F 14 ) 

OO 0000 OO 0000 " 

yoooo/ 


CURSOR TX+1,13 ： PRINT- 
CUKSOR TX+1,13 ： PRINT" 

CURSOR TX+1,13 ： PRIHT- 
C(JRSOS TX+U 13 ： PRINT' 

CURSOR TX+1, 13 ： PRIHT" | | 〇〇 =1\ 〇〇 «#0 \〇〇 


W\ * ： POKE$F1A,B0 ： USR($F14) 
■/I * ： P0KE$F1A, 90 ： l T SR ($F14) 


: P0KE$F1A,155 


,187 


_ :MUSIC"-#F-#C-#G* < 


CURSOR TX+1, 13 ： PRINT" 〇〇 〇〇 〇〇〇 0«>«>00> 

CURSOR TX+1,13 ： PRINT" | 〇〇 | — 〇〇 0010 〇 §0 
CURSOR TX+ 1,13 ： PR I NT" 〇〇 0000 0C> <XX» " 

CURSOR TX+1, 13 ： PRINT"* | | /0 〇 «*!> 續 000 CK>/| * 

CURSOR TX+I,13:PRINT- 0000 000 00 000 C> " 

CURSOR TX+ 1,13: PRINT" | | 凸〇〇 | | ^OClOO*0O<X>C>/ | - : P0KESF1A,1 
CURS.OR TX+1, 13 ： PBINT~ 0«K> QO ' ：NEXT 

CURSOR TX,14：PRIKT S$(L) 

CURSOR TX,12:PRINT " ナント FORI - 0TO750：KEXT 

CURSOR TX-1, 12:PRINT“ ， J? キ〇クウ： ： FOR 卜 0TO800 : NEXT : CURSOR TX-1,12 : PR I NT“ 
•: KT-KT-900 
GOSUB7010 ： GOTO20 

rem o ■ ラオウ wu 

HK=2：IF JU<>0 THEN 480 

FX=INT (5 本 RND(1))+1 

ON FX GOTO 480, 3500, 3610 

REM WU ラオウノコク ^ キ 1 WM 

IF (X-TX«3) + (X-TX-4) THEN 3439 

GOTO480 

FORI = 1TO30 ： POKE$F1A,I + 60*RND (1)：USR ($F14) 

CURSOR TX,12:PRINT* • ァ ？！- 
CURSORTX + 2,15: PRINT**—~, OCO~~' - 

CURSOR TX+2,15:PRIN*T ■: NEXT：CURSOR TX,12 ： PRIKT _ - 
CURSOR X-l, 12 ： PRINT*7*7!* : FORI-0TO1200 ：NEXT 
CURSOR X-l,12 ： PRINT* * 

KT=KT-1100 ： GOTO20 
rem «■ ラオウノコウケ • キ 2 wm 
IF X-TX<>2 THEN 480 
CURSOR TX,15：PRINT K7$ 

CURSOR TX,14 ： PRINT" 〇み 1 ■*>«# 000 _ : MUS 1 C _ RR- 

CURSOR TX,14 ： PRINT" 000 〇〇 000 - 

CURSOR TX,12 ： PRINT**7J»r ! !"" 

CURSOR TX,14 ： PRINT" o^OO/W / 〇〇 001 |MUSIC*R - 
CURSOR TX,14 ： PRINT" dOO ¢¢>00 
CURSOR TX,UsPRINT* • 

CURSOR TX,14：PRIHT S$(L) 

GOSUB7010 ： KT-KT-1300 ： GOTO20 
REM M ラオクノ 3 ウケ • キ 3 M 
IF X-TX<>2 THEN 480 

CURSOR TX+2, 15:PRlN*r J 0C>r-- :MUSI(T-E-D~ :FORI-8TO80 0:NEXT 
CURSOR TX-2,12:PRINT " ヒコウノ ヒ トフ“： FOR I-0TO750:NEXT 
CURSOR TX-2,12 ： PRINT* ヲフイタ•： FOR い 0TO17 50 : NEXT 

CURSOR TX-2,12 ： PRIHT" * 

CURSOR TX+2,15:PRINT - OO - 
CURSOR TX,15：PRINT K7$ 

IF TX>4 THEN TX-TX-3：CURSOR TX,14:PRINT S$(L) 

TI$=*" 000000~ ： RT-1 : GOTO20 
HEM m ケンタ tx ウノフ ! T M 
rem wm セイケンフ ♦ キ wm 
KT=KT-1：IP X-TX<0 THEN 410 
CURSOR X-l, 15:PRIN*T , —- 
CURSOR X+l, 12 ： PRINT' 7 ?r 
CURSOR X-l,15 ： PRINT* - 
IF X-TX<4 THEN TS-TS-40 ： MUSIC*C" 
ffl-INT (3*RND(1))+1：CURSOR X+1 ， 12:PR IW * 

IF Wl<=2 THEN 20 
GOTO410 

rem ■ ヶリ mm 

JCT-KT-3 ： IF X-TX<1 THEN 410 
CURSOR X+l, 12 ： PRIHT~*7J»5 ! * ： KT-KT-1 
CURSOR X-2,16：PBINT K$(3) 

IF X-TX<S THEN TS-TS-80 ： MUSIC"A* 

W2=INT (3*RHD (1))+1 

CURSOR X-2,16：PRIKT K1$ ： CURS0R X+l, 12 ： PRIHT" * 

IF W2<-1 THEN 20 
GOTO410 

rem wm ニシシ ‘ ンクゥバ Mi 
KT-KT-20 ： IF (YA-1) + (YA-2) THEN 3930 
IF YA-0 THEN 3940 
GOTO3950 

CURSOR X+l,14 ： PRINT" |<yo L， * ： KT-KT-3 ： GOTO3960 
CURSOR X-l, 14 ： PRINT**>-H>O l " 

CURSOR X-2,12:PRINT * •本クトシンケン"： FOR 卜 0TO 1 0 0 0 : NEXT 
CURSOR X-2,12:PR1NT* • ニシニンクウ a 「 ：FOR I = 0TO1 000:NEXT 
CURSOR X-2,12 ： PRIHT- * 

CURSOR X-1,14 ： PRINT" 〇〇 * 

IF YA-0 THEN 410 
R3-IKT (5*RND(1))+1 ： YA-0 
SC-SC+ (R3*60) 

GOTO20 

rem ■ r ンカイヶン wm 

KT-KT-40：IF X-TX<>3 THEN Z-0 
IF X-TX-3 THEN Z-I 
CURSOR X-l,15：PRINT K$(N) 

CURSOR X-l, lCPRINT-i-OC^L- 
iF Z=0 THEN 4160 

CURSOR X-4,12: PRINT" ホクトサ - ンカイ h':MUSI(T#D#C#D - 
FORI=8TO800：NEXT 

CURSOR X-4, 12:PRINT-3 ビ 3 ウコ * r " ：FOR I-0TO500：NEXT 
CURSOR X-4, 12 ： PRIHT" シヌ！ -: FOR I -0TO1 008：NEXT 

R4-IKT (7*8ND (1)) + 1 
IF (い 10) + ( い 6) + ( い 5) THEN 686 0 
CURSOR X-4,I2:PRINT~ - 

CURSOR X-l,14 ： PRINT" * 

CURSOR X-l,1S ： PRINT- - 
IF Z=0 THEN 410 
GOTO6350 


►昔々 K 2 E や1200で WICS を愛用していたので Fuzzy BASIC の機能を見て懷しさでいっ 
ぱいです〇あとコンパイラがあればいうことなしなんだけどなあ。早く故っけておくんな 
せい。 福井崇収（〗7> 富山県 
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4210 REM OB 100 レフケン H 

4220 IF X-TX<>3 THEN KT=KT-60 ： Z=0 


4 230 
4 2 4 0 
4 2 5 0 
4260 
4270 
4 280 
4290 
4300 
4310 
4 320 
4 330 
434 0 
4 356 
4360 
4370 
4380 
4390 
4 4 0 0 
44 10 
44 20 
44 30 
44 4 0 
4 4 5 0 
4 4 6 0 
4470 
4480 
4490 
4500 
4510 
4520 
4 530 
4540 
4 558 
4560 
4570 
4580 
4590 
4666 
4610 
4620 
4630 
4648 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4 740 
4758 
4760 
4770 
4780 
4790 
4800 

4819 

4820 
4830 
484 9 
4850 
4860 
4870 
4880 
4890 
4 960 


IF X-TX-3 THEN Z-l 
CURSOR X-l,15：PRINT K$(K) 

CURSOR X-2, 12:PRINT" ア 5”？. • ■ 

FOR 卜 1TO30:POKE$F1A, (RND (1)*20)+10：USR ($F14) 

CURSOR X-1,14 ： PRINT"— —- 
CURSOR X-1,14 ： PRINT ，> 〇〇 〇〇 " 

CURSOR X-1,15:PRINT —" 

CURSOR X-l, 15 ： PRIKT-" 

CURSOR X -1,16：PR I NT"-- 1 00(-000—~ 

CURSOR X-1,16 ： PRINT~ 〇〇 〇〇〇 - 
NEXT 

CURSOR X-2,12 ： PRINT" * 

IF Z-0 THEN 410 

IF (L«9) + (L-5) f (L = 10) THEN 6860 
CURSORX-2, 12:PRIN*T - 

CURSOR TX,13：PRINT S$ (L) 

CURSORX-1,15：PRINT K$ (N) 

CURSOR TX,17 ： PRINT' 

FORI-1T0110 ： P0KE$F1A, (RND (1)*20)+1 ： USR($F14) 

CURSOR X,13 ： PRIHT"\<N> <N>\" 

CURSOR X,13:PRINT_ O0\<N> " 

NEXT 

CURSOR X,14 : PRINT" - 
CURSOR X-2,12 ： PRINT~ “ 

CURSOR TX-1,13 ： PRINTS1$ 

CURSOR TX-2, 13 ： PRIHTV» ―0000 «>* 

FORI-0TO250：NEXT 

CURSOR TX-2, 13 ： PRINT - 00000 C 3 " 

CURSOR TX-2, 17 ： PRINT"**/\" : MU SIC"-D" 

CURSOR TX-2, 15 ： PRINT>*tf? - 

CURSOR X,12 ： PRINTV^h~ ： FORI »0TO 75 0 ：NEXT 

CURSORX-2,12:PR IW ヒャクレフケン " 

FORI-0TO2500：HEXT 
CURSORTX-2,17 ： PRINT* 一 

CURSORTX-2,15 ： PRINT- - 
CURSOR X,12 ： PRINT- * 

CURSOR X-2, 12 ： PRIHT" " 

CURSOR TX-1, 14：PRIHT S$(L) 

FX-INT (6*RND (1))+1 

OH FX GOTO 4630,4650,4670 ,4680,4710,4720 

CURSOR TX-3,12:PRINT 、マエノ ケン - : FOR I»0TO1 000 ：NEXT 

CURSOR TX-3,12 ： PRINT*i W モキカンワ ！“：FOR I = 0TO1500:NEXT:G0T04740 

CURSOR TX-3, 12 ： PRINT ， # A7A 7 a,.. " ： FOR I = 0TO 1 0 0 0 ： NEXT 

CURSOR TX-3,12:PR I NT* ナントモナイ t*!FOR I -0TO1S00 ： NEXT：GOTO 4740 

CURSOR TX,12:PRINT~ キサ 7!!*:FOR 卜 0TO1500:NEXT:G0T04740 

CURSOR TX-2,12:PRINT~ コレ a 7^"：FOR I -0TO1 000 ：NEXT 

CURSOR TX-5, 12:PBINTy ン セ フノ ケンホ ，* > : F OR I = 0TO15 0 0 : NEXT 

CURSOR TX-5, 12 ： PRINT' ホクト、シンケン！ - ： FOR I = 0TO2 0 8 0 ： NEXT ： GOTO 4740 

CURSOR TX-2, 12 ： P8INTV7x^ コパ ！ - : FOR 卜 0TO15 0 0 : NEXT: GOTO 4 7 4 0 

CURSOR TX-2, 12:PRINmuWir!! ■•: F OR I - 8T01 0 0 0 ： NEXT 

CURSOR TX-2, 12:PRINT - タスケヲクレ！ ** : FOR I = 0TO15 9 0 ： NEXT ： GOTO 4 7 4 0 

KT-KT-80 ： GOTO6350 

REM ■ マエシ、ンフ . ■ 

IF X<-9 THEN JT=0 ： GOTO410 
JU-JU+1 

IF JU>1 THEN 4840 
CURSORX-1,15：PRINT Kl$ 

CURSOR X-l, 17 ： PRINT" * : 

IF JU-1 THEN CURSOR X-l, 12：PRINT KS (5) : MUSIC"R0' 

IF X-NJ THEN JK-0 
CURSOR X-l, 12 ： P8INT K2$ 

IF JU-1 THEN CURSOR X-5, 10：PRINT K$ (6) : GOTO 410 
CURSOR X-5, 10：PRINT K3$ ： MUSIC"R~ 

X-X-7 

CURSOR X,15：PRINT K$(l) 

IFBK<>0 THEN 4910 
IF RO-0 THEN 4930 

MJ-IKT(30*RND(1))+1：IF KJ<15 THEN 4900 


4910 BK-1 

4920 IF JK-0 THEN NB=1 ： GOTO6920 
4930 T1-INT(50*RND(1))+1 
4940 IF T1 ベ THEN BN=0 ： RO=0 
4950 KT-KT-5 ： JU-O ： JT=0 ： GOTO418 
4960 REM ■ ウシ t> シ、ンフ . 画 
4970 IF X>27 THEN JT=0 ： GOTO410 

4980 CURSORX, 15：PRINT K7$ ： KT-KT-5 ： CURSORTX,14：PRI NT S$(L) 

4 990 X-X+2 ： CURS0R X,12 ： PRINT~ : MU S I (T RIT 

5 0 0 0 CURSOR X,12 ： PRINT" 0000 00 〇〇 - 

5810 X-X + 4 ：CURSOR X,10 ： PRINT~ /B|\*<>OOOOCO// ヽ办〇〇〇〇〇〇厂 ：MUS I C “ R0R" 
5020 CURSOR X, 10 ： PRINT" 000 - 

5030 X-X+ 2 ： CURS0R X,15 ： PRINTK$ (N) : JT-0 ： GOTO410 
5040 rem 国 a 力 • ンケン n 


5050 KT-KT-40 
5060 IF X<9 THEN 410 
5070 IF X-TX-2 THEN AT=1 
5080 CURSOR X,12 ： PR I NT~ 9j-?" 

5090 CURSORX-1,15 ： PRINT _ ' — ** ： FOR I » 0TO 5 0 0 ： NEXT 
5100 CURSOR TX,14：PRINT S$(L) 

5110 CURSOR X-l, 17 ： PRIKT~ ■: CURSOR X,12 ： PRIKT" " 

5128 CURSOR X-1,15 ： PRINT~ - 
5130 CURSOR X,15：PRINT Kl$ 

5140 CURSORTX, 14：PRINT S$ (L) 

5150 CURSOR X,11 : PRINT K$ (4) : FOR I-0TO500 ： NEXT：CURSOR TX,14：PRIHT S$ (L) 
5160 CURSOR X,11：PRINT K4$ 

5170 CURSOR X-3, 10：PRINT K$ (6) : FOR I-0TO500：NEXT 
5180 CURSOR X-3, 10：PRINT K6$ 

5190 CURSOR TX,14：PRINT S$(L) 

5 2 0 0 X-X- 6 ： CURS0R X,15:PRINT K$ (1) 

5210 IF AT=0 THEN KT-KT-5 ： G0T0416 
5220 A 卜 0 

5230 CURSOR X - 2,12:PR I NT ■コウ シュ nf ン ケン -: FOR I-0TO1750 : NEXT 
524 0 CURSOR X-2, 12 ： PRINT _ ' 

5250 IF (L-5) + (L«6) + (L = 9) + (L-10) + (L-7) THEN 6860 
5260 CURSOR TX-1, 〗 2 : PR I NT~ ク * キ ？ ！ ** : MUS 1 C " - FRRRRR " 

5270 CURSOR TX-2 , 1 2 : PRI NT - コ * キデキキ .“： MU S I C - - #C 0R - It GR-GR - DR - #DRR- 
5280 CURSOR TX-3,12:PR1NT - " 


► 9 月号， P .87 の杉元さん。私のもドライブ1のほうが0よりたいへん静かです。 

篠旧正樹 （16) 千葉県 
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5296 
5368 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
54 00 
54 10 
5420 
54 30 
5440 
5450 
5460 
5470 
5480 
54 90 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 

5759 

5760 
5770 
5780 
5790 
5860 
5810 
5826 
5830 
5840 

5859 

5860 
5870 
5880 

PRINT 

5890 

5960 

5916 

5920 

5930 

5946 

5950 

5969 

5970 
5980 
5990 
6000 
6010 
6028 
6030 
6 040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 

6169 

6170 

6189 

6190 
6200 
6210 
6220 
6230 
624 0 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 


G0T06356 

REM ■ カイコフケン ■ 

KT-KT-45：IF X-TX<>2 THEN AT=0 ： GOTO5330 
AT-1 

CURSOR X,14 ： PRINT*—,0O L- 
IF AT-0 THEN 5380 

MUSIC"-#DE-：CURSOR X,12 : PR IW ホタト -: F01U *0TO600:NEXT 

CL’RSORX-2, 12:PR1N*T カイコツケン •： FOR 卜 0TO 1 250 :NEXT: IF (L>4) * (L<1 0) THEN 6860 
CURSORX-2, 12 ： PRINT _ - 

CURSOR X,14 ： PRINT" ~ 

IF AT 0 THEN 410 
AT-0 ： GOTO63SO 

R2-IKT (3*RND (1))+1：SC = SC + R2*L*50 
rem an シ、ウ八サ • ン wa 
CURSOR X,15：PRINT Kl$ 

CURSOR X,17:PRIN*T - 
CURSOR TX,14：PRINT S$(L) 

CURSORX 1,16:PRINT K$(7) 

CUBSOBX-1,12 ： PRINT"t7????." 

FORI 0TO60 ： POKE$F1A,RND(l)*240tl ： USR(SF14) 

CURSOR X-l, 16 ： PRIKT" 0000000 000000000000000 cjcxjocxxx) -- 

NEXT ： KT»KT-70 

CURSOR X-1,12:PRINT - - 

IF X-TX<>3 THEN 5730 
IF (L-6) + (L-8) + (L-10) THEN 6860 
IF L<>5 THEN 00-1 

CURSOR X-1,16：PRIKT JU$ : CURSORX,15:PR I NT K$(1) 

IF 00-1 THEN 02-l ： G0T05738 

REM WM r シ、ウ M • ンウケル 麵 

CURSOR X I, 16：PRINT JU$：CURSOR X,15：PRIKT K$ (1) 

CURSOR TX,14：PRINT S$(5) 

CURSOR TX,12 ： PRINT^t. " ： FORI-0TO900 ：NEXT 
CURSORX+1,15 ： P8INT-' 

CURSORX-1,15 ： PRINT- —— " 

CURSOR TX,12 ： PRINT - - 

CURSOR X,I2:PRINT" • ウフタド ： FOBI-eTO500:NEXT 
CURSOR X,12 ： PRINT" *：CORSOR X-1,15 : PR I NT - - 
CURSOR TX+1,16 ： PRINT'*~ 

CURSOR X-1,12 ： PRINT-iJjrhv* >* ：FORI - 8T0 1500 ： NEXT 

GJ-IHT (3*RND (1))+1 

CURSOR X-l,12 ： PRINT" " 

CURSOR TX-1,12:PBINT HH$(GJ) : FOR I-0TO750 ：NEXT 
CURSOR TX-1,12 ： PRINT* " 

00-0 ： KT-KT-15 ： G0T06358 
REM ■■■■■■ 

CURSOR X-1,12 ： PRINT - - 

CURSOR X-l,16：PRINT JU$：CURSOR X,15：PRIHT KS (1) 

CURSOR TX, 14：PRIHT S$ (L) 

00-0 ： IP 02-0 THEN 5790 

O2-0 ： GOTO6350 

G0T0419 

rem ■■ ヒコウ mm 

IPX-TX<>2 THEN KT=KT-20 ： Z-0 
IF X-TX-2 THEN Z=1 
D2-IHT (3*RND (1))+1 

IF D2-2 THEN CURSOR X,14 ： PRINT - —000 
IF D2-3 THEN CURSOR X,14：PR I NT - -) 0O L ' 

IF D2-1 THEN CURSOR X,14 ： PR I HT"t t 〇〇〇 1 -*" 

IF Z-0 THEN CURSOR X,14 ： PBINT' ■: GOTO410 

CURSOR X-5, 12：PRINT W$ (D2)；* トイウヒ3ウヲフイ ，-: FORI = 0TO1500:NEXT:CURSOR X-5, 12 ： 


-X+2 ： CUBS0R TX,14：PRINT SS (L) 


' : FORI-8TO500：NEXT 
: FORI- 0101 00 0 ：NEXT 


KT-KT-10 ： IF (L=10) + ( (L-5) * (D2<>3)) THEN 6860 
CURSOR X,14 ： PRIKT" <VOO • 

CURSOR X,14：PRINT * 0000 
CURSORX, 15：PRIHT KS (1) 

CURSOR X, 15 ： PRIKT - - 
ON D2 GOTO 5950, 6000,6020 
CURSOR X,12:PRINT •才 モウ.. • 

CURSOR X,12 ： PRINT'v>7* イ *!! 

CURSOR X,12 ： PRIHT' - 

D3-IHT (5*RND (1))+1 

ON D3 GOTO 6040,6080,6160, 6200, 6270 

CURSOR X, 12:PRINT • オマ i ノイノチ，： FORO-0TO750:NEXT 

CURSOR X,12 ： PRIKT*7h 5 ビ 3 >T : FOR I - 0TO1 000:NEXT:G0T05970 

CURSOR X,12:PRINTT オノレノ フミフ *； H ヲ ■:FOR I■0TO1000:NEXT 

CURSOR X,12:PRINT 、 モイシレ！！！ ■: FOR I -0TO 1299 ： NEXT ： GOTO 5970 

CURSORTX, 12:PRINT- ソンテ .. ' ： FOR I - 8T0 75 0 ： NEXT：MUSIC " + B + BR * 

CURSORTX, 12 ： PRINT - a "r 7*" 

CURSOR TX-1,14:PRINT“ e 「 000000 J\\ 000 | 腫办 0000 V 

FORI - 010150 0 ： NEXT：CURSOR TX, 12 ： PRIHT" ' : GOTO6620 

CURSOR TX,12:PRINT - 9 スケラ ！ - : FOR I -0TO750 ： NEXT：HUS IC"AA* 

CURSOR TX,12:PRINTT •: CURSOR X-1,12:PR I NT - アクトゥパ ： FOR I-0TO750:NEXT 

CURSORX-1 ， 12:PRINT - ヒメイ a •: FOR I•0TO850 :NEXT 
CURSORX-1,12:PRINT、:ji ンナ！ - : FOR I - 0TO15 9 0 ： NEXT 
CURSORX-2, 12 ： PRINT" ' 

CURSOR TX-1, 12:PBIN*T ヲレレレ " ** ： FOR I - 9T0 5 0 0 ： NEXT 

CURSOR TX, 14:PRINT - i 0000 «»o/H\ 0C>C*C>O§Vi «x> //** ： FOR I - 0TO1 0 0 0 ： NEXT 


CURSOR TX-1,12 
CURSOR TX-2,12 
CURSOR TX-2,12 
CURSOR TX, 14 ： PRIKT-L8 
CURSOR TX-2,12 ： PRINT' 


: PR I NT" " : GOTO6620 

: PRINT • コイフ ！ !!! ": FOR I -0TO750 ：NEXT 
: PR I NT* • フララララ • • ••: FORI-0TO 1 0 0 0：NEXT 
0¢,0000 0；§D 00000 XX QOOO/ 
- ： GOTO6620 


' ： FORI-0TO1000：NEXT 


CURSOR TX-3, 12:PRIN*T イ？ク t 力:！クモネ 
CURSOR TX-3,12 ： PRINT* コレ JT 7 ノ ' 
CURSOR TX-3, 12:PRINT • 本クトシンケンカイ ！** 
CURSOR TX-3, 12:PRINT •フラフ 


FORI-0TO10O0：NEXT 
FORI -0TO500 ：NEXT 
FORI- 010128 0：NEXT 
FOR い 0TO 1 0 0 0 :NEXT 


CURSOR TX-3,12:PRINT* • 八，へ , ケ•レレレ *：FOR I -0TO1200 ：NEXT 
CURSOR TX, 14 ： PRINT _ . @ 00000000 " ： FOR I - 0TO15 0 0 ： NEXT 


CURSORTX-3,12 
CURSORTX-2,12 
CURSORTX-2,12 
CURSOR X-3,12 
CURSOR X-3,12 
CURSOR X-3,12 
CURSOR TX,12:PRINT- ヒ a* 
CURSOR TX,14 ： PRIKT - .\« 
CURSOR TX, 12 ： PRIHT' 

REM 


: GOTO6620 
•: FORI * 010130 0：HEXT 


PRINT* 

PRINT** ナントモナイ ！* 

PRINT - - 

PR I NT ■"キサマノョウナケ * 卜，ウ -: FOR1-0TO1000:NEXT 
PR1W れ力 * イカストれウカ•： FORI =0TO 1 500: NEXT 
PRINT' " 


000000. // 00000\\\〇〇〇〇/ 
* ： GOTO6620 


' : FORI* 010150 0 ：NEXT 


► フアンにとって 9 月号のウイングマンの , ii! 事は感動ものでしたが，布沢さんが「仲額夕 
イムズ j にあんなこと書いたらみんなたまげちゃうじゃないです力，。他人に n : . 体を知られ 
ないようにするってのも正義の味 " の醍醐味なんですよ。 広瀬繁樹 （ 16) 岐#貼 
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6360 
6370 
6380 
6390 
6 4 0 0 
6410 
64 20 
64 30 
6440 
64 50 
6460 
6470 
6480 
64 90 
6500 
6510 
6520 
6530 
6 546 
6 550 
6560 
6570 
6586 
6596 
6690 
6610 
6620 
6636 
664 0 
6650 
6660 
6670 
6680 
6690 
6700 
6710 

6729 

6730 
6740 
6750 
6760 
6770 
6780 
6790 
6890 
6810 

6829 

6830 
6840 
6845 
6850 
6860 
6870 
6888 
6890 
6900 
6910 


CURSOR TX,14 ： PR1NT SS(L) 

H-9 ： CURS0RX,15：PRIHT KS(1) 
V-INT(11*RND(1))+1 
IF ff=4 THEN Z-0 ： GOTO6450 
IF ff=5 THEN Z-0 ： GOTO6588 
IF THEN 6470 

IF 卜 7 THEN 6470 
IF W-8 THEN 6630 
G0T0410 

FORI=3TO0STEP-1 

CURSOR TX+1,11：PRINT I ； : MUSIC - + CRRR"：NEXT 
REM CURSOR TX+3,14：PR IKT" - 
CURSOR TX-1,12：PRIKT SHS (V) 

CURSOR TX,13 ： PR1NT"*. - 

CURSOR TX,14 ： PRINT* r v L ■: HUSIC*-E-D' 

FORI-0TO1500：KEXT 
CURSORTX+2,11 ： PRINT" - 
CURSOBTX-f,12 ： PRINT - • 

CURSOR TX,13 ： PRINT" - 
CURSOR TX,14 ： PRINT* " 

CURSOR TX,14：PRIHT Sl$ 

GOTO690 

rem mammmmmm 

CURSOR TX-3,12 ： PRINT" 

CURSOR X-2,12 ： PRINT~^7Ia モウ " 

CURSOR X-2, 12 ： PRINT' シンヲ WA! 

CURSOR X-2,12 ： PRINT* 

R5-INT(10*RND(1))+1 
CURSOR TX-1,12:PRINT SHS (R5) 


: FORI-0TO1C00：NEXT 
: FO8I = 0TO 1 000：NEXT 


CURSOR TX-1,14 ： PRINT", 

CURSOR TX-1, 15 ： PRINT ■- * n . * 

CURSOR TX-1, 16 ： PRINT\ /-> * 

CURSOR TX-1,17 ： PRIHT".|：, * 

MUSIC'-A+C* ： TW-0 
FORI- 010250 0：NEXT 
CURSOR TX-2,12:PRINT* 

CURSOR TX-1,14:PRINT* - 

CURSOR TX-1, 15 ： PRINT** * 

CURSOR TX-1,16 ： PRIHT" ■ 

CURSOR TX-1,17 ： PRIHT - - 

IF L<>1 THEN TN-0 
L-1 ： NE-0 ： GOTO760 
REM ■ GAME OVER ■ 

CURSOR 14,3 ： PRIKT - GAHE OVEB* 

UUSlC'F6ER2E6DH3F8G«E6E6D9Re~ 

CURSOR 11,5:PRINTTY0UR SCORE ； SC<10 
GOTO6830 

CURSOR 11,8 ： PRINT"PUSH [R] KEY ! ! - 
GETD $： IF (D$-* ■) + (D$- _ R*) + (CG-690) THEN 7980 
CURSOR 24, 9 ： PRIKT\0. - 
CG-CG+1 ： GOTO6840 
REM Mi 71f* r キカナイ Wm 
A-INT (5*RN0(1))+1 

CURSOR X,12:PBINT HH$ (A) : FOR I-0TO 758 ：NEXT 
CURSOR X,12 ： P8INT" * 

CU8S0RX-1,14 ： PRIHT* 0000 •: H-8 ： AT-0 ： Z-0 

G0T0418 
6926 REM ■ ? ? ? ■ 

6930 HJ-KJ+3 

6940 CURSORNJ+2,1S ： P8INT*\" 

8950 CURSORNJ + 2,16：PR IKT"S\ _ 

6960 CURSORNJ + 2, 17:PRINT-r 
6970 HUSIC-+A+D+A* 

6980 BN-0 ： NB-1 ： RO-0 ： GO.TO4950 

6 99 0 CURSORNJ-1,16：PR IKTBB* 18 ： MUSIC*+ E5 +C4B + C8R0* ： RT-0 
7000 SC-SC+BB ： KT-KT+1500 ： CURSORNJ-1,16 ： PRINT* •: HB-0 ： R0-0 ： JK- 

7010 REM H ゲンタ tr ウタれカケ A HI 
7020 CURSOR X,15：PRINT Kl$ 

7036 CURSORTX+3,15 ： PRINT* • 

7048 CURSOR X,14：PRIKT K$ (2) 

7656 CURSOR X-2,12:PR I NT - ゥ！！ " ： MUSIC--#C-#D _ 

7060 FORI-0TO800：HEXT 
7970 CURSOR X,12:PRIN*T • 

7080 CURSOR X,15：PRIHT K9$ ： CURS0R X,15：PRINT KS (1) : BETURN 
709¢ REM WM ゲン扣ウノシ：カタ WM 
7100 IF RT=2 THEN HH-2 

7110 ON HN GOSUB 7120,7160, 7288 ： GOTO6780 

7129 REM WM サー コニ ”け ■ 

7130 CURSOR X, UiPRIKT*" 000 &<XXX>\ r * : MU S I C" - C-C 


7140 

7150 

7160 

7178 

7180 

7190 

NEXT 

7260 

7210 

7220 

7230 

7240 


CURSOR TX,14：PRINT S$(L) 

F0RIl-lT04 ： CURS0RTX-2,12：PRINT ZS$(I 1) : FOR I -0TO300 ：NEXT I, I 1:RETURN 

REM m ホクトシンケン广 t ラレタ ■ 

CURSORTX,14：PRINT S$(L) 

CURSOR X,15：PRIKT K$(l) 

CURSOR X,12 ： PRINT"*" 33 **： FORI-lT08e ： P0KESPlA,ABS (SIN (I) + 1 )* 1 00 +1:USR ($F 1 4): 


CURSOR X,12 ： PRINT~ - 
CURSORX + 2, I 3:PR I NT-!• "：FOR I-0TO500 ：NEXT 

CURSOR X+1,14 ： PRINT" *0 〇〇 /\0 〇〇 \/ 〇〇〇 / | •: FOR I -0TO1 00 0 ：NEXT 
CURSOR X-l,13 ： PRINT"\ay7r-../* 

CURSOR X+l, 12 ： PRINT" 00000 C> r . . J ^<xxx>. : *. 〇〇〇〇〇 . h| \, * ： MUSIC**-F-G" 

:IF (RT-2) * (L<>10) THEN RETURN 
7250 CURSOR TX-1,12：PR I NT"a" : FOR I -0TO1 000：NEXT 
7 2 6 0 CURSOR TX-1,12 : PR I NTT れ： a" ： FOR I - 0TO1 000 ： NEXT 
7270 CURSOR TX-1,12：PR I NT"!!"：FOR I -0TO1750 ： NEXT：RETURN 
7280 REM H ナント H ケンチ * t ラレ？ H 

7290 CURSOR X-3, 12 ： PRINT* ス a. 7 . スハ . 7 : F OR I - 5 eTO 2 STEP - 2 : P OKE$F 1 A, I : U S R け F 1 〇 : NEXT 
7380 CURSOR X+l,14：PRINT \ \*OOC^/E * ： FORI- 50102 STEP-2 ： P0KE$F1A,I：USR ($F14) : NEXT 
7310 CURSOR X+l,16 ： PRINT" ； v/OO^O \ -: RETURN 
7320 REM ■ シ 3 キセ 7 ヲイ WM 
7338 CLR ： PRINT*C _ : 

7340 KT-5000 ： SC-0 ： JK-1 ： R0-1 ： N-1 ： L-1 ： X-33 ： TX-6 ： TS-300 
7350 RT-0 ： DIHNA*(10) : DIMWAS (8) 

7360 CG-0：DIH HHS (5) : DIM Q (8) : DIUW$ (3) 

7370 TI$-' 000000 * ： HH$ (1)- ^^! ! r ： HH$ (2) - - ： HH$ (5) • キ ;& ナイ！ - : HHS (4)- - ウオフ ！！-: H 

HS (3) ■■ ナン， . 卜 - 

7380 ffS (1) 〆 トウイ-:冒 $(2)--”' 厂 ： ffS(3) ■■ィヵ厂 

7390 JU$-~ * ： DIHT1S (7) : DIMT2$ (14) 

►とにかく MZ - 2000で澳字を出したい。だけど漢字 ROM は中古の2000より高い。しょう 
がないから PATTERN 文で1日7文字ずつ作っている。1年あれば JIS 第1水準ができる 
だろうか。 鍋 Hi 保（18> 静岡県 





7400 DIM K$ (7) : DIM S$ (10) : DIM SH$ (11) : DIM B0$ (3) : DIM BK$ (3) : DIM ZS$ (4) 

7410 ZS$ (1) パへへ - : ZS$ (2) = - 7 フノキス * パ： ZS$ (3) 〆 オトコノクビパ ： ZS S (4) ノれサ 7〆 モラフタ！！ 
7420 K7$〆 0000 〇〇«>〇〇 00000 “ 

7430 K4$-" 000 000 ": K 6$ -" 公 00000 〇〇 - 

7440 K$ (7) ——10¢*, 000 *0000 1 - 


7450 K3S-" 
7460 K9$=- 
7470 BK$ (1 ) 『 
7480 B0$ (1)= 
7490 Kl$-" 
7500 SH$ (1)■ 


¢0¢30000¢>00 
00000 - 

": BK$ (2) J}0 OO 

- - : B0$ (2) -"O-OOJ 〇〇 - 

0000 00000 “ 

ライい！ -: SH$(3) パ？フ 〆 


〇〇 ' : K2$=" 000 0¢* OCX> 0000 ~ 


* 00 00 
“ 一 0OJ 〇〇 ^ 


^OO^K> 

• ヒテ ♦: T ! - ： SH$ (9) 


-: BK$ (3) : 
- " ： B0$ (3) - 


*00 00 〇〇 
•¢¢-<>¢>-,0¢- 


: SH$ (4) -~7a* " ： SH$ (5) .Wf 


7510 K$ (4) -"•/0<X* 1 000\\0«»0 \* ： K$ (5) - _ *0 〇〇 ^\^««> 〇〇 //0 〇 <^/* 

7520 K$ (6) --L/B^OCXX^^L \\0 〇 \" ： SH$ (6) -""ib パ ！- : SH$ (7) -“ チ > ! ! SH$ (8) バア B! ! 


7530 SH$ (2) 

7548 K$ (1J 
7550 K$ (2) -* 

7560 K$ (3) 〆 
7570 S$ (1)-- 
7580 S$ (2) 

7590 S$ (3) -* 

7600 S$ (4) -* 

7610 S$ (5) -• 

7620 S$ (6) 

7630 S$ (7) 

7640 S$ (8) -~ 

7658 S$ (9)-- 
7660 S$ (10) - 
7670 Sl$-- 
7680 REU 晒 
7690 HAS (1) - 
7700 NAS (3) - 
7718 NAS (5) -"A 
7720 NAS (7) 

7730 NAS (9) •シュウ 
7740 REM Hi フサ . 


* ラ！ • ： SH$ (10 卜 - ヒ x ! ! ! - : SH$ (11) 〆 へい ！！*' 

Hi OOCX> • ^QOOO ■ 00 CXX> /I ■* 

<>¢>0000 0000 <x> »_ ooxx» /| - 

-/ / 0000 //J ¢0000 • - 

D 000 ^ 00000 | 00000 / \ - 

4i-* ooo» ^ 0.0¢>000 / I • 

♦ ¢000 ■ 0000 ■ 000¢>0 / \ - 
#/\ 000000 ■ 0000 I 00000 I \ " 

f 00000 /1\ J ■■ 0<XX>OO /§\ 轉 

O 0000 ■< 000¢>0 驪 00/ \ " 

0 oocx> |[ 00000 8 /| * 

D 0<XK> 00000 | ¢0¢.¢,¢. I ) - 

0 0000 00000 I 公0000 I \ ~ 

o ©OOOK> 0¢*000 I < \ - 

OCXXXX> 0000 » 000000 * 

7 キノナ 71 


シ w 


NA$(2)-- ス A .- 卜 
KA$ (4) • 、ラ r 
NAS (6 ) ヘイ 

NA$(8)-、r 

NA$ (10) /ラオウ 

ナマエ ■ 


7750 WA$(1)-- 七イケン： r キ 
7760 ffA$(2)-- ァシヶ • 5 - 

7770 WAS (3 ) ••ヒコウヲフク - 
7780 WAS (4) クト f ンカイケン • 

7796 WAS (5) ••■ ホクトヒャクレフケン - 
7800 WAS (6) 〆 コウシニ W ンケン - 
7810 WA$ (7) クトカイコフケン - 
7820 ffA$(8)- 、 クトシ、ゥハサ丫 

7830 rem m 八イケイヲカク m 

7840 FORI=0TO39 

7850 CURSOR I,18 ： PRINT"1 ~； 

7860 NEXT 

7910 ff-1 ：CURSOR 12,3 

7920 PRINT""* <hO. ¢0000* 0. .¢>0. 

7930 GOTO20 

7940 REH MM つ . tru— ク * mm 

7950 RESTORE:PRINTW :CONSOLEC4 0, S0, 24: TEMPO 7 

7968 FORI-1 TO 180：READ MJ$：CUHSOB 39,12：PRIHT UJ$； : CURSOR 1,12：PRIHT CHR$ (7) : 
yUSIC~+AlR2 ■: NEXT 

7970 FORI-1 TO 39 ： CU8S0R 1,12：PRINT CHR$ (7) ； ： HUS IC" + A1R2 ■: NEXT 
7988 REH ■ セフメイ ■ 

7990 PRINT-C* : 


I4| 

l~i 

181 


8eee print* 

8010 PRINT- 
8829 PRINT- 
8030 PRINT 
8040 PRINT" 

8056 PRINT** 

8066 PRINT- 
8079 PRINT" 

8086 PRINT"* 

8690 PRINT' 

8188 PRINT - 
8110 PRINT- 
8120 PRINT" 

8130 PRINT- 
8140 PRINT' 

8158 PRINT* 

8168 PRINT" 

8170 PRINT" 

8188 PRINT**! - , 

8190 PRINT - |SPC| 

8200 PBINT" 1 - 1 

8210 PRINT 
8228 PBINT* 


<<< [ ホクトノオトコ PART1]»>* 

ケンタ〇クヲ 7t フク 710 シ： L ルイノラキトタタカ，ヲクタ*サ 
キ M 4 ：クトシンケンラ * ン ;>3 ウ奴：：ナレル！； ！！• 




t フメイ - 
I~1 " 
161 . 


I ~I 

| 2 | 


ウシ n イト * ウ * * 


ウシ d JUMP" 


I ~ I I 1 

IXI&IVI .... 


フサ * ヲ ixii- 
1 ) セイケンデキ 2) アシケ *! r 

3) ヒコウヲフタ（ 3 シュ * イ ） • 

4) 本クトンカイ ; r ン 5) 本クトヒ t クレフケン ** 
6) コウシ * W ンケン 7)* クトカイ :7 フケン - 
8) 本タト 〆 ュウ CT 


フデヲダス 


| CI .... -V シンクウ A- 
U ( スへ .- 卜 • ：フカウ ） * 


8230 PRINT' 
8240 REM 麵 


(C) LUM SOFT" 


ARRANGED BY YAHATO SOFT & NISHIYA' 


8250 A-A+l ：CURSOR 12,22：PR INT*HIT AKY KEY !!• 

8260 IF A-1500 THEN A-0 ： GOTO7940 
8270 GETA$：IF A$-"" THEN 8250 

8280 REM HUSIC ， *G5F5R2G5R5F4R1F4R1F4R1F4R1F4R1#D5D5R5«D5F5R2#G5R1G5R5G9R0" 
8290 GOTO7320 

8300 REM m フ，〇〇 - ク•ノ r Wk 
8310 DATA 2,0,0,0, ネ， 

8320 DATA ，ウ，ケ，フ 


'ホ 


7,- 




レ，テ，キ ，？， - 
サ，フ，ケ . - - 
»ヲ 


ク，ウ 


パ，，ク 
ヒ，ケ，•，キ 


，ラ， 


レ,キ 
，れ 
nr 

ク 

イ 

ケ，ン 

t, イ， 

t 


つ，う ， i 
，，シ ，、) 
…，フ 
ク，リ ， i 
, フ， 
フ， J,- 


8330 DATA 
8340 DATA ソ 
8350 DATA ! 

8360 DATA ) 

8370 DATA ン 
8380 DATA , 

8390 DATA . 

8400 DATA キ 
8410 DATA 3 
8438 REM 

84 4 0 REM . . , 

8450 REM 4 •、クトノオトコ 

8460 REM ヶ • ンサク —I ン 〆 3 ゥ、 / シン / (SP- 5 030) 
8470 REM 7 レンシ •- z-yf ヒサノリ （700 S-BASIC) 
8480 REM イシ 3 ク •》 5 キ tv (MZ-80B, 2800) 

84 90 REH . . „ ^ =： 

8586 REM 


► ル， 


, ァ 


シ，ン，ケ，ン ， J 
A," %7 ,フ 

ゥ，ラ 〆 

* • ，ハク ，* 

I, サ，レ ， A 


► 私はシャープに文句をいいたい 。 FM 音源 ボードについて くる ツール 「 VIP 」 について 
である。「なんじ やい， あり や！ まるっきり 使いに くい。なんで MML を 使わなかった 
んだ！ 音はなかなか いいのに なあ。まったく最低の ツール 作りや がって！ j という わけ 
で誰かもっとよいツールを！ 松 本 直幸 （16) 静岡県 


特集北斗の男 119 



















- M 試験に出るヌ 

^ 7 m \墨 J 

まとめなので 絲 


Iwai Ippei 

祝一平 

私が万病に効くといわれている講師の祝 
一平である。 

8月号から続いている迷路 ゲーム もいよ 
いよ佳境に入るわけであるが，先月と同じ 
ように今月もいきなり誌面が残り少なくな 
っている。よって，さっさと進める私なの 
であった。 

まずはリスト3が今月の主題となる「ひ 
とつのゲームとしてまとめあげる j 部分で 
ある。ここて•簡単に解説をしておこう。当 
然のことながら，最初にイニシャライズル 
ーチンがある。そこでは画面のイニシャラ 
イズや PCG のセット，自分が起動したディ 
スク番号の保持 ( FF 87 h 番地のビット1， 

0 に入っている），サブ CPU の設定（プロ 
グラムでは「キー割り込みなし」を指定し 
ている）などをしている。そのあとはメニ 
ューを表示し， 

EXIT (終了して IPL 起動） 

MAKE MAZE (迷路を作る） 

SAVE MAZE (迷路をセーブする） 
LOAD MAZE (迷路をロードする） 
PLAY MAZE (迷路をさまよう） 
のうちのどれかを実行することになる。サ 
ブルーチン “ MENU ” はメニューを表示し， 
メニューの何番目が選択されたかを返すル 
ーチンである。使い方は D 6 C 9 h 番地にある 
ようなテーブルを HL レジスタに入れて C 
ALL するだけという，実にお得なルーチン 
である。その次に控えているのが， ON 〜 G 
OSUB と同じような働きをする “ ONGOS ” 
である。これも D 6 FAii 番地からにあるよう 
な飛び先のテーブルを HL に入れておけば 
よいわけである。今回は誌面が乏しいので 
あまり詳しい解説ができない。あとはめぼ 
しいところだけにとどめておく。 

INPUTN 

数字を入力し， HL レジスタに入れて返 
すサブルーチン。 

ATOI 

BASIC の VAL 関数に対応。 INPUTN の 


下働きである。 

CKDISP 

低解像度（200ラインモード）か，高解像 
度 U 00 ラインモード）かを判定するルーチ 
ン。 XI なら無条件に低解像度， turbo の場 
合に RESOLUTION スイツチが HIGH にな 
っているなら高解像度となる。低解像度の 
場合は，キヤリフラグをたてて RET する。 
DBC 9 h 〜 DBD 9 h で，なにやら OUT / IN し 
ているのは，漢字 VRAM があるかどうかを 
チェックしているのである。すなわち XI / 
Xlturbo の判別である。 

ま，以上である。まったくもって不十分 
だろう力す，あとは各自で解析していただき 
たい。 


使い方である 


さて，正しい使い方である。例によって 
ダンプリスト（リスト 1) を打ち込むわけ 
である。世の常として “CLEAR & HD 60 
0” を忘れないように。ただし，ディスクユ 
ーザーであるならば，テープ関係の DCBOh 
〜 DF 14 h は打ち込まなくてよいし，テープ 
ユーザーであるならばディスタ関係の DC 
06 H 〜 DCAFh を打ち込まな〈てよい（本当 
はもっと打ち込まなくてよい部分があるの 
だが)。そして，リスト2を‘‘ GOMAZE.OB 
J ’’，& HD 600，& HDF 14 でセーブしておい 
ていただきたい。このとき，テープ ユーザ 
一であるならば， D 892 h 番地の 00 h を 01 h に 


しておくこと。これによって，迷路データ 
のセーブ，ロー ドの対象がテープになる。 

そいでもって実行の方法であるが，それ 
には先々月と先月の2つのプログラム，“ M 
AZEGEN . OBJ ” と “ STRAY . OBJ ”， そし 
て今月の‘ ‘ GOMAZE . OBJ ” をロードし ， 「C 
ALL & HD 600」 である。ここで注意すべき 
ことはただひとつ，「まだ迷路のデータをデ 
イスタにセーブしないこと」である。 

それではさらに， IPL 起動への道を示そ 
ラ。 

テープ 版の場合 

3本のプログラムを，まとめてメモリ上 
に置いておき， 

SAVEM “CAS : 3 D MAZE . Sys，，，&H 

D 600， & HEDC 8, & HD 600 
でテープにセーブするだけでよい。繰り返 
す力';， D 892 h 番地を 01 h にしておくのを忘 
れないように。 

ディスク版の場合 

あらかじめフォーマットしておいたディ 
スクを，さらに 「INIT “ドライブ番号 ：’ ，j 
で初期化しておく。そして ， 「CLEAR & 
HDOOOj を実行し，3本のプログラムをメ 
モリ上にロードしておく。そして，リスト 
2を打ち込む（まだ走らせないこと)。フォ 
ーマットしておいたディスタをドライブ〇 
に入れて， RUN する。リスト2では DEVO 
$文でディスタに直接書き込みを行ってい 
るので，うっかりして大事なディスクをパ 
一にしてしまわないように注意していただ 
きたい0 


リスト2 IPL 起動ディスクを作るプログラム 


100 MEM$(&HD50O, 11 )=HEXCHR$( ,, 01 00 IB 11 00 D6 21 00 01 ED B0 M ) 
110 SAVEM ”0:3D MAZE.Sys",&HD500,&HEDC8,&H0 
120 DEVI$”0:",16,A$,B$ 

130 MEM$(&HD000,128)=A$ 

140 MEM$(&HD080,128)=B$ 

150 1 

160 MEM$(&HD014,2)=HEXCHR$("00 00") 

170 POKE &HD01E.&H20 
180 A$=MEM$(&HD000,128) 

190 B$=MEM$(&HD080,128) 

200 DEVO$"0 ： ",0,A$,B$ 


120 Oh! MZ 1986.10. 










69 E6 23 22 69 E6 
A3 44 CD C9 DB 38 
64 EB 18 03 CD 4F 
Cl EA CD AF EA 3E 
6B E6 21 0C 0F CD 
11 E4 DB CD 40 E6 
E6 3E 27 32 6B E6 
FF E6 03 32 E3 DB 
DB 06 02 CD 6A E5 
FF 3F AF ED 79 3C 
ED 79 06 3F ED 78 
01 F0 IF ED 78 0F 
00 2C 53 45 54 54 
47 20 50 43 47 00 
00 00 CD B8 E5 FI 
07 CD 49 E6 2B 47 


DB80 

DB88 

DB90 

DB98 

DBA0 

DBA8 

DBB0 

DBB8 

DBC0 

DBC8 

DBD0 

DBD8 

DBE0 

DBE8 

DBF0 

DBF8 


DB00 

DB08 

DB10 

DB18 

DB20 

DB28 

DB30 

DB38 

DB40 

DB48 

DB50 

DB58 

DB60 

DB68 

DB70 

DB78 


CD 11 DC 01 D0 IF 
EB CB A7 ED 79 CD 
01 D0 IF 3A Cl EB 
ED 79 CD 29 D9 3A 
CD 80 DC C3 E0 D8 
02 01 00 80 F5 CD 
C5 CD 26 DC Cl FI 
F3 C9 3A E3 DB F6 
4D D9 3A E3 DB F6 
4D D9 C9 C5 CD 80 
11 00 10 21 00 40 
03 77 23IB 7A B3 
D9 C5 21 00 40 16 
AE DC D5 E5 CD 53 
D114 01 00 01 09 
BA 20 EC Cl C9 CD 


D8 FE 0A 38 02 
29 54 5D 29 29 
00 19 D110 E3 
32 8B DB 47 3E 
E6 E5 CD 49 E6 
69 E6 AF F5 CD 
20 3814 4F FI 
DB 3D B8 78 38 
79 CD 49 E6 FI 
ID 28IB FE 08 
1C 28 21 FE 0D 
E5 3A 8B DB ED 
23 3D 20 F8 D1 
28 Cl2A 69 E6 
E6 3D 18 B7 FI 
DB 3D B8 78 38 


D900 

D908 

D910 

D918 

D920 

D928 

D930 

D938 

D940 

D948 

D950 

D958 

D960 

D968 

D970 

D978 


SUM ： F7 48 F3 20 05 85 0A FB 


SUM ： 98 94 53 F7 5A 3E D7 93 


SUM: 2B FE BA 2C 2618 CA 8A 


El 


BA 

E4 

58 
07 
93 
60 
95 
99 
FI 

59 
4D 
6B 
19 
D8 
71 
66 


78 


35 

01 

6B 

72 

7A 

ED 

3F 

8C 

84 

60 

AD 

05 

0E 

D3 

99 

8C 


A1 

C8 

8B 

D8 

21 

62 

8C 

5B 

07 

61 

5E 

IF 

4A 

2F 

87 

AD 

6C 


SUM ： D2 39 26 2E 96 

D700 D8 7F D9 73 DA 
D708 CD B8 E5 CD 69 
D710 C8 01 00 ID ED 
D718 00 21 0A 0A CD 
D720 0A D8 CD 40 E6 
D728 CD B8 E5 2A 05 
D730 E5 21 0A IE CD 
D738 07 D8 2B 2B CD 
D740 0B 0A CD B8 E5 
D748 CD 40 E6 CD BB 
D750 28 62 FE IB 20 
D758 0A CD B8 E511 
D760 El DA E5117F 
D768 52 El30 EA E5 
D770 B7 ED 52 El38 
D778 D8 21 0D 0A CD 


SUM ： B6 88 A8 B4 8A E6 8B 53 : E8 

DC00 7C B5 78 20 F6 C9 3E 02 ： C8 
DC08 01 F8 0F ED 79 CD 8B DC : A2 
DC10 C9 3E IE 01 F9 0F ED 59 ：74 
DC18 01 FB 0F ED 51 01 F8 0F ：51 
DC20 ED 79 CD 8B DC C9 3E 5A : FB 
DC2818 F3 F3 CD A5 DC 3E 80 ： 0A 


など， エラー チェックの弱さもある。夹に 
反省である。 

というわけで，この迷路シリーズは終わ 
るわけである。約 6.5 K バイト程度のプログ 
ラムである力す，けっこう面倒であることが 
わかっていただけたと思う。これによって， 
プログラムを作るということがどんな感じ 
かをわかっていただければ幸いであるが， 
ぉそらく悪いぉ手本になる可能性が大であ 
る。ウムウム，これも人生である。ではま 
た来月。 


DA20 02 01 00 80 F5 CD 32 DA ：51 
DA28 C5 CD 26 DC Cl FI 3D 20 : A3 
DA30 F3 C9 3A E3 DB F6 80 CD : F7 
DA38 43 DA 3A E3 DB F6 90 CD ：68 
DA40 43 DA C9 C5 CD 80 DC 21 : F5 
DA48 00 40 16 0122 AE DC D5 : D8 
DA50 E5 CD 2A DC El D114 01 ： 7F 
DA58 00 01 09 3E 11 BA 20 EC : IF 
DA60 Cl11 00 10 21 00 40 7E : Cl 
DA68 23 ED 79 03IB 7A B3 C2 ：96 
DA70 67 DA C9 CD D2 D7 21 02 : A3 
DA78 00 01 00 00 CD 97 EA D0 : IF 

SUM ： CD D8 82 51312E 34 94 ： 9F 

DA80 3E 20 CD F0 DB CD IB El : BF 
DA88 3E 0A 16 0A IE 0A CD 6C ： C9 
DA90 E6 3E 04 32 4C E5 AF 32 ： 6C 
DA98 4D E5 32 4E E5 21 00 00 ： B8 
DAA0 22 51 E5 21 03 00 22 53 : FI 
DAA8 E5 3E 00 32 55 E5 CD 38 ：94 
DAB0 E0 3E 00 16 00 IE 00 CD : IF 
DAB8 6C E6 C9 CD 5B E5 B7 20 : FF 
DAC0 FA 2A 69 E611 00 F0 19 :8D 
DAC8 44 4D ED 78 F610 ED 79 ：62 
DADO C5 CD 5B E5 B7 28 FA Cl ： 6C 
DAD8 F5 ED 78 E6 EF ED 79 FI：86 
DAE0 C9 CD 40 E6 3E 0511 F2 ：02 
DAE8 DA CD 1A DB 3E 05 CD F7 : A3 
DAF0 DA C9 09 43 414C 4C 47 ： 0F 
DAF8 21 00 00 1A 13 FE 20 28 ：94 


SUM ： 67 D2 ED 3A C4 DD 4D 45 ：93 

D980 AF EA 21 0A 0A CD B8 E5 : 38 
D988117A D8 CD El DA 7C B7 : IE 
D990 20 F0 7D FE 06 30 EB 32 : DE 
D998 28 D9 21 0B 0A CD B8 E5 : Al 
D9A0 CD 69 D8 FE 4E C8 CD Cl ： B0 
D9A8 EA 3A 92 D8 B7 28 35 01 : A3 
D9B0 D0 IF 3A Cl EB CB A7 ED : 34 
D9B8 79 CD F7 DD 061111 00 ：42 
D9C0 7F 21 B0 DC 1A BE 13 23 : 3A 
D9C8 20 E510 F2 CD 15 DE 21 : E8 
D9D0 01 D8 01 00 80 16 09IE :97 
D9D8 00 ED 78 77 ED 59 23 03 : 48 
D9E0 15 20 F6 C9 3A E3 DB F6 : E2 
D9E8 80 CD 80 DC CD 06 DC 3A ：92 
D9F0 28 D9 87 87 C6 09 57IE ：53 
D9F8 00 CD 11 DC 01 D0 IF 3A : E4 


SUM ： 651A 79 Al13 74 DB 4F : 4A 

DA00 Cl EB CB A7 ED 79 CD IF : 70 
DA08 DA 01 D0 IF 3A Cl EB CB ： 7B 
DA10 E7 ED 79 CD IF DA 3A E3 : 30 
DA18 DB CD 80 DC C3 CF D9 3E : AD 


メッセージも最低限必要なものだけである。 
また，一種のディレクトリのようなものを 
表示できるようにして，ディスク版では5 
本まで蓄えることのできる迷路データを扱 
いやすくしたかったのだが，それも割愛し 
てしまった。さらには，迷路の中の位置も 
セーブできるようにして，継続してさまよ 
えるようにしたかったのだが，残念ながら 
迷路のデータだけになってしまった。これ 
ではセーブする意味がほとんどない。また， 
迷路を作らずに 「PLAY MAZE 」 にいける 

リスト1 GOMAZE . OBJ のダンプリスト 

D810 49 5A 45 3A 58 3D 20 20 : F7 

D818 20 20 20 2C 59 3D 20 20 ：62 

D820 20 20 00 53 50 4143 45 : AC 

D828 3D 4D 41 4B 45 20 2F 20 : CA 

D830 45 53 43 3D 43 48 41 4E :32 

D838 47 45 20 53 49 5A 45 00 : E7 

D840 49 4E 50 55 54 20 58 3D :45 

D848 00 49 4E 50 55 54 20 59 :09 

D850 3D 00 4F 4B 20 3F 20 28 :7E 

D858 59 2F 4E 29 00 4D 41 4B : D8 

D860 49 4E 47 20 4D 41 5A 45 : 2B 

D868 00 1152 D8 CD 40 E6 CD : FB 

D870 BB DA FE 59 C8 FE 4E C8 ： C8 

D87818 F5 49 4E 50 55 54 20 : BD 

SUM ： 38 75 718F 27 A0 13 55 : DC 

D880 4D 415A 45 20 4E 55 4D : 3D 

D888 42 45 52 20 28 312D 35 ： B4 

D890 29 00 00 CD AF EA 21 0A ：BA 

D898 0A CD B8 E5117A D8 CD : A4 
D8A0 El DA 7C B7 20 F0 7D FE ：79 

D8A8 06 30 EB 32 28 D9 21 0B ：80 

D8B0 0A CD B8 E5 CD 69 D8 FE : 80 

D8B8 4E C8 01 D0 IF 3A Cl EB : EC 

D8C0 CB A7 ED 79 21 01 D8 01 ： D3 

D8C8 00 80 16 09 7E ED 79 23 : A6 

D8D0 0315 20 F8 3A 92 D8 B7 ： 8B 

D8D8 2813 CD E6 DC CD 10 DD ：84 

D8E0 01 00 80 16 09 AF ED 79 ： B5 

D8E8 0315 20 FA C9 3A E3 DB : F3 

D8F0 F6 80 CD 80 DC CD 06 DC ： 4E 

D8F8 3A 28 D9 87 87 C6 09 57 ： 6F 


SUM ： FC 24 8C 85 BC 7B 2F 73 :0A 

D780 49 D8 CD El DA E5 CD C9 ：24 
D788 DB 118D 0130 0311 C5 :83 
D790 00 B7 ED 52 El30 E2 E5 : CE 
D79811 02 00 B7 ED 52 El38 ：22 
D7A0 D8 23 23 22 07 D8 21 0E :4E 
D7A8 0A CD B8 E5 CD 69 D8 FE : 80 
D7B0 4E CA 56 D7 CD D2 D7 CD ：88 
D7B8 Cl EA 21 0C 0F CD B8 E5 :51 
D7C0 115D D8 CD 40 E611 01 ： 4B 
D7C8 D8 CD 00 E9 3E 20 CD F0 : A9 
D7D0 DB C9 2A 07 D811 C7 00 ：85 
D7D8 B7 ED 52 38 04 CD 79 EB ：63 
D7E0 C9 CD C9 DB 17 2A 05 D8 : 58 
D7E81140 01 B7 ED 52 8F E6 : BD 
D7F0 03 21 F8 D7 CD 1C D6 C9 ： 7B 
D7F8 04 3A EB 64 EB 25 EB 4F : D7 


SUM ： 82 8E 9A 97 9E EB 9C IB ：81 

D800 EB 00 00 02 00 0A 00 0C ：03 

D808 00 02 4D 415A 45 20 53 : A2 


これも修業である 



ま，こんなもんであるが，まとめ（もし 
〈はいい訳）として少々書いておこう。本 
当はもっとて いねいに やりたかったのだが， 
かなり長〈なってしまったので中途半端な 
ものになってしまったというのが正直なと 
ころである。 

まず，サウンド関係がまったくないし， 


D600 

31 

00 

D5 

CD 

8C 

DB 

CD 

Cl 

C8 

D608 

EA 

21 

C9 

D6 

CD 

29 

D6 

21 

97 

D610 

FA 

D6 

CD 

1C 

D6 

3E 

20 

CD 

BA 

D618 

F0 

DB 

18 

ED 

BE 

D0 

23 

87 

08 

D620 

5F 

16 

00 

19 

5E 

23 

56 

EB 

50 

D628 

E9 

AF 

57 

5F 

CD 

6C 

E6 

46 

B3 

D630 

AF 

E5 

CD 

A2 

D6 

3C 

10 

FA 

IF 

D638 

El 

22 

7E 

D6 

23 

7E 

47 

C5 

04 

D640 

F5 

CD 

5B 

E5 

B7 

20 

FA 

FI 

C4 

D648 

Cl 

2A 

7E 

D6 

F5 

CD 

80 

D6 

57 

D650 

CD 

5B 

E5 

B7 

28 

FA 

FE 

20 

04 

D658 

28 

22 

FE 

0D 

28 

IE 

D6 

IE 

8F 

D660 

28 

06 

FE 

01 

28 

0A 

18 

E8 

5F 

D668 

FI 

47 

B7 

28 

D2 

3D 

18 

CF 

0D 

D670 

FI 

47 

3C 

2A 

7E 

D6 

BE 

38 

E8 

D678 

C6 

3D 

18 

C3 

FI 

C9 

1A 

1A 

CC 


A8DD25A 711784 E10 
21 CC -3EF8E03DE42D 

DC5B78DA196F 9951 
A30E0BC 3 1C00C4F2 


056592 EB5EE1279B 
3D1D62F8FFFE7B68 

69F9ABAAC 471312 A 
DC5C2FD33E1C0F23 

579700 B7D 88109 B7 
131 B21B4E12F5C24 


0197 BE90DD1 88211 
0CDED3D2CCC752E1 

EA9B39CD00CD21CE 
132CE 03389 DEC0D3 


6 64F0632DB35A656B 
9 BC0B11CD87E6D418 

5 AE 0165 Al 80 CDD 051 
E 04011 D22D20CE 001 


3 18981885 1A 502108 
F 2D7B2DBD1DF 401 EB 


5 AE1B2F02A6FF82E9 
1 F2EDF21D6BD0ED3A 

4 B62BE 98019 D5F0A3 
3 6EA 6512 1C 4444059 


6 7A1 7365015510 AD9 
4 F3FF22F2F 4440541 


31 

EA 

3 

E 


M - 丨 
u 6666666666666666 
s DDDDDDDDDDDDDDDD 


試験に出る xi 121 































DE30 

DE38 

DE40 

DE48 

DE50 

DE58 

DE60 

DE68 

DE70 

DE78 


リスト 3 




.Z80 

.PHASE 

0D600H 

EB25 

WL280 

EQU 

0EB25H 

EB3A 

WH280 

EQU 

0EB3AH 

EB4F 

WL240 

EQU 

0EB4FH 

EB64 

WH240 

EQU 

0EB64H 

EB79 

WH480 

EQU 

0EB79H 

EAC1 

CLS 

EQU 

0EAC1H 

EAAF 

PINIT 

EQU 

0EAAFH 

E900 

GO 

EQU 

0E900H 

EA97 

RPOINT 

EQU 

0EA97H 

EBC1 

WMODE 

EQU 

0EBC1H 

EBC2 

DOWNDT 

EQU 

0EBC2H 

E038 

STRAY 

EQU 

0E038H 

E11B 

BLOOK 

EQU 

0E11BH 

E54C 

MAGIC1 

EQU 

0E54CH 

E54D 

MAGIC2 

EQU 

0E54DH 

E54E 

MAGIC3 

EQU 

0E54EH 

E551 

XP 

YP 

EQU 

0E551H 

E553 

EQU 

0E553H 

E555 

VECT 

EQU 

0E555H 

E55B 

GETK 

EQU 

0E55BH 

E56A 

T049 

EQU 

0E56AH 

E5B8 

LOCATE 

EQU 

0E5B8H 

E5D5 

PRINTN 

EQU 

0E5D5H 

E640 

PRINTS 

EQU 

0E640H 

E649 

PRINTC 

EQU 

0E649H 

E669 

CADDR 

EQU 

0E669H 

E66B 

CATTR 

EQU 

0E66BH 

E66C 

PALET 

EQU 

0E66CH 

E6FA 

ILPCG 

EQU 

0E6FAH 

0009 

MDTOP 

EQU 

9 

8000 

DISKBF 

EQU 

80O0H 

7F00 

FCBA2 

EQU 

7F00H 

FF87 

DRNO0 

EQU 

0FF87H 


D600 

D603 

0606 

D609 

D60C 

D60F 

D612 

D615 

D617 

D61A 

D61C 

D61D 

D61E 

D61F 

D620 

D621 

D623 

0624 

D625 

D626 

D627 

D628 

D629 

D62A 

D62B 

D62C 

D62F 


31 D500 
CD DB8C 
CD EAC1 
21 D6C9 
CD D629 
21 D6FA 
CD D61C 
3E 20 
CD DBF0 
18 ED 

BE 


16 00 
19 


；MAZE DATA SAVE BEGIN 
；DISK BUF (16KB) 

；BLANC FCB AREA 
;DRIVE > 


START: LD 

CALL 

CALL 

STARTL: LD 

CALL 

LD 

CALL 


ONGOS : CP 


SP,0D500H 
INIT 
CLS 

HL t MESL0 

MENU ；GET MENU # 

HL,MEST0 

ONGOS ； 0N GO 


CLS0 

STARTL 


；SET SP 


RET 

INC 

ADD 


ADD 

LD 

INC 

LD 


XOR 

LD 

LD 


； 0N Acc GOTO 


(HL) 

NC 
HL 
A f A 
E 9 A 

D, 0 
HL,DE 

E, (HL) 
HL 

D ， (HL) 
DK,HL 
(HL) 


D, A 

E, A ;ALL BLACK 

PALET 


SUM ： 8311 AF 5219 F2 4E A6 ：94 


DE80 

DE88 

DE90 

DE98 

DEA0 

DEA8 

DEB0 

DEB8 

DECO 

DEC8 

DED0 

DED8 

DEE0 

DEE8 

DEF0 

DEF8 


DE El C9 
FE 40 38 
DE 72 23 
20 E9 C9 
2616 00 
D9 30 01 
F4 Cl C9 
DE D0 23 
CD CA DE 
00 D6 C5 
0F 30 F4 
0F D2 C7 
3A D6 DC 
0F D2 C7 
DC 08 DF 
ED 78 0F 


D5 CD 
05 ED 
03 D1 
C5 CD 
06 08 
23 D9 
21 00 
18 F9 
D8 23 
01 01 
0F 38 
DE 0F 
CD 08 
DE 0F 
Cl C9 
D2 C7 


9B DE 
51 C3 
IB 7A 
CA DE 
CD CA 
CB 12 
00 CD 
21 00 
18 F9 
1A ED 
F8 ED 
D2 D6 
DF ED 
3A D7 
01 01 
DE AF 


SUM ： A8ID C9 08 44 7E BF 71：88 


DF00 

DF08 

DF10 


08 DF 2B 
F5 3D C2 
01 E9 02 


7C B5 
09 DF 
E9 0A 


20 FI C9 
FI C9 E9 


ID 

7F 

DF 


SUM ： FE 05 EF 6E 9E 11 BA B2 ： 7B 


XOR 

PUSH 

MENUSL ： CALL 
INC 
DJNZ 


LD 

LD 

MENUS1：PUSH 
PUSH 

MENUS2 ： CALL 


A ；ITEM # 

HL ；SAVE MENU ADDR. 

MNS ；DISP 1 ITEM 

MENUSL ；DISP ALL ITEM 

HL ；MENU ADDR. 

(MENUAD),HL 
HL 

A,(HL) 

B t A 


OR 

JR 


NZ.MENUS2 


••WAIT NO KEY 


AF 

BC 


POP 
POP 

LD HL,(MENUAD) 

PUSH AF ； A=MBNU# 

CALL mSS ； REVERSE ITEM 

MENUS3 ： CALL GKTK 


OR 

JR 


； 1F=DN,1E=UP 
SUB 


MENUS4 ： POP 


Z,MENUS3 

20H ； SPACE? 

Z.MENUS6 
0DH ； CR? 

Z.MENUS6 


1EH 

Z.MENUS4 

1 

Z f MENUS5 
MENUS3 
AF 
B,A 


Z,MENUS1 


；UPPER ITEM 


B，A 

A 

HL,(MENUAD) 

(HL) 

C,MENUS1 

A : UMDER ITEM 

MENUS 1 


MENUS5: POP 


DEC 

JR 


MENUS6 ： POP AF 

RET 

MENUAD ： DS 2 ;W 

；PRINT WITH REVERSE ATTR. 
MNSS ： PUSH AF 

LD A,(CATTR) 

AND 0F7H 

(CATTR) f A 
A,B 

CALL MNS 


； A=ITEM# 


LD 

LD 


LD 


A,(CATTR) 


DC30 01 F8 0F D9 01 FB 0F 2A ：16 
DC38 AE DC D9 ED 79 CD 9F DC ：11 
DC40 ED 78 0F 30 0B 0F 30 F8 : E6 
DC48 D9 ED 78 77 23 D918 F0 : B9 
DC50 07 FB C9 F3 CD A5 DC 3E ： 4A 
DC58 A0 01 F8 0F D9 01 FB 0F ： 8C 
DC60 2A AE DC D9IE 00 16 02 ： C3 
DC68 ED 79 CD 9F DC ED 78 0F ：22 
DC70 30 0B 0F 30 F8 D9 7E ED :B6 
DC78 79 23 D918 F0 07 FB C9 ：48 


SUM ： 28 DC 35 82 6A 6E FE 22 : B3 

DC80 01 FC 0F ED 79 B7 F0 CD :E6 
DC88 8B DC C9 C5 06 20 10 FE :29 
DC90 01 F8 0F ED 78 CB 47 20 ： 9F 
DC98 FA CB 7F 20 F6 Cl C9 3E ：22 
DCA0 07 3D 20 FD C9 01 FA 0F ：34 
DCA8 ED 51 CD 8B DC C9 00 80 : BB 
DCB0 014D 415A 45 20 44 41 : D3 
DCB8 54 4120 20 20 20 4F 42 : A6 
DCC0 4A 20 00 40 00 80 00 00 :2A 
DCC8 00 00 2C 41 0D 0A 3B 0D : CC 
DCD0 0A 4D 4133ID 0F 2E 05 ： 2A 
DCD8 E8 03 28 00 28 00 B8 0B : FE 
DCE0 14 00 14 00 55 531113 : F4 
DCE8 DF 06 02 CD 6A E5 AF 01 ： B3 
DCF0 031A ED 79 21 E4 21 CD ：76 
DCF8 F5 DE F3 2156 00 22 88 : E7 


SUM ： F7 25 3F DC 7F 22 Cl Cl:5A 

DD00 DD 21 B0 DC 1120 00 FD ： B8 
DD08 21 D8 DC CD 37 DD FB C9 ： 7A 
DD10 21 00 01 CD F5 DE 21 ED ： D0 
DD18 50 22 88 DD 21 00 FF 01 : F8 
DD20 00 80 11 00 40 FD 21 DE : CD 
DD28 DC F3 CD 37 DD FB 11 0F : CB 


DD30 DF 06 02 CD 6A E5 G9 D9 : A5 
DD38 FD 4E 00 FD 46 01137 CD ：93 
DD40 B0 DD FD 4E 02 FD 46 03 :20 
DD48 B7 CD B0 DD FD 4E 04 FD ： 5D 
DD50 46 05 37 CD B0 DD 37 CD : E0 
DD58 C2 DD D9 CD 63 DD 37 CD :89 
DD60 C2 DD C9 D9 21 00 00 D9 : 3B 
DD68 CD 82 DD D9 7C 65 6F 22 ：77 
DD70 E4 DC 11 02 00 2156 00 : 4A 
DD78 22 88 DD 21 E4 DC CD 82 : B7 


SUM ： 2B 3146 EE BE 20 97 5E ：63 

DD80 DD C9 D5 78 FE 40 38 05 ： 6E 
DD88 ED 50 C3 8E DD 56 23 03 : E7 
DD90 CD 9A DD D1IB 7A B3 20 ： 7D 
DD98 E9 C9 C5 37 CD C2 DD 06 :20 
DDA0 08 CB 12 D9 D2 A8 DD 23 ：38 
DDA8 D9 CD C2 DD 10 F3 Cl C9 : D2 
DDB0 F5 F5 C5 CD C2 DD Cl 0B : E7 
DDB8 78 B128 03 FI18 F2 FI：40 
DDC0 FI C9 C5 30 09 3A D3 DC : Al 
DDC8 08 3A D2 DC 18 0B 38 09 : 54 
DDD0 3A D5 DC 08 3A D4 DC 18 : F5 
DDD8 00 01 031A F5 3E 01 ED : 3F 
DDE0 79 FI CD 08 DF AF ED 79 ：33 
DDE8 08 CD 08 DF 01 011A ED : C5 
DDF0 78 0F D2 C7 DE Cl C911：99 
DDF811 DF 06 02 CD 6A E5 F3 :07 


SUM ： 0B 3F IE 72 33 94 D9 6A : E4 

DE00 2172 00 22 8C DE 21 00 : 40 
DE08 7F 1120 00 FD 21 D8 DC ：82 
DE10 CD 2F DE FB C9 F3 21 ED ： 9F 
DE18 5122 8C DE 21 00 FF 01 : FE 
DE20 00 80 11 00 40 FD 21 DE : CD 
DE28 DC CD 2F DE C3 2D DD D9 : 5C 



8E5D4B 314 D 
14F5FA906B 


66EEC79E03 

54DDDCCD08 

D D 7 0 4 2 E 3 2 D 
F F c 3 E c D 8 7c 

2 2 2 2 B 2 7 Die 
0 F D D 5 5C c 2 D 

E0EEDD2904 
5 2DD E E "D D 0 E 

D2AAE7E 021 
F5CGDBD 002 

E D D D 8 F A 0 1 E 
D E c c 6 5 C 0 1 D 

D 7 5 8 D 3 D 15c 
B B 0 F c 5-c 2 E 8 

D 3409 AE992 
c 0 0 1 D 7 D D D 2 


6 A 6 
卜 D F D 

K F 5 Deo 12 3 E 7 5 5 
A E c 31 E 2 2 7 4 CF 

リ 


ス 


0 1 256 89CDE F o 
33 333 33333 3 4 

D D DDD DDDDD DD 


B E 0 B 
5 7 8 5 
5 A 6 65 A 0 2 D E 
E p D DE F 2201 

D 7 0 11A5DD78 E 8 E 8 
c B 2 FC2FCCB2 F 2 F 2 


14 5 789CD034 6 8 A c 
4 4 4 44444555 5 5 5 5 

DDD DDDDDDDD DDDD 


E 61 A 8 
1o 0 o E 


2 F 
D c 


17CAE8D8 19 
F432B 331 FC 


E 024689 ABDE 0123679 A CD E 
56666666666 77777777 7 7 7 
66666666666 66666666 6 6 6 
DDDDDDDDDDD DDDDDDDD DD D 


B B 2 B 
6 6 A 6 
6 7 6 6 6 
E F E D E 

5 A 6 2 8 D A 
F 3 E 3 7 c 3 


0 14 6 9a d 
888888 8 
6 6 6 6 6 6 6 
D D D D D D D 


の 

月 

今 


122 Oh! MZ 1986.10. 


















CKDISP 

；Acc 

HL,(DATA0+4 > 
DE.320 


HL.DE 
A, A 

HL,SELWI6 

ONGOS 


DB 

DW 

DW 


WH280 

WH240 

WL280 

WL240 

0，2,10，12 

2 

•MAZE SIZE ： X= 


MMZW2 : DB 


f SPACE=MAKE / ESC=CHANGE SIZE 1 ,0 


MMZW3 ： DB 

MMZW4 : DB 

MMZW5 : DB 

MESMAK ： DB 


1 INPUT X2*,0 
1 INPUT ¥= # ,0 
*OK ? (Y/NT ,0 
•MAKING MAZE*,0 


；INPUT , Y , OR •N* 

GETYN : LD DE.MMZW5 

CALL PRINTS 

GETYN1：CALL FLGET 

CP f Y f 

RET Z 


SMZW1 ： DB 


1 INPUT MAZE NUMBER (1-5) ' ,0 


DORT ： 


DB 


00H 


;DISK OR TAPE 


；SAVE MAZE 

SMA2E ： CALL PINlt 

SMZ1 ： LD HL,0A0AH 

CALL LOCATE 

LD DE.SMZWl 

CALL INPUTN 

LD 


OR 

JR 


A V H 
NZ.SMZl 


LD 

CALL 

LD 

CALL 

PUSH 

CALL 

LD 

JR 


SBC 

POP 


HL.0A0DH 

LOCATE 

DE.MMZW4 

INPUTN 

HL 

CKDISP 
DK,398-2+1 
NC.MM25 
DE,198-2+1 
A 

HL.DE 

HL 

NC f MM2 


SBC 

POP 


INC 

INC 


CALL 

CALL 

CP 

JP 


CALL 

CALL 


CALL 

LD 

CALL 


HL 

HL 


(DATA04-6) f HL 

HL,0AOEH 

LOCATE 

GETYN 

Z,MM1 

seLwi 

CLS 

HL.0F0CH 

LOCATE 

DE V MESMAK 

PRINTS 

DE.DATA0 

GO 


CALL 

RET 


SELWI: LD 


CALL 

RET 


HL,(DATA046) 
DE,198+1 
A 

HL V DE 

C,SELWI5 

WH480 


D690 

F6 08 



OR 

LD 

08H 

D779 

21 0A0D 

D692 

32 E66B 



(CATTR),A 

D77C 

CD E5B8 

D695 

FI 



POP 

AF 

D77F 

11 D849 

D696 

CD D6A2 



CALL 

MNS 

0782 

CD DAE1 

D699 

3A B66B 



LD 

A,(CATTR) 

0785 

E5 

D69C 

E6 F7 



AND 

0F7H 

D786 

CD DBC9 

D69E 

32 B66B 



LD 

(CATTR),A 

D789 

11 018D 

D6A1 

C9 



RET 


D78C 

30 03 




; 



D78B 

11 0005 




；PRINT 

'1 ITEM 

(Acc#) 

D791 

B7 

D6A2 

C5 


MNS ： 

PUSH 

BC 

0792 

ED 52 

D6A3 

E5 



PUSH 

HL 

D794 

El 

D6A4 

F5 



PUSH 

AF 

D795 

30 E2 

D6A5 

23 



INC 

HL 

D797 

E5 

D6A6 

23 



INC 

HL 

D798 

11 0002 

D6A7 

5E 



LD 

E,(HL) 

D79B 

B7 

D6A8 

23 



INC 

HL 

D79C 

ED 52 

D6A9 

56 



LD 

D,(HL) 

D79E 

El 

D6AA 

23 



INC 

HL 

HL 

D79F 

38 D8 

D6AB 

E5 



PUSH 

D7A1 

23 

D6AC 

6F 



LD 

LD 

L f A 

.D7A2 

23 

D6AD 

26 00 



H,0 

D7A3 

22 D807 

D6AF 

19 



ADD 

HL f DB 



D6B0 

CD E5B8 



CALL 

LOCATE 

D7A6 

21 0A0E 

D6B3 

B1 



POP 

HL ；BACK ADDR. 

D7A9 

CD E5B8 

D6B4 

FI 



POP 

AF 

D7AC 

CD D869 

D6B5 

F5 



PUSH 

AF 

D7AF 

FE 4E 




； 



D7B1 

CA D756 

D6B6 

B7 



OR 

JR 

A 



D6B7 

28 08 



Z.MNS2 

D7B4 

CD D7D2 







D7B7 

CD BAC1 




•SKIP 

MENU ITEM 

D7BA 

21 0F0C 

D6B9 

47 


LD 

LD 

B,A 

D7BD 

CD E5B8 

D6BA 

7B 


MNS1 ： 

A,(HL) 

D7C0 

11 D85D 

D6BB 

23 



INC 

HL 

D7C3 

CD E640 

D6BC 

B7 



OR 

JR 

D7C6 

11 D801 

D6BD 

20 FB 



NZ.MNS1 

D7C9 

CD E900 

D6BF 

10 F9 



DJNZ 

MNS1 

D7CC 

3E 20 

D6C1 

EB 


MNS2 ： 

EX 

DE t HL 

D7CB 

CD DBF0 

D6C2 

CD B640 



CALL 

PRINTS ；PRINT ITEM 

D7D1 

C9 

D6C5 

FI 



POP 

AF 



D6C6 

El 



POP 

HL 

D7D2 

2A D807 

D6C7 

Cl 



POP 

BC 

D7D5 

11 00C7 

D6C8 

C9 



RET 


D7D8 

B7 







D7D9 

ED 52 




•MENU 

FORMAT 


D7DB 

38 04 

D6C9 

05 


MESL0 : 

DB 

5 ；ITEM NUMB. 

D7DD 

CD EB79 

D6CA 

00 



DB 

0 ；DEFAULT START 

D7E0 

C9 

D6CB 

0101 



DW 

0101H ；START LOC 



D6CD 

45 58 49 

54 


OB 

•EXIT，，0 

D7E1 

CD DBC9 

D6D1 

00 





D7E4 

17 

D6D2 

4D 414B 

45 


DB 

f MAKE MAZE*,0 

D7B5 

2A D805 

D6D6 

20 4D 41 

5A 




D7E8 

11 0140 

D6DA 

45 00 





D7EB 

B7 

D6DC 

53 4156 

45 


DB 

•SAVE MAZE、0 

D7BC 

ED 52 

D6E0 

20 4D 41 

5A 




D7EE 

8F 

D6E4 

45 00 





D7EF 

E6 03 

D6E6 

4C 4F 41 

44 


DB 

* LOAD MAZE*,0 

D7F1 

21 D7F8 

D6EA 

20 4D 41 

5A 




D7F4 

CD D61C 

D6EE 

45 00 





D7P7 

C9 

D6F0 

50 4C 41 

59 


DB 

f PLAY MAZE*,0 



D6F4 

20 4D 41 

5A 




D7F8 

04 

D6F8 

45 00 





D7F9 

EB3A 







D7FB 

EB64 




；ON GC 

i TABLE 


D7FD 

EB25 

D6FA 

05 


MEST0 : 

DB 

5 

D7FF 

EB4F 

D6FB 

D705 



DW 

EXIT ；EXIT 



D6FD 

D719 



DW 

MMAZE 

D801 

0000 0002 

D6FF 

D893 



DW 

SMAZE 

D805 

00OA O00C 

0701 

D97F 



DW 

LMAZE 

D809 

02 

D703 

DA73 



DW 

PHAZE 

D80A 

4D 415A ^ 

D705 

21OA0E 


EXIT ： 

LD 

HL 9 0A0EH 

D80B 

20 53 49 ! 

D708 

CD E5B8 



CALL 

LOCATE 

D812 

45 3A 58 : 

D70B 

CD D869 



CALL 

GETYN 

D816 

20 20 20 : 

D70E 

FE 4E 



CP 


D81A 

20 2C 59 : 

D710 

C8 



RET 

Z 

D81E 

20 20 20 : 

D711 

011D00 



LD 

BC,1D0OH 

0822 

00 

D714 

ED 79 



OUT 

(C),A ；BOOT 

0823 

53 50 41 ‘ 

D716 

C3 0000 



JP 

O000H 

D827 

45 3D 4D ‘ 




； 



D82B 

4B 45 20 : 




••MAKE 

MAZE 


D82F 

20 45 53 ‘ 

D719 

21 0A0A 


MMAZE : 

LD 

HL f 0A0AH 

0833 

3D 43 48 ‘ 

D71C 

CD E5B8 



CALL 

LOCATE 

D837 

4E 47 45 : 

D71F 

11 D80A 



LD 

DE.MMZWl 

D83B 

53 49 5A • 

D722 

CD E640 



CALL 

PRINTS 

D83F 

00 

D725 

21160A 



LD 

HL,160AH 

LOCATE 

D840 

49 4£ 50 : 

D728 

CD E5B8 



CALL 

D844 

54 20 58 : 

D72B 

2A D805 



LD 

HL,(DATA0+4) 

D848 

00 

D72E 

CD E5D5 



CALL 

PRINTN 

D849 

49 4£ 50 i 




; 



D84D 

54 20 59 : 

D731 

211E0A 



LD 

HL,1E0AH 

0851 

00 

0734 

CD E5B8 



CALL 

LOCATE 

D852 

4F 4B 20 : 

D737 

2A D807 



LD 

HL,(DATA0+6) 

D856 

20 28 59 : 

D73A 

2B 



DEC 

HL 

HL 

D85A 

4E 29 00 

D73B 

2B 



DEC 

D85D 

4D 41 4B - 

D73C 

CD E5D5 



CALL 

PRINTN 

D861 

4E 47 20 ‘ 




； 



D865 

41 5A 45 ( 

D73F 

21 0A0B 



LD 

HL.0A0BH 



D742 

CD E5B8 



CALL 

LOCATE 



D745 

11 D823 



LD 

DE.MMZW2 

D869 

11 D852 

D748 

CD E640 



CALL 

PRINTS 

D86C 

CD E640 







D86F 

CD DABB 

D74B 

CD DABB 


MM0 ： 

CALL 

FLGET 

0872 

FB 59 

D74E 

FE 20 



CP 

20H 

D874 

C8 

D750 

28 62 



JR 

Z,MM3 

D875 

FE 4E 

D752 

FE IB 



CP 

27 

D877 

C8 

0754 

20 F5 



JR 

NZ.MM0 

D878 

18 F5 

D756 

21 0AOC 


MM1 : 

LD 

HL.0AOCH 

D87A 

49 4E 50 ! 

D759 

CD E5B8 



CALL 

LOCATE 

D87E 

54 20 4D - 

D75C 

11 D840 



LD 

DK.MMZW3 

D882 

5A 45 20 - 

D75F 

CD DAE1 



CALL 

INPUTN 

D886 

55 4D 42 ‘ 

D762 

E5 



PUSH 

HL ；CHECK 

D88A 

52 20 28 : 

D763 

11 027F 



LD 

OR 

DB.638+1 

D88E 

2D 35 29 ( 

D766 

B7 



A 



D767 

ED 52 



SBC 

HL f DE 

D892 

00 

D769 

El 



POP 

HL 



D76A 

30 EA 



JR 

NC.MM1 



D76C 

E5 



PUSH 

HL 

D893 

CD EAAF 

D76D 

11 0002 



LD 

OR 

DE，2 

D896 

21 0AOA 

D770 

B7 



A 

D899 

CD E5B8 

D771 

ED 52 



SBC 

HL 9 DE 

D89C 

11 D87A 

D773 

El 



POP 

HL 

D89F 

CD DAE1 

D774 

38 E0 



JR 

LD 

C,MM1 

D8A2 

7C 

B7 

D776 

22 0805 



(DATA0+4 し HL 

D8A3 







D8A4 

20 F0 


ALLLADDRBCDCrALLBT 
CRLLOSAALCR 


試験に出る xi 123 





D8A6 

D8A7 

D8A9 

D8AB 

D8AE 

D8B1 

D8B4 

D8B7 

D8B9 

D8BA 

D8BD 

D8C0 

D8C2 

D8C4 

D8C7 

D8CA 

D8CC 

D8CD 

D8CF 

D8D0 

D8D1 

D8D2 

D8D4 

D8D7 

D8D8 

D8DA 

D8DD 

D8E0 

D8E3 

D8E5 

D8E6 

D8E8 

D8E9 

D8EA 

D8EC 

D8ED 

D8F0 

D8F2 

D8F5 


D8F8 

D8FB 

D8FC 

D8FD 

D8FF 

D900 

D902 

D905 

D908 

D90B 

D90D 

D90F 

D912 

0915 

D918 

D91A 

D91C 


D91F 

D922 

D925 


D928 

D929 

D92B 

D92E 

D92F 

D932 

D933 

D936 

D937 

D938 

D939 

D93B 

D93C 

D93F 

D941 

D944 

D947 

D949 

D94C 

D94D 

D94E 

D951 

D952 

D955 

D958 

D95A 

D95B 

D95C 

D95D 

D95E 

D95F 

D960 

0963 

D964 

D967 

D969 

D96C 

D96D 

D96E 

D971 

D972 

0973 

D974 

D977 

D978 

D97A 

D97B 




7D 

FE 06 
30 BB 
32 D928 

21 0A0B 
CD E5B8 
CD D869 
FE 4E 
C8 

011FD0 
3A EBC1 
CB A7 
ED 79 
21 D801 
018000 
16 09 
7E 

ED 79 


3A D892 
B7 

2813 

CD DCE6 
CD DD10 

01 8000 
16 09 


C9 

3A DBE3 
F6 80 
CD DC80 
CD DC06 


3A D928 
87 


IE 00 
CD DC11 

011FD0 
3A EBC1 
CB A7 
ED 79 
CD D929 

011FD0 
3A EBC1 
CB E7 
ED 79 
CD D929 


3A DBE3 
CD DC80 
C3 D8E0 


3E 02 
01 8000 


Cl 

FI 

3D 

20 F3 
C9 

3A DBE3 
F6 80 
CD D94D 
3A DBE3 
F6 90 
CD D94D 
C9 

C5 

CD DC80 


11 1000 
214000 
ED 78 


23 

IB 


B3 

C2 D958 


214000 
16 01 

22 DCAE 

D5 

E5 

CD DC53 

El 

D1 

14 

01 0100 


CP 

JR 


CALL 

CALL 


LD 

LD 

RES 

OUT 


OUT 

INC 

INC 

DEC 


CALL 

CALL 


XOR 

OUT 

INC 

DEC 


A,L 

NC,SMZ1 
(FNUMB) # A 

HL,0A0BH 

LOCATE 

GETYN 


BC,1FD0H 
A,(WMODE) 

4,A 
(C),A 
HL,DATA0 
BC f 8000H 
D,9 

A,(HL) 

(C),A ；COPY SIZE 

HL 

BC 

NZ,SMZ2 

A,(DORT) 

A 

Z,SMZD ；DISK 

WHEAD 

WBODY 

BC,8000H 

D,9 

A 

(C) f A ；ERASE SIZE 
BC 

NZ f SMZ4 


LD A,(DRNO) 

OR 80H 


CALL 

CALL 


MSD ；MOTOR ON 

RSTR 


；D=TRACK# t E=CUR.# 


ADD 

ADD 

ADD 


LD 

LD 

RES 

OUT 

CALL 

LD 

LD 

SET 

OUT 

CALL 


CALL 

JP 

RET 


FNUMB : DS 

W16K： LD 
LD 

W16K1 : PUSH 
CALL 
PUSH 
CALL 
POP 
POP 
DEC 
JR 
RET 

W8K： LD 
OR 


OR 

CALL 

RET 

PUSH 

CALL 

POP 

LD 

LD 

IN 

INC 

LD 

INC 

DEC 


A,(FNUMB) 

A,A 
A,A 

A,MDTOP ；TOP TR 

D,A 

E 9 00H 

SEEK 

BC,1FD0H 
A,(WMODE) 

4,A 
(C) ,A 
W16K 

BC,1FD0H 
A,(WMODE) 

4,A 
(C) ,A 
W16K 


A,(DRNO) 

MSD ；MOTOR OFF 

SMZ3 


A,2 

BC,8000H 


A,(DRNO) 

80H : SIDE 0 

W4K 

A,(DRNO) 

90H ;SIDE 1 

W4K 


MSD 

BC 

DE，1024*4 
HL,4000H 
A,(C) 


A.D 

NZ f W4Kl 


LD 

LD 


LD 

PUSH 

PUSH 

CALL 

POP 

POP 

INC 

LD 

ADD 


HL 9 4000H 

D f 1 ；SECTOR # 

(BUFAD),HL 

DE 

HL 

WRITD 

HL 


BC,256 
HL f BC 
A,17 


D97D 

D97E 

_1 

C9 


POP 

RET 

BC 



；LOAD 

MAZE 


D97F 

CD BAAF 

LMAZE： 

CALL 

PINIT 

D982 

21 0A0A 

LMZ1： 

LD 

HL,0A0AH 

D985 

CD B5B8 


CALL 

LOCATE 

D988 

11 D87A 


LD 

DE,SMZW1 

D98B 

CD DAE1 


CALL 

INPUTN 

D98E 

7C 


LD 

A,H 

D98F 





D990 

20 FO 


JR 

NZ,LMZ1 

D992 

7D 


LD 

A,L 

D993 

FE 06 


CP 

D995 

30 ED 


JR 

NC,LMZ1 
(FNUMB),A 

D997 

32 D928 


LD 

D99A 

21 0A0B 

* 

LD 

HL.0A0BH 

D99D 

CD E5B8 


CALL 

LOCATE 

D9A0 

CD D869 


CALL 

GETYN 

D9A3 

FE 4E 


CP 

•N* 

D9A5 

C8 


RET 

Z 

D9A6 

CD EAC1 


CALL 

CLS 

D9A9 

3A D892 


LD 

A,(DORT) 

D9AC 

B7 


OR 

JR 

A 

D9AD 

28 35 

；TAPE 

Z.LMZD 


D9AF 

D9B2 

011FD0 

3A EBC1 

LMZT : 

LD 

LD 

BC,1FD0H 

A,(WMODE) 

D9B5 

CB A7 


RES 

4,A 
(C) f A 

D9B7 

ED 79 


OUT 

D9B9 

CD DDF7 


CALL 

RHBAD 

D9BC 

0611 


LD 

B,17 

D9BE 

117FO0 

LMZT1： 

LD 

DE.FCBA2 

D9C1 

21 DCB0 


LD 

HL.FCBA 

D9C4 

1A 


LD 

A,(DB) 

D9C5 

BE 


CP 

(HL) 

D9C6 

13 


INC 

DE 

D9C7 

23 


INC 

HL 

D9C8 

20 E5 


JR 

NZ f LMZT ；NEXT HEAD 

D9CA 

10 F2 


DJNZ 

LMZT1 

D9CC 

CD DE15 


CALL 

RBODY 

D9CF 

21 D801 

LMZ2： 

LD 

HL f DATA0 

D9D2 

018000 


LD 

BC,8000H 

D9D5 

16 09 


LD 

D,9 

D9D7 

IE 00 


LD 

E.00H 

D9D9 

ED 78 

LMZ3： 

IN 

A, (C) 

D9DB 

77 


LD 

(HL) f A ；COPY SIZE 

D9DC 

ED 59 


OUT 

(C),E ；ERASE 

D9DE 

23 


INC 

HL 

D9DF 

03 


INC 

BC 

D9E0 

15 


DEC 

D 

D9E1 

20 F6 


JR 

NZ.LMZ3 

D9E3 

C9 


RET 


D9E4 

3A DBE3 

LMZD： 

LD 

A f (DRNO) 

D9E7 

F6 80 


OR 

80H 

D9E9 

CD DC80 


CALL 

MSD ；MOTOR ON 

D9EC 

CD DC06 


CALL 

RSTR 



；D=TRACK#,E=CUR 

• # 

D9EF 

3A 0928 


LD 

A,(FNUMB) 

D9F2 

87 


ADD 

A,A 

D9F3 

87 


ADD 

A, A 

D9F4 

C6 09 


ADD 

A,MDTOP ；TOP TR 

D9F6 

57 


LD 

LD 

D,A 

D9F7 

IE 00 


E,00H 

D9F9 

CD DC11 


CALL 

SEEK 

D9FC 

011FD0 

* 

LD 

LD 

BC,1FD0H 

D9FF 

3A EBC1 


A,(WMODE) 

DA02 

CB A7 


RES 

4,A 

DA04 

ED 79 


OUT 

(C),A 

DA06 

CD DA1F 


CALL 

R16K 

DA09 

011FD0 


LD 

LD 

BC,1FD0H 

DA0C 

3A EBC1 


A,(WMODE) 

DA0F 

CB E7 


SET 

4,A 

DA11 

ED 79 


OUT 

(C),A 

DA13 

CD DA1F 


CALL 

R16K 

DA16 

3A DBE3 

* 

LD 

A v (DRNO) 

DA19 

CD DC80 


CALL 

MSD ；MOTOR OFF 

DA1C 

C3 D9CF 


JP 

LMZ2 



; 

RET 


DA1F 

3E 02 

R16K： 

LD 

LD 

A，2 

DA21 

018000 


BC.80O0H 

DA24 

F5 

R16K1 : 

PUSH 

AF 

DA25 

CD DA32 


CALL 

R8K 

DA28 

C5 


PUSH 

BC 

DA29 

CD DC26 


CALL 

STEPIN 

DA2C 

Cl 


POP 

BC 

DA2D 

FI 


POP 

AF 

DA2E 

3D 


DEC 

A 

DA2F 

20 F3 


JR 

NZ.R16K1 

DA31 

C9 


RET 


DA32 

3A DBE3 

R8K： 

LD 

OR 

A,(DRNO) 

DA35 

F6 80 


80H ；SIDE 0 

DA37 

CD DA43 


CAL し 

R4K 

DA3A 

3A DBE3 


LD 

OR 

A,(DRNO) 

DA3D 

F6 90 


90H ；SIDE 1 

DA3F 

CD DA43 


CALL 

R4K 

DA42 

C9 


RET 


DA43 

C5 

R4K： 

PUSH 

BC 

DA44 

CD DC80 


CALL 

MSD 

DA47 

214000 


LD 

LD 

HL,4000H 

DA4A 

16 01 


D,1 ；SECTOR # 

DA4C 

22 DCAE 

R4K2： 

LD 

(BUFAD) t HL 

DA4F 

D5 


PUSH 

DE 

HL 

DA50 

E5 


PUSH 

DA51 

CD DC2A 


CALL 

READD 

DA54 

El 


POP 

HL 

DA55 

D1 


POP 

DE 

DA56 

14 


INC 

D 

DA57 

01 0100 


LD 

BC.256 

DA5A 

09 


ADD 

HL,BC 

DA5B 

3E 11 


LD 

A,17 

DA5D 

BA 


CP 

D 

DA5E 

20 EC 


JR 

NZ,R4K2 

DA60 

Cl 


POP 

BC 

DA61 

11 1000 


LD 

DE,1024*4 


124 Oh! MZ 1986.10. 






DB37 

DB38 

DB39 

DB3C 

DB3D 

DB3E 

DB3F 

DB41 

DB42 

DB43 

DB44 

DB47 

DB48 

DB4A 

DB4C 

DB4E 

DB50 

DB52 

DB54 

DB56 

DB58 

DB59 

DB5A 

DB5B 

DB5C 

DB5F 

DB61 

DB62 

DB63 

DB64 

DB65 

DB67 

DB68 

DB69 

DB6A 

DB6B 

DB6D 

DB70 

DB71 

DB74 

DB75 

DB77 

DB78 

DB79 

DB7C 

DB7D 

DB7E 

DB7F 

DB81 

DB84 

DB85 

DB88 

DB89 

DB8B 

DB8C 

DB8F 

DB91 

DB94 

DB96 

DB99 

DB9C 


DB9F 

DBA1 

DBA4 

DBA7 

DBAA 

DBAD 

DBBO 

DBB3 

DBB5 

DBB8 

DBBB 

DBBD 

DBC0 

DBC3 

DBC5 

DBC8 


DBC9 

DBCC 

DBCD 

DBCF 

DBD0 

DBD2 

DBD4 

DBD6 

DBD8 

DBD9 

DBDA 

DBDD 

DBDF 

DBEO 

DBE1 

DBE3 

DBE4 

DBE8 

DBEC 

DBF0 

DBF1 

DBF4 

DBF7 

DBF8 

DBFB 

DBFE 

DBFF 

DC00 

DC01 

DC02 

DC03 

DC05 


FI 

47 

3A DB8B 

3D 

B8 

78 

38 ED 

3C 

F5 

79 

CD E649 
FI 

18 E4 

FE ID 
28 IB 
FE 08 
2817 
FE 1C 
28 21 
FE 0D 
FI 
Cl 
El 
£5 

3A DB8B 

ED 50 

03 

72 

23 

3D 

20 F8 


FI 

B7 

28 Cl 
2A E669 
2B 

22 £669 
3D 

18 B7 


FI 

47 


3A DB8B 
3D 
B8 
78 

38 AD 
2A E669 
23 

22 E669 


CD DBC9 
38 05 
CD EB64 
18 03 
CD EB4F 
CD EAC1 
CD EAAF 


3E 07 
32 E66B 
21 0F0C 
CD E5B8 
11 DBE4 
CD E640 

CD E6FA 

3B 27 
32 E66B 
3A FF87 
E6 03 
32 DBE3 
11 DBE1 
06 02 
CD E56A 
C9 


ED 79 
3C 

06 37 
ED 79 
06 3F 
ED 78 
0F 
D8 

011FF0 
ED 78 
OF 
C9 

E4 00 


53 45 54 54 

49 4E 47 20 

50 43 47 00 

F5 

21 0000 
CD E5B8 
FI 

21 07D0 
CD E649 
2B 


LD 

LD 

DEC 

CP 

LD 

JR 


INC 

PUSH 


JR 

CP 

JR 

CP 

JR 

CP 

POP 

POP 

POP 

PUSH 


B,A 

A,(LINW) 


A,B 

C f LIN0 


し 


A,C 

PRINTC 

AF 

LINO 

» 】•-，(§• 

Z.LIN2 

Z,LIN2 

Z,LIN3 
ODH 
AF 
BC 


LD 

L： IN 


A,(LINW) 
D,(C) 


CADDR 
RET WORK 
COPY 


INC 

DEC 


POP 

RET 


HL 


DEC 

CP 

LD 

JR 

LD 

INC 

LD 

INC 

JR 


INIT： CALL 
JR 

CALL 

JR 

STNDRD： CALL 
INIT1 : CALL 
CALL 


Z t LIN0 
HL,(CADDR) 


B，A 

A f (LINW) 


A,B 
C.LIN0 
HL,(CADDR) 


CKDISP 
C,STNDRD 
WH240 
INIT1 
WL240 
CLS 
PINIT 


；WL280,WH280,WL240 f WH240 or WH480 


CALL 

LD 

CALL 


CALL 

RET 

；200 LINE -> CY: 
CKDISP： LD 
XOR 
OUT 
INC 


A,07H 

(CATTR),A 

HL f 0F0CH 

LOCATE 

DE,MESPCG 

PRINTS 

ILPCG ;S] 

A y 27H 
(CATTR),A 
A,(DRNO0) 
03H 

(DRNO),A 
DE t KVSET 
B f 2 
T049 


；SET ATTR. 


BC.3FFFH 
A 

(C),A 


B5 

78 

20 F6 


LD 

OUT 

LD 

IN 

RRCA 

RET 

LD 

IN 

RRCA 

RET 


KVSET： DB 
DRNO： DS 


MESPCG： DB 


CLS0: PUSH 

LD 

CALL 

POP 

LD 

CLS0L： CALL 
DEC 


JR 

RET 


B t 37H 
(C) # A 
B, 3FH 
A, (C) 


；SET KVRAM 
；SET VRAM 

: CASE XI 


BC f 1FF0H；CASE TURBO 
A,(C) 


0E4H.00H ；NO KEY INT. 

1 

•SETTING PCG 1 ,0 

AF 

HL 9 0000H 

LOCATE 

AF 

HL 9 2000 
PRINTC 
HL 
B, A 
A,H 

A y B 

NZ,CLS0L 


；INPUT NUMBER 
INPUTN： CALL 
LD 
LD 

CALL 

LD 

CALL 

RET 


PRINTS ;MESSAGE 
A,5 

DE,INPNW 

LINPUT 

A,5 

ATOI 


DS 


CP 

JR 

SUB 

RET 

CP 

JR 

SCF 

RET 

PUSH 

ADD 

LD 

LD 

ADD 

ADD 

ADD 

LD 

LD 

ADD 

POP 

DJNZ 


B f A 

HL,O000H 

A f (DE) 

DE 

20H 

Z,ATOI3 
, 0 , 

C 

10 

C,ATOI2 


DE 

HL,HL 

D, H 
H.L 
HL,HL 
HL.HL 
HL,DE 

E, A 
D,0 
HL, DE 
DE 


LINPUT: PUSH 
LD 
LD 
LD 
LD 

PUSH 

LINL： CALL 
DJNZ 
LD 
XOR 

LINO: PUSH 

CALL 
CP 
JR 
LD 


DE 

(LINW),A 
B, A 

HL,(CADDR) 
HL 

PRINTC 

LINL 

(CADDR),HL 


AF 

FLGET 

20H 

C，LIN1 

C,A : COPY CODE 


LD 

LD 

INC 

OUT 

INC 

DEC 

LD 

OR 

JP 


HL,4000H 

A,(HL) 


A f D 

NZ.R4K1 


；PLAY MAZE 
PMAZE : CALL 


LD 

LD 

CALL 

RET 


SELWI 

HL»2 

BC,0 

RPOINT 

NC 


: NO MAZE DATA 


CALL 

CALL 


CALL 

: SET EYE POWER 


；SET ITI-SOKUTEI 
XOR 


CLS0 

BLOOK 

A, 00001010 B 

D, 00001010 B 

E, 00001010 B 
PALET 

A,4 

(MAGIC1),A 


；SET COMPASS 
LD 


(MAGIC3),A 


HL,0 
(XP),HL 
HL,3 
(YP),HL 
A,0 

(VECT) f A 

••SET FIRST POSITION AND DIRECTION 
CALL STRAY 
A,0 
D v 0 
E f 0 
PALET 


LD 

LD 

LD 

LD 


LD 


LD 

CALL 

RET 

FLGET： CALL 


OR 

JR 

LD 

LD 


OUT 

PUSH 

FLGETL： CALL 


NZ,FLGET 

HL,(CADDR} 
DE,-1000H 
HL f DE 

B, H 

C, L 
A,(C) 

10H 

(C),A 

BC 

GETK 

A 

Z 9 FLGETL 


214000 

7E 

23 

ED 79 

03 

IB 

7A 

B3 

C2 DA67 
C9 


CD D7D2 
21 0002 
01 0000 
CD EA97 
D0 


3E 20 
CD DBF0 
CD E11B 
3E 0A 
16 0A 
IK 0A 
CD E66C 

3E 04 
32 E54C 

AF 

32 E54D 

32 E54E 

21 0000 
22 E551 
210003 
22 E553 
3E 00 
32 E555 

CD E038 
3E 00 
16 00 
1£ 00 
CD E66C 
C9 

CD E55B 
B7 

20 FA 

2A E669 
11 F0OO 
19 
44 
4D 

ED 78 
F610 
ED 79 
C5 

CD E55B 
B7 

28 FA 

Cl 

F5 

ED 78 
E6 EF 
ED 79 
FI 
C9 


CD E640 
3E 05 
11 DAF2 
CD DB1A 
3E 05 
CD DAF7 
C9 


47 

21 0000 

1A 

13 

FE 20 
2815 
D6 30 
D8 

FE 0A 

38 02 

37 

C9 

D5 

29 

54 

5D 

29 

29 

19 

5F 

16 00 

19 

D1 

10 £3 



D5 

32 DB8B 
47 

3£ 20 
2A E669 
E5 

CD E649 
10 FB 
22 E669 
AF 

F5 

CD DABB 
FE 20 
3814 
4F 


c H » 

c F >E c F 
B A A 0 ( A 


PS D T p T 
POPU IN ANOUPORE 


4789BCDEF 2 3 6 9 c F 0 2 5 8 A c E 1 3 6 7 A D 0 3 6 9 B H 1 3 5 7 A BEF 14789 ACE 0145 7 8 9 B D F 0 14 6 9 c E 1 2 78BCDF1 34689 ABCDEF 01245689 ABEF1458AD E F 2 4 6 
666666666 7 77777 8888888 99 99 9 9 A A A A A ABBBBB B B B CCCCCCCCDDDD DDDDDDE EEEEEEF F FFFFFF 00000000000011111111 1111222222 22333 
\AAAAAAAA A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A AAA AAAAAAAAAAAA A A A A A A A A A A A A A A A AAAAAABBBBBBBBBBBBBBBBBBBB BBBBBBBBBB B B B B B 

ddddddddd d d d d d d ddddddd d d d d d dddddd dddddd ddd dddddddddddd ddddddd ddddddd d doddddddddddddddddddoddddd dddddddddd ddddd 
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DC50 

DC51 

DC52 

DC53 

DC54 

DC57 

DC59 

DC5C 

DC5D 

DC60 

DC63 

DC64 

DC66 

DC68 

DC6A 

DC6D 

DC6F 

DC70 

DC72 

DC73 

DC75 

DC76 

DC77 

DC79 

DC7A 

DC7B 


DCB0 

DCB1 

DCB5 

DCB9 

DCBD 

DCBE 

DCC1 

DCC2 

DCC6 

DCCA 

DCD2 

DCD3 

DCD4 

DCD5 

DCD6 

DCD7 

DCD8 

DCD8 

DCDA 

DCDC 

DCDE 

DCDE 

DCE0 

DCE2 

DCE4 


DCE6 

DCE9 

DCEB 

DCEE 

DCEF 

DCF2 

DCF4 

DCF7 

DCFA 

DCFB 

DCFE 

DD01 

DD04 

DD07 

DDOB 

DD0E 

DD0F 

DD10 

DD13 

DD16 

DD19 

DD1C 

DD1F 

DD22 

DD25 

DD29 

DD2A 

DD2D 

DD2E 

DD31 

DD33 

DD36 

DD37 

DD38 

DD3B 

DD3E 

DD3F 

DD42 

DD45 

DD48 

DD49 

DD4C 

DD4F 

DD52 

DD53 

DD56 

DD57 

DD5A 

DD5B 

DD5E 

DD5F 

DD62 

DD63 

DD64 

DD67 

DD68 

DD6B 
DD6C 
DD6D 
DD6E 
DD6F 
DD72 
DD7 5 
DD78 
DD7B 
DD7E 
DD81 

DD82 

DD83 

DD84 

DD86 

DD88 

DD8A 

DD8D 

DD8E 

DD8F 

DD90 


4D 415A 45 
20 44 4154 
4120 26 20 
20 

4F 42 4A 
20 

4000 8000 
0000 0000 


41 

33 


WHEAD,WBODY,RHEAD,RBODY 
FCBA ： DB 


03E8 

0028 

0028 


0BB8 

0014 

0014 


11 DF13 
06 02 
CD E56A 
AF 

011A03 
ED 79 
2121E4 
CD DEF5 

F3 

21 0056 

22 DD88 
21 DCB0 
110020 

FD 21 DCD8 
CD DD37 


FB 

C9 


21 0100 
CD DEF5 

2150BD 
22 DD88 
21 FFOO 
018000 
114000 
FD 21 DCDE 
F3 

CD DD37 
FB 

11 DFOF 
06 02 
CD E56A 
C9 

D9 

FD 4E 00 
FD 46 01 
37 

CD DDB0 

FD 4E 02 
FD 46 03 
B7 

CD DDB0 

FD 4E 04 
FD 46 05 
37 

CD DDBO 
37 


CD DDC2 
C9 

D9 

21 0000 
D9 

CD DD82 

D9 

7C 

65 

6F 

22 DCE4 
11 0002 

21 0056 

22 DD88 
21 DCE4 
CD DD82 
C9 

D5 

78 

FE 40 
38 05 
ED 50 
C3 DD8E 
56 

23 


01H : FCB AREA 

’MAZE DATA ， 


9 OBJ 9 
20H 

4000H,8000H,O000H f 


DS 

LONGH ： DB 
LONGL ： DB 
SHORTH ： DB 
SHORTL ： DB 
W185 ： DB 
AFTBRW : DB 

ISBT ： 

IMARK1:DW 
IMARK2: DW 
IHARK3 ： DW 

DSBT ： 

DMARK1 : DW 
DMARK2 ： DW 
DMARK3 ： DW 


8 

X1L 

X1L-14 

X1S 

X1S-14 

X1W 


1000 

40 

40 


3000 

20 

20 


••DUMMY 

: LONG HIGH 
；LONO LOW 
；SHORT HIGH 
；SHORT L 
SAMPLING TIME 
；SKIP 

；FCB MARK 


；BODY MARK 


SUM ： DS 2 ；WORK ARE 

拿拿拿拿 WRITE ROUTINE BEGIN 拿拿拿拿拿 


CALL 

XOR 


DI 

LD 

LD 


PATW: 


IN 

JP 


DB,CMT10 

B,2 

T049 ； CMT=10 

A ；WRITE HEAD 

BC,C8255;8255 CONTROLS 
(C) f A ；WRITE f L # 
HL f 8676 ；COUNTER 
WAITXX ；WRITE 8 SBC GAP 


HL.PATWMM 
(PATH),HL 
H い FCBA 
DE f 32 
IY.ISET 
WRITGO ；WI 


WBODY ： LD 

CALL 


LD 

LD 

DI 

CALL 

WBODYZ : El 
LD 
LD 

CALL 

RET 

WRITGO ： EXX 


HL f 10OH 
WAITXX 


；WRITE BODY 
；WRITE GAP 


HL.PATWIO 

(PATW) V HL 

HL t 0000H-100H 

BC.8O0OH 

DE.4O00H 

IY.DSET 


WRITGO ；WRITE BODY 

DE.CMTl ；STOP 

B,2 

T049 


PATCH! 
0FFO0H 
GRAM RED 
LEN 


LD 

LD 

SCF 

CALL 


C, (IY-fO) 
B,(IY+1) 


;CARRY=1 
•WRITE MARK1 


LD 

LD 

OR 

CALL 

LD 

LD 

SCF 

CALL 

SCF 

CALL 

EXX 

CALL 

SCF 

CALL 

RET 

WBYTBS ： EXX 
LD 
EXX 
CALL 

EXX 


CALL 

RET 


C,(IY+2> 
B f (IY+3> 


； CARRY=0 
；WRITE MARK2 


C f (IY+4) 
B,(IY+5) 


； CARRY=1 
；WRITE MARK3 


； CARRY=1 
；START BIT 


； CARRY=1 
: STOP BIT 


MRAMW ： LD 
MRAMW1 : INC 
INC 
CALL 


HL.0000H ；CHECK SUM 
WBS1 


A,H 

H t L 

L f A 丨 SWAP H-L 

(SUM),HL 

DE V 2 

HL.PATWMM 

(PATW),HL ;PATCH! 

HL t SUM 

WBS1 ；WRITE CHECK SUM 


DE 

A,B 

40H ；BC < 4000H ? 

C f MRAMW ；THEN JUMP 
D t (C) ；OET FROM GRAM 
MRAMW1 

D t (HL) ；GBT FROM MRAM 


HL 

BC 


；INC POINTERS 
；WRITE 1 BYTE 


0FF8H 

•.COMMAND REG. 

0FF8H 

； STAT. REG. 

0FF9H 

；TRACK REG. 

OFF AH 

；SECTOR REG. 

0FFBH 

；DATA REG. 

0FFCH 

； MOTOR,SIDE.DRIVE# SELEC 

A V 02H 

BC f CR 

(C) t A 

WNBSY 

；COMMAND 

； BC=COMMAND REG. 


A,1EH 

• # 

； A=COMMAND 

BC，TR 

(C),E 

BC,DR 

: NOW TR 

(C) f D 

BC f CR 

；TO TR 

(C),A 

WNBSY 

: SEND SEEK COM, 

A, 5AH 
SEEK1 


SETSCT 

A,80H 

； A=COMMAND 

BC f CR 

； CR=STR 

BC.DR 

；DATA REG. 

HL,(BUFAD) ；BUFF ADD. 

(C) f A 

••SEND COMMAND 

WAIT1 

A,(C) 

；CHECK BUSY 

NC.RED2 

: END READ 
；CHECK DATA REQ. 

NC,RED1 

;NO REQ. 

A,(C) 

(HL),A 


HL 


RED1 


；BACK STAT 

SETSCT 

A,0AOH 

； A=COMMAND 

BC,CR 

； CR=STR 

BC.DR 

；DATA REG. 

HL,(BUFAD) ；BUFF ADD. 

E f 00H 

；COUNTER 

D f 02H 

• MASK 

(C),A 

WAIT1 


A,(C) 

••CHECK BUSY 

NC,WRT2 

;END WRITE 
；CHECK DATA REQ. 

NC.WRT1 

；NO REQ. 

A,(HL) 

(C) t A 

HL 


WRT1 


;BACK STAT 




BC,MSDR 
(C) t A 


BC 

B t 20H 

WNBSY0 

BC,STR 

A,(C) 

0,A 

NZ.WNBSYl 

7,A 

NZ,WNBSY1 

BC 


A, 7 

NZ.WAIT2 


BC.SCR 

(C),D 

WNBSY 


1A01H 

1A03H 

IA02H 

0072H 

51EDH 

0056H 

50EDH 


;LD 

(HL) f D:NOP 

；OUT 

(C),D 

；LD 

D v (HL) : NOP 

；IN 

D,(C) 


3E 02 
01 0FF8 
ED 79 
CD DC8B 
C9 

3G IE 

01 0FF9 
ED 59 
01 0FFB 
ED 51 
01 0FF8 
ED 79 
CD DC8B 
C9 

3E 5A 
18 F3 

F3 

CD DCA5 
3E 80 
01 0FF8 
D9 

01OFFB 
2A DCAE 
D9 

ED 79 
CD DC9F 
ED 78 
0F 

30 0B 
OF 

30 F8 


D9 

ED 78 
77 
23 
D9 

18 P0 

07 

FB 

C9 

F3 

CD DCA5 
3E A0 
Cl 0FF8 
D9 

01 0FFB 
2A DCAE 
D9 

IE 00 
16 02 
ED 79 
CD DC9F 
ED 78 
0F 

30 0B 
0F 

30 F8 

D9 

7E 

ED 79 

23 

D9 

18 FO 

07 

FB 

C9 

01 0FFC 
ED 79 
B7 
FO 

CD DC8B 
C9 

C5 

06 20 
10 FE 
01 0FF8 
ED 78 
CB 47 
20 FA 
CB 7F 
20 F6 
Cl 
C9 

3E 07 
3D 

20 FD 
C9 

01 0FFA 
ED 51 
CD DC8B 
C9 

8000 


DEF 03567a BCE 035798 DE F 12 4 5 8 A D E 
7 7 7 88888 8 888999999 99 9 A A A A A A A A 

ccc cccccc ccccccccccc cccc cccc c 

DDD DDDDDD DDDDDDDDDDD DDDD DDDD D 


13 2 2 D 6 D 
0 0 0 7 E 5 E 
AAA o1 0 0 


8 8 9 A B c 6 8 B D 0 1 368BD025 6 8 ABE0347ABD 02356 8 9 B c D E 
ffffff 0 0 0 0 1 1 11111222 2 2 222333333344444 4 4 4 4 4 4 
FFFFFF ccccc c cccccccc c c cccccccccyccccc cccccc 
0 0 0 0 0 0 D D D D D D DDDDDDDD DD D D D D D D D D D d D D D D D DDDDDD 



BQBQBQBQBQEQ 


LDLDOUTCALRETLD#,ELDOUTLDOUTLDOUTCALRETLDJRDICALLOLDEXXLDLDEXXOUTCAL IN RRCJRRRCJR 


ndnxxrlie iaddxddxdduanrrrrxxdunxxr lie dutreaeusdjndniriroetdkcretdutaletw =ap 

ILIEJ RER DCLLELLEL し OCIRJRJ ELOIEJ RER LOORCR PLDLIBJBJ PR LDJR LOCK D =T/ECECECECECSE€ 

M 

い • : 0 1 •• •• T : Mo Mo 

^ TOrl:r2::SYSYSYT1T2SCADS:MT55MTRNRIWMWI 
;zWRT; ;WRT;I J = JWAI.SET; rr FMCiTOC.PATPAT.PATPAT 


r tr rcrr sdSt 

•CSTSDM ; R 


K T 
E tl 
ED 


126 Oh! MZ 1986.10. 










1 H ,NON CY->"0” 
BC ' 

NC.WBIT0 
A,(LONGL) 
AF,AF» 

A,(LONGH) 
WBIT1 
C.WBITl 
A,(SHORTL) 
AF,AF» 

A,(SHORTH) 
WBIT1 
BC,C 8255 
AF 
A.1 


: DEC COUNTER 
；CHECK IT 


；WRITE 1 BYTE 


；8 BITS 


NC.WBYTE2 

HL ；INC CHECK SUM 

WBIT ；WRITE 1 BIT 

WBYTE1 

BC 


AF ；SAVE CARRY 

AF 

BC 

WBIT 

BC 

BC 

A,B 

C : COUNTER 

Z,WMARK2 
AF 

WMARK1 


DE 

DE 

A,D 

NZ.WBSl 


BC 

WBIT 

B,8 


LD 

IN 

RRCA 

JP 

POP 

RET 


(C),A 
AF,AF* 
WAITX 
BC,FMCMT 
A t (C) 

NC,BREAK 


拿拿拿拿享 WRITE ROUTINE END 拿拿靠拿拿 

拿拿拿 t 拿 READ ROUTINE BEGIN 拿塞拿拿霉 

HEAD ： LD DE.CMT2 

LD B,2 

CALL T049 ； CMT=2 
DI ；READ HEAD 

LD HL,PATRMM 

LD (PATR) f HL ； PATCH! 

LD HL.FCBA2 ；FCB ADD. 

LD DE f 32 ；LENGTH 

LD IY.ISET 

CALL READGO 


RBODY : DI 

LD 
LD 
LD 
LD 
LD 
LD 

CALL 
JP 
El 


READGO: EXX 
REDGOl : CALL 


H い PATRIO 

(PATR),HL 

HL V 0OO0H-10OH 

BC.8O00H 

DE.4OO0H 

IY f DSET 

READGO 

WBODYZ 


COUNT0 ； COUNT ，ず 
E,(IY^2) 

D, <IY+3> 

A 

HL,DE ；CHECK MARK2 
NZ,REDGOl 


；READ BODY 

;PATCH! 

；DATA ADD- 
；GRAM RED 
；LENGTH 


DEC 

REDG02 : CALL 


EXX 

CALL 


RBIT 

NC,BREAK 
REDG02 

RBIT ；READ LAST MARK 
NC,REDGOl 


RBYTES ;READ HONTAI 


LD 

LD 

LD 


CALL 

JP 


DE»(SUM) 

A. D 
0»E 

B, A 
A 

HL.DE 

NZ.CSERR 


SWAP H-L 
；CHECK SUM 


RBIT ；STOP BIT 
NC,BREAK 


POP 

DEC 

LD 

OR 

JR 

RET 

WBYTE ： PUSH 
SCF 
CALL 

; LD 

WBYTE1 : RL 
EXX 
JP 
INC 

WBYTE2 : EXX 
CALL 
DJNZ 
POP 
RET 

WMARK : PUSH 

WMARK1 : PUSH 
PUSH 
CALL 
POP 
DEC 
LD 
OR 
JR 
POP 
JR 

WMARK2 : POP 
POP 
RET 

WBIT ： ;CY->" 
PUSH 
JR 
LD 
EX 
LD 
JR 

WBIT0 ： JR 
LD 
EX 
LD 
JR 

WBIT1 ： LD 

PUSH 

LD 


DE67 

DE68 

DE69 

DK6C 

DE6D 

DE70 

DE71 

DE72 

DE75 

DB78 

DB7B 

DK7E 

DE81 

DE82 

DE83 

DB84 

DE87 

DG88 

DE8A 

DE8C 

DE8E 

DE91 

DE92 

DE93 

DE94 

DE95 

DE96 

DE97 

DE98 

DE9A 

DE9B 

DE9C 

DE9F 

DEA1 

DBA3 

DEA5 

DEA8 

DEA9 

DEAB 

DEAC 

DEAD 

DBAF 

DEB1 

DEB2 

DBB3 

DEB6 

DEB9 

DEBA 

DEBB 

DEBD 

DECO 

DEC3 

DEC4 

DEC5 

DEC7 

DEC7 

DECA 

DBCB 

DECE 

DED0 

DED1 

DED3 

DED4 

DED6 

DED8 

DED9 

DEDC 

DEDD 


C9 

D9 

21 0000 
D9 

CD DE83 

D9 

E5 

11 0002 

21 0072 

22 DE8C 
21 DCE4 
CD DE83 


El 

C9 


CD OE9B 
78 

FE 40 

38 05 

ED 51 

C3 DE92 

72 

23 

03 

DI 

IB 

7A 

B3 

20 E9 
C9 


C5 

CD DECA 
30 26 

16 00 
06 08 
CD DECA 
D9 

30 01 

23 

D9 

CB 12 
10 F4 


Cl 

C9 


21 0000 
CD DECA 


21 0000 
CD DECA 
D8 


C5 

011A01 
ED 78 
0F 

30 F4 
OF 

38 F8 

ED 78 
0F 

D2 DEC7 
0F 

D2 OED6 


KBYTES : EXX 


EXX 

CALL 


EXX 

PUSH 


CALL 

POP 

RET 

RBS1 ： PUSH 
CALL 
LD 
CP 
JR 

PATR ： OUT 
JP 

MRAMR ： LD 

MRAMR1 : INC 
INC 
POP 
DEC 
LD 
OR 


RBYTE : PUSH 

CALL 


LD 

LD 


BREAK : 
CSERR ： 


RBIT ： 

RBIT1 ： 


HL.0000H ；CHECK SUM 
RBS1 ;READ HONTAI 


HL 

DE，2 

HL.PATRMM 

(PATR) f HL ;PATCH! 

HL f SUM 

RBS1 ；READ CHECK SUM 
HL 


DE 

RBYTE 

A V B 

40H ；BC < 4000H ? 
；THEN JUMP 
；STORE TO GRAM 


C,MRAMR ；T 
(C) f D ；S 
MRAMR1 
(HL) f D 
HL 
BC 


；STORE TO MRAM 


RBYTE1 : CALL 
EXX 
JR 
INC 

RBYTE2 ： EXX 
RL 
DJNZ 
POP 
RET 

COUNT1：LD 

CT11 ： CALL 
RET 
INC 
JR 

COUNT® : LD 

CT01 ： CALL 
RET 
INC 


BC 

RBIT 
NC f BREAK 

D 9 O0H 

B,8 

RBIT 


；CHECK COUNTER 

；READ 1 BYTE 

；START BIT 
CLEAR DATA 


NC.RBYTE2 

HL ；INC CHECK SUM 


RBYTE1 
BC 


；STORE 1 BIT 


JP 

PUSH 

LD 

IN 

RRCA 

JR 

RRCA 

JR 


RBIT2: IN 

RRCA 

JP 

RRCA 


HL t 0000H 

RBIT 

NC 

HL 

CT11 

RBIT 

Sl 

CT01 

START ；TAPE ERR 
BC 

BC f FMCMT 

A,(C) ；IN DATA 
NC,BREAK 

C.RBIT1 : WHILE(HIGH) DO 
A t (C) 

NC,BREAK 
NC.RBIT2 

； WHILE(LOW) DO 


DEE0 

DEE3 

DEE6 

DEE8 

DGE9 

DEBC 

DEED 

DEF0 

DEF3 

DEF4 


DEF5 

DKF8 

DBFA 

DEFB 

DBFE 

DEFF 

DF02 

DP03 

DF04 

DF05 

DF07 

DF08 

DF09 

DF0A 

DF0D 

DP0E 


DF0F 

DF11 

DF13 


3A DCD6 
CD DF08 
ED 78 


3A DCD7 
DC DF08 


Cl 

C9 


011A01 
ED 78 
0F 

D2 DEC7 
AF 

CD DF08 


B5 

20 FI 
C9 

F5 

3D 

C2 DF09 


FI 

C9 


E9 01 
E9 02 
E9 0A 


A,(W185) 

WAITX 

A,(C) 


A,(AFTERW) 
C,WAITX 


CALL 

IN 

RRCA 

JP 

RRCA 

LD 

CALL 

POP 

RET 


拿拿寒拿拿 READ ROUTINE END 拿拿拿蓽拿 


拿拿拿拿拿 WAIT ROUTINE 拿寒拿拿拿 


;7 

;17 


••SKIP TIME 


WAITXX ： LD 
WAPSS : IN 

RRCA 
JP 
XOR 
CALL 
DEC 
LD 
OR 
JR 
RET 

；DAITAI HL 拿 3688 
WAITX ： PUSH AF 

WAITXL: DEC A 

JP NZ 9 W 

POP AF 

へ， RET 
11+14 拿 Acc+2e 
Acc=46 - >644+31=675 


BC,FMCMT 
A,(C) 


A # H 

NZ,WAPSS 


17+14*256+31 


12 or 7 
0 


；10 

；10 


CMT1 ： 

CMT2 ： 

CMT10 ： 


DB 


0E9H,01 
0E9H,02 
0E9H,10 


DD93 

DD94 

DD95 

DD96 

DD97 

OD99 

DD9A 

DD9B 

DD9C 


DI 

IB 

7A 

B3 

20 E9 
C9 


C5 

37 


CD DDC2 


DD9F 

DDA1 

DDA3 

DDA4 

DDA7 

DDA8 

DDA9 

DDAC 

DDAE 

DDAF 

DDBO 

DDB1 

DDB2 

DDB3 

DDB6 

DDB7 

DDB8 

DDB9 

DDBA 

DDBC 

DDBD 

DDBF 

DDC0 

DDC1 


06 08 
CB 12 
D9 

D2 DDA8 

23 

D9 

CD DDC2 
10 F3 


Cl 

C9 


F5 

F5 

C5 

CD DDC2 

Cl 

0B 

78 

B1 

28 03 
FI 

18 F2 

FI 

FI 

C9 


DDC2 

DDC2 

DDC3 

DDC5 

DDC8 

DDC9 

DDCC 

DDCE 

DDD0 

DDD3 

DDD4 

DDD7 

DDD9 

DDDC 

DDDD 

DDDF 

DDE1 

DDE2 

DDE5 

DDE6 

DDE8 

DDE9 

DDEC 

DDBF 

DDF1 

DDF2 

DDF5 

DDF6 


C5 

30 09 
3A DCD3 
08 

3A DCD2 
18 0B 
38 09 
3A DCD5 
08 

3A DCD4 
18 00 
011A03 
F5 

3E 01 

ED 79 
FI 

CD DF08 


ED 79 
08 

CD DF08 
011A01 
ED 78 
OF 

D2 DBC7 

Cl 

C9 


DDF7 

DDFA 

DDFC 

DDFF 

DE00 

DE03 

DE06 

DE09 

DE0C 

DE10 

DE13 

DE14 

DE15 

DE16 

DE19 

DE1C 

DE1F 

DE22 

DE25 

DE29 

OE2C 


11 DF11 
06 02 
CD E56A 
F3 

21 0072 

22 DE8C 
217FO0 
11 0020 

FD 21 DCD8 
CD DE2F 
FB 
C9 

F3 

21 S1ED 

22 DE8C 
21 FF00 
018000 
11 4000 

FD 21 DCDE 
CD DK2F 
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その筋質問箱 


私がとどまるところを知らない解答者の 
祝一平である。今月の質問箱は予告してあ 
ったように「動かないよ」特集である。こ 
れを最後のサポートとするので，心得るよ 
一に。 

まず，最初の迷える子羊は再びの登場， 
愛知県の山口青星氏である。手紙によると 
現在の症状は， X 1 DX で「セーブと APSS 
ができない」ということだそうである 。 A 
PSS は，その前まではできていたのに，突 
然不可能になってしまったそうである。ま， 
ロードはできるようだから，データをセー 
ブするゲーム以外ならば遊べるわ { t だ 0 

そいでもって対策であるが，まず APSS 
が突然動かなくなったというのは，どこぞ 
で断線したか，ショートしたかという可能 
性が大である。具体白勺な症;！犬としては，プ' 
ランクのところ（無言己多象部分）で’止まって 
くれないそうである。よって傾向と対策は， 

APSS 相铁口の線を調べる 
となる。チェックポイントは@£?泉表の，33, 
64番である。おそらく 1 C クリッフ。が外れて 
いる，どこかと接触している，断線してい 
るのいずれかであろう。 

次にセーブできないという問題であるが， 
手紙によると，一応セーブ 1 W 乍はしている 
のだが，データヵ嗜き込まれてないという 
症习犬らしい。言及していないところをみる 
と， LED などは正常に点火丁しているのであ 
ろう。となると困ったことに，私にはお手 
上げである。唯一思いつ〈のは，まったく 
関係な c 、部分での断線/ショートなどであ 
る。1985年12月号の57ページにある CZ -8 
RL 1 の回路図の下の方に 「DIN 7 PIN 」 と 
書いてある部分があるだろう。そこに 「W 
RITE DATA 」 という信号線が載っている 
はずである。まずはそのまわりをチェック 
していただ'きたい。 

あとは， X 1 D 本体内の8255②の14番ピン 
である。ここから書き込みデータ （WRIT 
E DATA ) が出ているわけ tT ある。この足 
が切れていたり，ショートしていたり，基 
板上でノヽ°ターンがカットされていたりする 
とアウトである。テスターがあるなら ， C 
Z -8 RL 1 側の WRITE DATA と導通試験 


をしてみるとよい。なお，これは12月号の55 
ページの表1の13番の信号である。8255① 
の14番ピン （ EJECT ) とは別のものだから 
注意するよ一に。 

次の迷える子羊は，神奈川県の江口佳昭 
氏である。同氏は過去2回の動かないよ特 
集を見て大きく前進したそ一であるが，残 
念ながら「セーブできない」というバグが 
残っているそ一である。これはまさに先に 
やった山口氏と同じ状態なわけである。よ 
って，同じ傾向と対策を授けてしまうわけ 
である。頑張っていただきたい。 

あとは X 1 DII の方が2人残っている。まず 
は東京都の大嶋慶諾氏である。この人の悩 
みは 「DEVICE OFFLINE が出ない」と 
いうことである。文面をみると，「読み，書 
き，フォーマットはできるが， IPL/BAS 
IC / SWORD などがディスケットが挿入さ 
れるまで永遠に待っている」とのことであ 
る。出るべきエラーが出ないというのは確 
かに異常®{，である。そこで対策であるが， 
困ったことに私にはどうしていいのかわか 
らない。暴走などの症^!犬があるならそれな 
りに手もあるのだが。ま，実害がないとい 
うことなのであまりくよくよと悩まずに明 
るく暮らしていただきたいと思うわけであ 
る。 

最後は京都府の小國基樹氏である。「電源 
を入れると同時に，ドライブセレクトを1 
にしてあるはずの CZ -52 F の LED が点灯 
する」など，さまざまな症状が渦巻いてい 
るようである。小國氏は偉いことにきちん 
としたパ'ク1叟しをして，結果を報告してく 
れている。そこで私はその報告のなかにあ 
った， 

1) 3インチドライブを本体から外して， 

5インチドライブの代わりにケーブルの 
先に付け，動作試験をしたら正常に動く。 

2) CZ -52 F の故障の可能性を考えて，シ 
ヤーフ°にしてもらったところ，シロ 
だった。 

以上の2点に注目するのであった。これら 
のことからまず考えられるのは， 

コネクタの向きが逆ではないか？ 

ということである。1986年4月号の166ぺ 



「 FDS -34 P 」 は，裏表を逆にしてもささって 
しまうのである。これを間違えているので 
はないだ、ろうか。同じく168ページの th 
にあるくだりをよく読んで，確認していた 
だきたいわけである。で，それでもだめな 
ら，次に考えつくのが， 

コネクタの接触が不良？ 

ということである。この点については，目 
で見るなり，テスターを使うなりでチ エッ 
クしてみることをお勧めする。 

とに力べ，5インチドライブ'の代わりに3 
インチドライブ'を付けるとちやんと噩力くと 
いうのであるから，接触不良とか，ドライ 
ブの基板が机の上に落ちている金属片によ 
ってショートしている，などしか考えられ 
ないの 1 T ある。 

というわけで，ケーブルは付けてあるが， 
5インチドライブはコネクタから外してお 
くなどしてあれこれ実験していただ' きたい。 
このケースはきっと「な〜んだ，そ一だっ 
たのか！」という状態であると思われる。 

いかなる現象にも原因と理由がある。 
ということを肝に銘じて，ネ斗学していただ' 
きたい。 

というところで「重力かないよ」特集は終 
わりである。なお，過去2回の登場を誇る 
平岩光紀氏は，その後精進を重ねて X 1 DX 
II の真の オーナー となったそ一である。め 
でたしめでたし。 

んで，もっとくるかな？と思っていた 
が，実際は4通しかこなかったわけである。 
「便りがないのは無事な証拠」とつぶやきつ 
つごきげんよ一さよ一なら。 
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つい 10 年ほど前まではまるっきり S F の世界だったパソコンも今では正真正銘の成長期。 
でも高沢さんの SF ショートに出てくるようなコンピュータ社会を思い描くと，なにか今 
のパソコンが忘れてしまっているものを感じないわけにはいきませんね0 



人間書き換え機 

いろいろ批判をされながら，とうとう「人 
間書き換え機」は登場した。 

コンピュータは 日常のほとんどの分野を 
省力と速さということで洗礼して回った。 

省力というのは，なるべく人の仕事を減 
らすことにほかならなかっ 
た。だから誰もがどんどん 
安楽になって，さらに楽に 
なることを望んだ。 

もともとあまりコンピュ 
ータを好まないカワダさん 
は，自分の周りでみんなが 
ゆっくりしているのを見て 
も，それにはとらわれなか 
った。単純な繰り返しの仕 
事でも，計算でも，日常の 
ことでも，せっせと気のす 
むまでやっていた。 

ところが'， コンピュータ 
生活の人とそうでない人の 
数に圧倒的な違いが出てき 
てしまってからは，カワダ 
さんのような人たちはだん 
だん暮らしにくくなってき 
た。 

周りの人たちが娯楽にほ 
とんどの時間を使うのに対して，こちらは 
朝からの仕事が延々終わらない。だから人 
と会う約束をしても，都合のよい時間とい 
うのがまったくズレてしまうし，話題も食 
い違ってしまう。 

そんななかで，やっぱり「人間書き換え機」 
は使われ始めた。 

試験的に作られた「書き換え機」は，家 
庭用のテレビに似ていた。それが電話ボッ 
クスみたいな囲いの中に入っている。 

書き換えを希望する人はここに腰かけて， 
へッドホンの形をした端子を両方のこめか 
みに当てがう。そして総カタログ500名く 
らいの文化人，芸能人， プロスポーツマン 
の中から，好みの人をセレクトする0 


書き換えは約40秒で終わる。 

ほかの部門別の書き換えも可能で，知識 
部門，発想部門，外観装飾部門など自由に 
選べる。 

カワダさんはこれには驚いた。 

でも，いっそ自分は価値観部門ですっか 
り書き換えをしたほうが，みんなと円満に 
いくかとも考えた。 

街には同じ書き換えをしたらしい若い女 


猫とコンビユータ 
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「シヨート•シヨート 

落選展 J 



が出てきてしまい，決してやめることがで 
きなかった。 

このことがあちこちでささやかれて，メ 
一力一が，当然予想されていた原型保存の 
方法についてまったく手をつけていなかっ 
たことも明らかになった。 

原型の保存はカタログ商品に混入する恐 
れから，まったく違う方法でなければセー 
ブできないように考えられていたので，メ 
—カーはそれについては目をつぶってしま 
っていたのである。 

カワダさんはこのとき初めて，自分の今 
までの考え方を変えずにここまで来たこと 
を，ほんとによかったと思 
った。 

ところが，彼はもっと不 
思議な現象に出くわすこと 
になったのである。 

彼がひとたび外出すると， 
どこに行っても，必ず自分 
とそっくりないでたち，話 
し方，表情のくせを持つ人 
に出会うようになったので 
ある。 

もとの自分に書き換える 
ことが不可能だとわかった 
人たちが'，こぞって，カタロ 
グの中の文化人の中にリス 
トアップされていたカワダ 
さんの完全コピーを希望し 
始めたからなのであった。 



Takazawa Kyoko 

高沢恭子 

性が，寸分も違わないファッションで歩い 
ている。テレビのスイッチを入れると，伝 
達部門で同じ書き換えをしたらしい人が， 
誰かとそっくりの話し方でしゃべっている。 

でもこんな様子は「書き換え機」が現れ 
る前からあったような気がして，カワダさ 
んは「書き換え機」というのはインチキで 
はないかとひそかに思った。 

そのうち新しい問題が起きザこ。 

書き換えをした人たちが，その部分につ 
いて自分で変えようとしても，決して変え 
ることができないということである。 

表現部門で，ある芸能記者をセレクトし 
て書き換えをした友人は，いくら変えよう 
としても，あるところにくると同じ接続詞 



シヨート•ソヨート 

コンクール 


「ずいぶんこじつけたな……」 

泊江のアニキがいった。 

「文句いわないっていったでしょ。協力し 
てあげてるんだから。その次はワープロの 
話ょ」 

ホン ニヤアが突然の来客を警戒して，エ 
ンマコオロギの ようなかっこうで'兄の様子 
をうかがっている。 

「この猫は血統書でもあるのかい？」 
「そんなものないわ。だからいいのよ」 
「眼が青くてきれいだし，しっぽも長くて 
立派じやないか」 

「それにとっても利口なんだから。最近は 
“いないいないバア”を覚えたのよ」 
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「お マエ， どうしてそうデタラメをいうん 
だ」 

「ほおんとなんだからあ，ホン ニヤ アのい 
るほうを見ながら『ホンニヤアがいないな 
あ 一， いないぞ，いないぞ』って，ちょっ 
と大きな声でいうの。そうするとホンニヤ 
アがカーテンの陰に入るの。ころあいを見 
計らって 『バアツ』 というと，ピ ッ タリの 
タイミングでホンニヤアが飛び出してくる 
のょ」 

「この家は，ネコまで狂ってる」 

「おばちゃん，ワープロの話は？」 

サトシが催促した。 

兄は長男と3男を連れて我が家に立ち寄 
った。いつも大げさな8人乗りのワゴン車 
でやってくるが，とても便利らしい。次男 
坊だけは野球の練習があるそうで来なかっ 
た。 

「夏休みはにぎやかで，ママは大変だった 
でしょうね」というと， 

「オレんとこは，ふだんから毎日が修学旅 
行みたいだよ」 

兄は，休暇中は自分もひとり人数を増や 
しているのを気づいていない。 

大学付属の高校で数学を教えていた兄が， 
昨年は中学部の創設のスタッフにされて大 
奮闘をしたらしい。 

昨年度入学した生徒がやっと2年生にな 
り，まだ3年生は空席という中学である。 

大学，高校という基盤はあるけれど，中 
学校としてのレベルも水準もこれから作ら 
れていくわけだ。これは大変な仕事だと思 
1 0 

「相変わらず高校の数学も教えているんだ 
けどね，成績の統計については中，高全部 
オレが面倒みてるんだよ」 

中学，高校を含めて PC - 9801ばかり6台 
あって，3つの職員室に振り分けてあるそ 
ぅだ。 

「バソコン AT けあってもプログラムを動か 
せる人が少なくてね」 

あれこれ面倒をみていると手間もかかる 
のだと，ちょっとグチをいっている。 

「ところで，中学の文芸部と放送部の生徒 
が， 創作 ショートショー トの コンクールを 
やるというんでね。先生たちも何か作品を 
出してほしいっていうんだよ」 

「それで……? j 

「キヨウコなら無責任なアイデアをどんど 


ん出せるんじやないかと思ってね」 

「自分で考えればいいじやない，どうせあ 
とからケチつけるくせに」 

「黙って聞くよ，必ず」 

私立中学2年生の長男 ヒロシは， バソコ 
ンにゲーム ソフトを次々かけては遊んでい 
る0そばから，ときおりトオルが話しかけ 
て，楽しそうだ。 

乙姬さまのワープロ 

アシスタントのコウスケは，そのワープ 
口をひと目見たときから親近感を覚えた。 

その機種は，ほかのものとずいぶん様子 
が違っていた。 

文章を作るとき，「ゆったりした暖かみの 
あるものにしたい」などと，自分の希望を 
タイプすると，難しい漢字変換は行わず， 
行間もふさわしいだけ空けてくれる。でも 
チーフのササキさんには，この機種が特に 
気に入らなかった。しかも何日かするうち， 
このワープロはササキさんに反抗するよう 
になってきた。体裁のよい言葉を入れよう 
とすると，どうしても表示しない。どうも 
自分の気持ちを偽った言葉を入れようとす 
るとき，ワープロが抵抗してくるらしいと， 
ササキさんは気づいた。 

そのうちササキさんはまた怒りだして， 
新しいワープロにするといいだすに違いな 
いとコウスケは思った。 

前のときも，その前のときもそうだった。 
編集機能が悪いとか，マニュアルが厚いば 
かりで不親切だとかいっては取り換えた。 

第一，ササキさんが真剣にワープロに取 
り組んでいるのなんか見たことがない。そ 
れなのに「君たちは不勉強だ」と口ぐせの 
ようにいって，「君たちの使うワープロに漢 
字はいらないだろう，漢字を知らないんだ 
から」なんて憎まれ口もきいた。 

確かにそういわれても仕方がないくらい， 
コウスケは漢字も文章も苦手だった。でも， 
若いササキ^ i だって，自分とどれくらい 
違うだろうとも思った。 

案の定，ササキさんは10日目くらいに怒 
りだ'した。変換キーを力まかせに叩いて， 
すぐ車を用意しろと叫んだ。このワープロ 
を处分して新しいものを探すのた'そうた； 
午後3時，炎天下で車は渋滞した。 


ササキさんの機嫌はますます悪くなり， 
いきなり海岸に出ようといって進路を変え 
た。 

海辺に車を止めるとササキさんは， 

「今の自分の仕事はワープロと同じで少し 

も進歩がない . 」といい，いきなり感情 

的になって，ワープロを海に投げ捨てよう 
とした。 

コウスケは必死で止めた。悪いのはワー 
プロではなくて，ササキさん自身なのだ。 
ワープロを何台取り換えても同じなのだ。 
それに，コウスケのいうことならなんでも 
きく，たったひとつの大事なワープロだ。 

しかし，興奮したササキさんは岩場に立 
ってワープロを振り上げ，それは次の瞬間， 
止めようとしたコウスケもろとも海の底に 
沈んでいった。 

ワープロとコウスケは龍宮城にたどり着 
いた。優しい乙姫がコウスケを迎え，龍宫 
城を案内した。ライブラリイにはもう使わ 
れなくなってしまった美しい日本の言葉や 
忘れられてしまった歌などが，1つひとつ 
玉手箱に納められていた。 

「命がけでワープロを助けてくださってあ 
りがとう0特別のおみやげはありませんが， 
気をつけてお帰りください」 

はっと気がつ〈と， コウ スケは自分のデ 
スクにいた。同じ日の午後6時だった。 

それからというもの，コウスケは頭を叩 
くたび，どんな難しい漢字でも出てくる本 
当の生き字引になった。 

ササキさんはといえば，最初に使ったワ 
ープロを買い戻し，人が変わったように熱 
心に取り組んでいるのだった。 

通信仲間 

「こんな話，中学校でやったって面白くな 
いぜ」 

「ポクは面白いよ，ワープロを助けたお礼 
に『言葉の龍宮城』の乙姫さまから，頭に 
いっぱい漢字を詰めてもらったんでしよ」 

サトシがいった。彼はトオルと同じ年だ0 

「それじゃ，極めつけをひとつ……」 

「まだやるのかい•"… 」 

チャイムが鳴って夫が帰ってきた。土曜 
日で早い帰韦だ。 

「やあ，いらっしゃい，今ちようど友人か 
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ら，パソコン通信をプリントしたものが届 
いてましたよ」 

「ほお 一， 僕も時間があればやりたいんで 
すけどね」 

兄がのぞきこんだ。 

会員の誰かが面白い通信をして〈ると， 
ホストのカミヤマさんは，忙しさのなかで 
もこまめにプリントして送ってくれる。 

もちろん，夫も一度は読んでいるものが 
多いのだけれど，記録になると別の楽しさ 
があるようだ。 

会員がみんなパソコンのキヤリアのある 
親しい間柄のせいか，本当にうちとけた内 
容なのがよい。 

事務的な会合の通信はもちろんだけれど， 
それよりも友情を求めたおしゃべりのほう 
に断然ウェイトを置いている感じだ。 

きよう届いたものの中に，先日わが家を 
訪れた若い2人の方のひとりが，そのとき 
の様子や感想を書いたものがあった。 

この人は24歳の若さで，知る人ぞ知るパ 
ソコン界の権威で著書も多い。 

プリテインボード（公開通信欄）に書か 
れた手紙はゆきとどいた温かみのあるもの 
であり，夫へのメールボックス（私信箱）に 
書かれたお礼状は折目正しいものだった。 
こういうことも，当夜の彼の静かな話しぶ 
りに加えて，また新たな印象を持たせてく 


れる。 

さまざまな通信の合間に，ホストのカミ 
ヤマさんが，突如うやうやしく残暑見舞い 
をワク入りで書いたり，自室のマンシヨン 
の窓から見える墨田川の夜景をつづったり 
している。 

楽しい楽しい，通信のスクランブルだ。 

なんだかパソコンの新しい顔が見えてきた 
気配がする。 

神への願い 

運を天に任（まか）せるという意味の名 
前を持つ，おもちゃのメーカーがあった。 

それまでもけっこう着々と歩んできた， 

名の通った会社だった。 

でも，なんとかここでヒット作がほしい， 
世間をあっといわせる大飛躍をしたいと， 
社長以下みんな願っていた。幹部一同，朝 
な夕なに，天に向かってお祈りした。「どう 
か運を開かせてください。いかなる勉強も 
努力もいたします」。必死だった。雨の日も 
風の日も祈った。 

とうとうある明け方，天の声が聞こえた。 

「お前たちの願いは十分わかった。努力を 
惜しまないというなら，あらん限りの努力 
をしろ。その代わりとして，お前たちは， 


必ず人々の2倍のものを手に入れることが 
できるであろう」 

天の声のとおり，ある電気じかけのおも 
ちゃによって，会社は日本中に旋風を起こ 
した。子供はもとより，大人までも，寝る 
のさえ忘れて遊びに興じた。 

面白さは空前のものだったが，健康に害 
の出る者も現れた。そして，なによりもも 
っとも大切な“時間”を人から奪った。 

しかし当の会社は巨万の富を得た。 

約束どおり，社長をはじめ社員たちは， 
人の2倍の給料をもらい，2倍の休暇を手 
に入れた。 

だが少したつと，あることに気づいた。 
鏡に映る顔がなにやら変なのである。もう 
少したつとそれはもっとはっきりしてきた。 
彼らは普通の人の2倍の年を取っていった 
のである。 

そして，なんということか，望みもしな 
いのに彼らの寿命は人の2倍を生きられる 
ことになり，普通の老人の4倍もの年を取 
るまで，死ぬことができなくなったのである。 

やつとひと区切り 

「任天堂に恨みでもあるのかい」 

「ウウン，ちよっとしたヤキモチね。でも 
彼らも，次はどうなるかヒヤヒヤだそうじ 
ゃない」 

ゲームのほうも，もう完成されたものが 
出尽〈したようだし，よほど画期的なもの 
が現れない限り，今が放物線の頂点のよう 
な気がする。 

フ アミコ ン通信についての利用度は，ほ 
んとにどこまで進むのか。子供たちはコン 
ピュータから，ゲームのほかにどんな恩恵 
を受けることができるのか。そんなに急が 
なくてよいから，もっとみんなで考えたい。 

おとなの世界だってやっとひと区切り。 
コンピュータ珍しやの時代が，ようやく終 
わろうとしているのだから。 

「また来るよ，ありがとう」 

シヨートシヨートのネタ探しは，たしに 
なったとも，ならなかったともいわずに兄 
は帰っていった。 

「忘れるところだった」といって帰りぎわ 
に渡された兄嫁からのおみやげは，おいし 
そうな梨のひと包みだった。 
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INPUT ’’ 100，1 0 0 0，10 0 0 0 ナドノ スウヲ INPUT セヨ X 

T I $ - " 0 0 0 0 0 0 •' 

FOR 1=1 TO X 
NEXT I 
PRINT TI$ 

END 


* を N 個表示する 

5130 INPUT "PRINT スルカで N ヲ INPUT tH 
5140 FOR 1=1 TO X 
5150 PRINT " 木‘； 

5160 NEXT I 
5170 PRINT 
5190 GOTO 5130 


実行結果 

10 と 8 を INPUT すると 
GOTO 5130 

PRINT スルカス * N ヲ INPUT セヨ 10 

本本本本本♦木本*本 

PRINT スルカス * N ヲ IMPUT セヨ 8 

本本本本本本本本 

PRINT スルカス '^ N ヲ INPUT セョ 


2 つの ループ 

;X 5330 INPUT X，Y 

5335 FOR 1=1 TO X 
5340 FOR J=1 TO Y 

5345 PRINT " 木 " 

5350 NEXT J 

5355 PRINT 

5360 NEXT I 
5390 END 


実行結果 

GOTO 5330 
? 3,15 

本本本*本ネ本本本本*本本本本 
本本本本本本本本♦本本♦♦本本 
本本本本本本木本本本本本本本本 

READY 


実行結果1000を INPUT した場合 
GOTO 5030 

1 0 0 ,1 0 0 0 ,1 0 0 0 0 ナト—ノ スウヲ 
000001 
READY 

実行結果10000を INPUT した場合 
GOTO 5030 

1 0 0 ,1 0 0 0 ,1 0 0 0 0 ナト"ノ スウヲ 
000012 
READY 


5150行の PRINT “ * ”を入れる。 

5130で実行すると PRINT する数 N を尋 
ねてくる。好きな数を入れるとその数だけ 
* の マークが 連続して表示されるというも 
のだ（図2)。 

FOR NEXT の命令は，その中に別の F 
OR NEXT 命令を入れること（ネステイン 
グ）ができる。 

5340行から5350行は，前の練習を 
1行 PRINT する命令で，5335行と5360行 
でこれを X 行書き出すことになる（図3)。 

このように ， FOR NEXT の中に2重3 
重の命令をすることも可能である。 

テキストを実習しながら ， FOR I の I を， 


INPUT セヨ 1000 


INPUT セ 310000 


ずっと数字の1と考え続けていた。1から 
1の間に，なぜ命令を入れるのかなと思っ 
た。だいぶ進んだところで 「 FOR 1 ( one ) 
ってなんのこと？」と夫に尋ねて，がく然 
とされた。 

変数の I ， J というのは，やはりコンビ 
ュータ言語である FORTRAN で，整数を表 
すのに決められている。その影響でよく使 
われるのだそうで，本当は A でも B でもよ 
いのだという。 

「 I 」は1，「0」はゼロと間違えやすいの 
で，なるべく使わないようにと，夫はある 
雑誌の講座で提唱したこともあるそうだ。 

FOR NEXT の勉強は次回に続く。 


図3 


FOR NEXT つてなあに 

コンピュータの 得意 ワザの ひとつは， 何 
回も繰り返して計算や照合を行うことなの 
だそうだ。この繰り返し命令が FOR NEX 
T て 、'， IF THEN 命令とともにもっとも コンビ 
ュータ らしい命令なのだという。 

まずタイマー（空ループ）としての使い 
方（図1)。5050行の FOR 1 =1 TO X は I の 
値を1からひとつずつ増やして， X まで繰 
り返しなさいという命令だ。繰り返して実 
行するのは， FOR から NEXT までの間であ 
る。 

図1の5050行から5060行までは何も作業 
しないで空回りするので，時間を消費する 
だけの時間侍ちとなる。 

TI $ は時間を計るのに用いる。5040行で 
00(時)00(分)00(秒）と決め, 5030で実行し 
てみる。10，100，1000,10000などの数を入 
力しなさいと出るので，ここで好きな数を 
入れてみる。 

1000を INPUT してみると，000001で1 
秒の表示が出る。10000を INPUT すると， 
000012で12秒かかったことになる。この比 
例で，時間を1分にするには X をいくつに 
したらよいかということもわかる。画面を 
一定時間止めるときなどに使うとよいそう 
だ。 

次の使い方として， FOR と NEXT の間 
に単純な作業をさせてみる。 


図2 


タイマーとしての使い方 


3 4 5 6 7 9 
5 5 5 5 5 5 
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よく彳〇年ひと昔といいますが，コンピュータの世界では5年ひと 
昔，いや1年ひと昔といった感さえあります。いまや大昔といえ 
そうな10年前に初めて発売されたマイクロコンピュータ TK -80。 
性能こそ今とは比較にならないものの，多くの人の夢をのせたす 
ばらしいコンピュータだったに違いありません。 

コンピュータ， TK -80 が発売されたのが昭和51年8月3日，ち 
ようど10周年になります。 

SF のコンピュータにあこがれたマニアがこれに飛びつき，誰も 
予想しなかったブームへと進んだのです。 

今夜は10年前にタイムスリップして 
この辺のお話，さらに ROM がな 
い時代のコンピュータの走ら 
せ方にも触れましよう。 

そして，このワンボードマ 
イコンの時代に論議を呼んだ 
「自殺プログラム」を紹介しま 
す。最後に自分自身がクリア 
されてしまうプログラムです。 

たかだか数行のマシン語，ぜ 
ひ実行してみてください。 

SF コンピュータ 
へのあこがれ 

「コンピュータ」 というもの 
への あこがれ。 

今でもコンピュータに縁の 
ない人たちには根強く残って 
いますが，ひと昔前のバソコ 
ン誕生以前では，このあこが 
れは誰でも強かったのです。 

SF の世界でのコンピュータはどうだったでしよう。 

まずは命令に忠実に服従し，すばやく質問に答えて情報を提供 
したり判断したりする。そして，いつの間にか知能を増殖させて 
神のようになり，果ては意志を持って人類に君臨しようとする。 

当時はコンピュータの数も少なく，オフイスのいちばん奥深い 
部屋に置かれ，しもべのような電算室グループにかしずかれてい 
ました。このため， SF と現実とが交錯してしまったのです。 

「地球は青かった」 

昭和40年代，はるか遠方の人工衛星や月ロケットから送られて 
きた美しい地球の写真。これはカメラの映像を船上のコンピュー 
夕が細かく網目に分割し，0と1の信号にして地球へ送る。これ 
を地上のコンピュータが組み立てて映像を再現する。たとえいく 
つかの信号が誤って送られても修正できると聞かされ，想像を超 
えたその能力に，ただ驚くばかりでした。 

ご多分にもれず私もまったく同様で，なんとかしてこのコンビ 


第,夜 


あこがれの 

コンビユ—夕 


自殺プログラム 


Minegishi Junji 

FORESIGHT 峰岸順二 


ユータに触れたい，理解したい，そして使ってみたいと思ってい 
ました。 


TK -80 発売される 

マイクロながらも，正真正銘の コンピュータ， TK -80 が発売さ 
れたのがちょうど10年前，昭和51年8月3日でした。 

NEC 半導体 • 集積回路販売事業部，マイクロコンピュータ販売 
部では，当時 CPU である# PD 8080 A が月に300個売れる程度だ 
ったようです。この CPU の販売を伸ばそう。そ 
れには トレーニング キットで，まずマ 
イコンになじんでもらおうという 
のが TK -80 のきっかけでした。 

生産の第1ロットは2000台 
と決まりましたが，営業担当 
者は月に20〜30台くらいが需 
要の限界と思ったと語ってい 
ます。注 1 

ところが，いざ売り出して 
みると爆発的に売れたのです 
が，先に述べたような， SF の 
コンピュータに あこがれた 人 
たちが飛びついたのです。 

この組み立ての マニュアル， 
ズブの素人にもわかるように， 
実にやさしく書いてあり，こ 
れが良かったのだと思います。 

部品の確認，道具の準備， 
ハンダ付けの注意から始まり， 
抵抗，ダイオード，コンデン 
サ，トランジスタ， LED ， 1 C ， 
水晶振動子と解説を交えて組 
み立て法を説明しているので 
ドなど，ゴロ合わせの記憶法ま 
52年12月に売り出 


す。たとえば，抵抗のカラーコ 
で載っていました（図1)。88,500円でしたが， 

されたマスク ROM 化された廉価版， TK -80 E , 67,000円と合わ 
せて5，6万台売ったと公表されています。この半分ぐらいがマニ 
アの手に入り，骨までしゃぶられたのではないでしようか。そし 
このキツ 


て， 

卜の ユーザー 
が NEC のイメ 
ージを 受けて 
その周辺に強 
く影響を与え， 
現在のシェア 
(販売台数）第 
1位の基礎を 
築いたのです。 


図1 


抵抗のカラーコード記憶法 




カラーコードはこのように覚えると忘れません 


黒くろいレイふく 
茶ちゃをイッぱい 
赤あかい二んじん 
だいだいだいサンしや 
黄きシけいこ 
緑みどりゴ 

青あおにさいのロクでなし 
紫むらさきシチぶ 
灰はいヤー 
白ほわいとクリすます 


—精度 4 

■ X 1 0 N 5 

•丨位の値6 
•10 位の値7 
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ワンボードマイコンとはとんなちの 

CPU とメモリ，それに入力と出力の装置がある。これがコンビ 
ュータですが，それではいったいワンボードマイコンとはどんな 
ものでしようか。 

入力としては5 X 5と電卓のように配列されたキースイッチ， 
これで16進数〇〜 F のマシン語をキーインします。出力は8個の 
LED ， CPU は8ビットが一般的でした。 

TK -80 の仕様を図2に示します。 

ROM はわずか 0.75 K バイト， RAM も 0.5 K バイトです。しかし 
自分でプログラムを組む場合，この 0.5 K バイトはとても使いきれ 
ませんで'した。 

「8」の LED 8 個が唯一のディスプレイです。これを使って Xo()o 
秒までのストップウォッチ，電話料金表示システム， LED の素子 
のひとつがぐるぐる回るルーレット，もぐらたたき，宇宙戦争， 
神経衰弱，カジノゲーム，逆転並べ替えなど，変化に富んだプロ 
グラムが発表されました。 

メモリ マッフ 。を図3 に 示します。 

なぜ0000番地から ROM があり，8000番地から RAM があるのか 
ビギナーには理解できませんでしたが， BASIC の走る TK -80 BS 
に拡張することを見越したためのようです。 

TK -80 を組み立てる 


美しいケース，プラモデルのように美しい部品。 

真空管式のラジオでは抵抗やコンデンサは大きく，電解コンデ 
ンサなどは卵ほどもありました力 5 '，キットでは 1# F のタンタルな 
どは米粒くらい，新鮮に映りました。 

マニユアルの指示に従ってスぺーサ，アルミボードの取り付け， 
CR と 1 C のハンダ付け，トグルスイッチ，キースイッチの取り付け 
と配線をします（図4)。 

さて，電源をつなぎスイッチオン。 

ここで本来ならば8桁の LED が全部ゼロを表示するわけです。 
しかし RESET を押してもいろいろな素子が点滅し，表示がでた 
らめでマニュアルどおりになりません。1力月ほど配線チェックを 



図6 TK -80 BS 


デジタルカセッ 
コネクタ基板 


カセットメカ 
コントロール基板 






i 





図2 TK -80 の仕様 


CPU 

# PD 808 0 A 

クロック周波数 

2.048 MHz ( 18.432 MHz クリスタル使用） 

ROM 

256 Byte x 3計 768 Byte 

RAM 

l 28 ByteX 4 計 5 l 2 Byte 

入力装置 

キーポード25個 

表示装置 

8桁7セグメント LED の16進数表示 

パラレル I/O 

PPI // PD 8255 8ビット X 3ポート 

シリアル I/O 

入出力110ビット/秒 

電源 

+ 5 V , + I 2 V 

動作モード 

シングルステップ，自動をスイッチで切り換える 

価格 

88,500円 

開発開始 

昭和51年春 

発売 

昭和51年8月3日 

販売数 

ファーストロット2000台，合計5〜6万台 


重ねたけれども誤配線なし，ついにビットインに持ち込みました。 


下にも置かないように大事に取り扱ったわ力 ? TK -80 を，いきな 
り パンパンパンと 作業台にたたきつけました。 ハン ダの粒でも取 
るのでしょうか。結局 ROM 不良，交換で解決しました。 

この TK -80 を走らせるのがまた簡単ではありません。 

1) 電源投入。まず +5 V を入れ，次に +12 V を入れる。逆では 
いけません。切るときはこの逆 

2) RESET キーを押す。 LED はすべてゼロを表示 

3) 16進 キーで 8200と キー イン 

4) ADRESS SET キーを押す。8200番地に入力準備完了 

5) マシン語プログラムの入力 

6) スタート番地8200を入力 

これで （7 )RUN キーを 押すと スター トするのです。 キーは この 
ほか STORE ， LOAD ， DECR ， INCR などがありました。 

組み立て方が懇切ていねいなのに比べて，マニュアルはど素人 
の私には実に難解でした。 


図4 


TK -80 ボード配置図 


0B°3D^ PD454(2048bit)*3 [ f LED 

D D D D D 0^ 5,〇,(8 -^ 


OI2V 
0 + 5V 
OGND 


フリー 
ボー ド 
エリア 


キース イッチ 
„ 25偭鬥 

□ □ 

□ □ □ □ □ 
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RAM ， ROM の別はどうにかわかりましたが，アドレス，ジャ 
ンプでそろそろ混乱し， B レジスタ， C レジスタの内容が 83 E 9， 
83 E 8 番地に格納されている——にはどんなことやら，日本語は読 
めても意味はわかりません。そして， 「 RESE 丁によってモニタプ 
ログラムが走り出す」がもっとも難解でした。 

この意味がわからないまま年月が過ぎ，やがてモニタプログラ 
ムがよく理解されるようになりました。このとき生まれた疑問が， 
もし ROM というものがなかったならばどうなるのだろう——で 
した。 

ROM なしコンピュータのスタート 

ROM などという便利なもののないころ，コンピュータの内部メ 
モリは磁気コァであり，電源を落とせばメモリが全部消えてしま 
います0つまり，オール RAM と思えばいいでしよう。 

これにプログラムを入れて走らせるにはどうしたらいいか。た 
とえば1キーを押しても，キー入力があるかを監視し，1キーが 
押されたのを知る，入力された信号をテレビに出力する，などの 
管理プログラムがなければ，コンピュータは何も応答しません。 
これは次のようにしていました。 

1) まず，短いプログラムを入力する 

これはプログラムの読み込みだけで，あとは何もできない。そ 
の代わり，可能な限り短い0コンソールパネルから直接，スイッ 
チを手で4菊作して入力したようです。 

ブートストラップといわれ，編み上げ靴のヒモという意味です。 

2) 管理プログラムを入力する 

ブートストラップがメモリの〇番地から入力されるのに対して， 
これはプログラムを指定番地に読み込めます。これはもう紙テー 
プで読み込むことができます。 

1) と 2) を合わせて ROM 化し， MZ では IPL (Initial Program 
Loader ) と呼んでいます。 

3) 目的のプログラムを LOAD する 

スイッチオンで直ちに READY や OK が出て ROM BASIC が走 
る パソコンから 考えると夢のようです。ただ，クリーン コン ピュ 
ータ である MZ の ューザーは IPL が あり，テープ やデイスクの BA 
SIC をロードしているので昔のコンピュータの立ち上げはピンと 
くるでしよう。 

TK -80 に BASIC ボードを付けた TK -80 BS の立ち上げも簡単で 
はなく，次のステップでした。 

1) BS およびテレビなど周辺機器のスイッチを入れる 

2) TK -80 の RESE 丁キーを押す。 LED 8 個は0を表示する 

3) BS の ROM のスタート番地である F 000 を TK -80 にセットする 

4) TK -80 の RUN キーを押す。ここで初めて BS のモニタプログ 
ラムが走り出す 

* * BASIC STATION MONITOR VI . 0 * * と表示 

5) プロンプトの$に対して BA を入力すると BASIC インタプリ 
夕がここでスタートし 

6) ENTER RAM END ADDRESS と表示されるのでシステム 
の RAM の最終番地， 5 K バイト実装の場合は 97 FE を入力する 


これでやっと走り出したのです。 

自殺プロクラムとは 

ある範囲のメモリをゼロにすること，これはマシン語を少し勉 
強すればできるでしょう。ひとつやってみてください。 

A レジスタを0とし， HL レジスタに番地をセットし， LD ( HL )， 
A によって，今セットした番地のメモリを0にする。 HL に1を加 
え（または1を減じ）はじめのアドレスにジャンプする。これだ 
けの短いフ。ログラムです。 

しかし，このプログラムまで最後にはゼロにしてしまう。これ 
が自殺プログラムです0 

ワン ボードマイ コンが 発売され，誰もが マシン 語のイロハを習 
い始めたころ，頭の体操としてこの自殺プログラムが生まれまし 
た。1バイトでも短くこのプログラムを完成させようとの競争が 
マイコン誌をにぎやかにしたのです。 

いずれも10バイトぐらいの短いプログラムです。命令数も少な 
いのでフローチャートを書いてみていろいろな手法を味わってみ 
てください。マシン語の練習になりますし，また BASIC に書き換 
えてみるのも面白いです。 

自殺プロクラム 

リスト1 

まずリスト1を入力してください。 

ROM モニタを走らせ， * M 8000 rCRl として C 5, E 9， 21，…… 
とキーインします。たったの14バイトです。 

終わったならば | SHIFT | + [ BREAK | し， * J 8002 として8002 
番地から走らせます。マシンによっていろいろな変化をしますが， 
たとえば MZ -1500 の場合は初期画面に戻るので， M fCRl で再び 
ROM モニタモードとします。 

D コマンドを使い， * D 8000としてダンプしてみてください。 
先ほど入力したプログラムがすべて自殺し，00になっています。 
* D 9000，* DA 000 C 000 といろいろな番地を調べてください。リ 
スト1を入力する前に，あらかじめ8000，9000番地などをのぞい 
ておくと変化がわかっていいでしょう。 

BASIC モニタでも可能です。 

BYE コマンドで MZ -1500 の BASIC モニタを走らせ，あとは上 
と同じです。 * G 8002をすると画面は READY に戻ります。リス 
卜入力前と自殺後のダンプリストを図5に示しました。 

自殺後の状況はマシンによって違います。モニタへ戻るもの， 
暴走してどのキーも受け付けなくなるものなど千差万別ですが， 
どの場合もリセットして ROM モニタへ戻ればダンプできます。 

命令はたったの6つ ， PUSH BC ， JP 命令2つ， LD 命令3つ 
です。考えてみてください。 

リスト2 

自殺プログラムとしてマイコン誌に掲載されたのは，これが初 
めてと思います。 I/O 53年8月号で自殺プログラム（未完成）と 
して発表されました。 
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PUSH BC 
JP (HL) 

LD HL, 8000 
LD BC, 0000 
LD SP, 0000 
J P 8000 


8000 
800 1 
8002 
8 00 5 
8008 
800B 


リスト 3 自殺プログラム（注 4 ) 

山口県伊藤鶴美 

$8000 番地からスタート 


B000 

21 

00 

80 

LD HL, 8000 

B003 

36 

00 


LD (HL) , 00 

B005 

23 



INC HL 

B006 

3E 

B0 


LD A, B0 

B008 

94 



SUB H 

B009 

C2 

03 

B0 

JP NZ, B003 

B00C 

C3 

3E 

00 

CALL BELL 


リスト4 自殺プログラム（注 5) 

東京都ピテカントロプス 


$8000 番地から スタート 


8000 

31 

06 

80 

LD SP, 8006 

8003 

21 

00 

00 

LD HL, 0000 

8006 

E5 



PUSH HL 

8007 

E5 



PUSH HL 

8008 

E5 



PUSH HL 

8009 

C3 

06 

80 

JP 8006 


リスト5 

自殺プログラム(注 6 ) 





新潟県飯田義郎 

$8000 番地から スター ト 


8000 

31 

04 

80 

J P SP, 8004 

8003 

21 

00 

00 

LD HL, 0000 

8006 

E5 



PUSH HL 

8007 

E5 



PUSH HL 

8008 

C3 

06 

80 

JP 8006 


リスト2 自殺プログラム(注 3) 

仙台市たなかしんじ 

$8000 番地から スター ト 


図5 


MZ -1500 巳 ASIC モニタでの RUN 


I スト丨の入力前 ：80 0 0 = D 5 
： 8008=C5 
: 801 0 = 1) 1 
： 8018=4E 
： 8 0 2 0 ■ D 5 
： 8 0 2 8 = 9 F 
： 8030=E5 
： 8038-E5 
： 8040-CD 
： 8048-2B 
： 80 50 = CD 
: 8058=4F 
： 8060 = EB 
： S068-C6 
： 8070 -EB 
： 8078=23 


自殺後のメモリ 


8000-00 
8008=00 
8010-00 
8018=00 
8020-00 
8028=00 
8030-00 
8038=00 
8040=00 
8048-00 
8050=00 
8058=00 
806000 
8068=00 
8070 00 
8078=00 


CD 76 
CD C2 
6F E3 
3C CA 
CD B0 
7B B7 
CD 9F 
CD 9F 
90 82 

70 CD 
BF 80 

71 01 
32 29 
80 CD 
7E 91 
86 77 

0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 00 
0 0 0 0 
0 0 0 0 
0 0 0 0 


7B 42 
6F CD 
EB CD 
68 57 
7E 18 
28 0 1 
7B El 
7B 2A 
36 00 
C6 80 
EB 7E 
0 5 0 0 
95 C3 
D16F 
30 02 
23 30 

0 0 00 
0 0 0 6 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
00 00 
0 0 0 0 
0 6 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 


4B D1 
76 7B 
9 0 6B 
3D D1 
CF E5 
1A 18 
C3 B0 
7 A 1 0 
D1 El 
CD D1 
B9 30 
3E 03 
5E 01 
CD BF 
AF 4E 
0 134 

0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
00 00 
0 0 0 0 
0 0 0 0 
00 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 


/■ 4»BKH 
/I L ■キ 1 •土 

/ 丄ド し外 

/N< I© 卜 ^4 

/I しび•■一 L 

/ ソ杉ラ（•… 

广 1 •挿*# •- 

/し『6.饧— 
ハ .i ノ i ル 0. 

/〇月. •. >" 

/ノ 2) オー个 • L 

/键 I LJ -^ L * i 
パ £ ァ 0• マ N 月 
/# ヲ！ #0.4. 


00 /• 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 
00 /. 


リスト1自殺プログラム(注 2 ) 

高襯市平井宣武 

$8002 番地からスタートのこと 


HL レジスタに BFFF をセットし ， XOR A で A レジスタの値を 
0としてから HL にセットした BFFF 番地のメモリを0とする 。 H 
L にセットした値を1減じる——を繰り返します。 

これは残念なことに完全には自殺しません。作者が未完成版と 
称しているゆえんです。 

リスト3 

これも自殺はしませんが RAM 領域のクリア法のひとつです。 
これも TK -80 用で，このままでは暴走するのでモニタの BELL を 
コールする C 3 3 E 00を追加しました。 

リスト4 

SP に8006を入れることによって，8005，8004に HL の値の0を 
入れ，若い番地へ進み，0000番地から FFFF 番地へジャンプし， 
再び若い番地へ進みます。80054 0 — FFFF — と。 

果たしてどんな風に自殺するのでしようか。 

リスト5 

リスト4をさらに1パ、イト減らしたと発表されたものです。 

マシンの種類によっては自殺せずに8000〜8008番地が他の数に 
化けて残る場合があります。 

今夜はマシン語に慣れない場合を考えて，どなたでもこれらの 
プログラムを走らせてみることができるように，詳しく述べてみ 
ました。ぜひ実行して ROM モニタにも親しんでください。そして 
シャープマシンの面白い自殺プログラムを考えついたら，この記 
事あてに投稿してください。 

コンピュータ•ワンダーランド 

今夜は， TK - 80発売10周年にちなんで古いお話をしましたが， 
池袋西武デパートでは7月末から，歴史的なコンピュータを集め 
た展示会「コンピュータ • ワンダーランド」が開かれました。 

ここで，世界最初のパソコン， ALTAIR 8800に対面することが 
できたのです。明日の夜は，.この辺のマシンについてお話をいた 
しましよラ c 

私たちのクラブでは，毎年，秋葉原ラジオ会館8階大ホールで 
作品展を開きます。ホビーマイコンショウと称して，今年は第4 
回となります。入場無料，10月12日（日）11〜17時です。 

これについてはすでに千夜一夜で書きました P 親睦，レベル 
アップなどを目的とするもので，やはり今年は通信閨係が多いよ 
うですが，往年の名機がたくさん活躍すると思います。 

アキバショッビングに来られた方は訪れてみてください。 

注 1) 太田行生：パソコン誕生 25p, C&C 文庫， 1983.3. 日本電気文化 
センター 

注 2) 平井宣武： 8080 自殺プログラム RANDOM BOX 87p, I/O 別冊 
⑤， 1979.1 .31. 工学社. 

注 3) たなかしんじ： TK-80 用テキストエディタ RANDOM BOX 104 
p, I / O , 1978.8. 工学社 

注 4) 伊藤鶴美：自殺プログラム RANDOM BOX 61p, I/O 別冊⑤， 
1979.1 .31. 工学社 

注 5) ピテカントロプス：自殺プログラム VER.4 RANDOM BOX 
55p, I/O 別冊⑤， 1979.1 .31. 工学社 
注 6) 飯田義郎： 8080 自殺 プログラム RANDOM BOX 179p ， I/O ， 
1980.1. 工学社 

注 7) 峰岸：パソコン千夜一夜第 12 夜， 1984.12 第 16 夜， 1985.4. 
Oh ! MZ , 日本ソフトバンク 
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マシン語体操ア .2.3 

〈オームの大冒険〉入門編 

Izumi Daisuke 


泉 

前回は，サブルーチンをオブジェクトとしてメモリ上に作成し， 
それらを CALL することで開発を効率よく行う方法をお教えしま 
した。今回はそれらのサブルーチンを使って，遊べるゲームを作 
ってみましょう。 

と，オープニングには書くつもりだったのですが，各種処理の 
ための新しいサブルーチン群が大増殖し，さらにはメインルーチ 
ンまでもが500行程度と，まさに起ド級の様相を呈してしまいま 
した。キメ細かい説明はこれではとても無理ですので，メインル 
ーチンは申しわけないのですが来月に見送ろうかと思います。期 
待されていた皆さんごめんなさい。マシン語体操が全ページリス 
卜だけなんて事態よりはましだと思って許してください。あとひ 
と月の辛抱です。 



前回は基礎知識として，面のデータを圧縮したり，それを画面 
に表示したりする方法や，人型を移動させる方法をお話ししまし 
た。どんなゲームにも使える テクニックで， いわばゲーム作り概 
論といったところでしようか。 

今回はこのゲームのルールと，そのためのサブルーチン群を解 
説していきます。なお人型は OHM と命名することにします。鳥 
のオウムじゃありません。もちろん王蟲でもありません。人型の 
データの OHM をとってオームです。 

さてゲームですが，ただ，梯子を登り綱を伝い，迷路のなかを 
さまようだけではイマイチ面白味に欠けます。そこで，鍵とドア 
を付けることにします。鍵を持っていればドアを開けて先へと進 
むことができます。そして数あるドアのなかのどれかに宝が隠し 
てあり，ドアを開けるとその宝が出現します。このゲームの目的 
は，この宝を探し出すことです。ただし宝への道は巧妙に工夫さ 
表1 今月登場する命令たち (1 8語） 


し D 

値を入れる 。 「LD (9876h), Aj で 9876h 番地に A が入る 

CA しし 

サブルーチンを呼ぶ 。 「CALL NZ, #NLj は NZ なら CALL 

RET 

サブルーチンから帰る 。 「RET Zj は Z なら RET 

INC 

値を 1 增す 。 「INC Aj は A=A+1 

DEC 

値を 1 滅らす 。 「DEC C 」 は C=C-1 

PUSH 

スタックにレジスタの値を保存する （ ex.「PUSH HL 」） 

POP 

スタックからレジスタに値を取り出す （ ex.「POP DE 」） 

AND 

A=A AND m, m はレジスタまたは数値 

OR 

A=A OR m 

XOR 

A=A XOR m 

CP 

A と m を比較する。結果はフラグに残る 

ADD 

A=A + m,.HL = HL + pp ， pp はレジスタペア （ HL, DE. BC ) または数値 

SUB 

A=A —m 

SBC 

A=A —m—cy, HL = HL —pp —cy, cy は C フラグが立っていると 1 

JP 

BASIC の GOTO に相当。ジャンプを行う 

JR 

相対ジャンブを行う 

DJNZ 

「DEC Bj「JR NZ, - j を 1 命令にしたもの 

EX 

「EX DE, HLj (iDE と HL の内容を交換する 


大介 

れており，適当にドアを開けていくと鍵が足りなくなって，にっ 
ちもさっちも行がなくなってしまう.という展開です。どうです， 
面白そうでしょう。綱を伝うことや飛び降りることも可能です。 
これで迷路のバリエーシヨンはかなり広がるはずです。 


仮想 VRAM へのセツトルーチン 


今回の ゲームルールで 鍵を取る，ドアを開けるという行為は実 
はちよっとやっかいな処理なのです。一度取られた鍵は画面から 
消えなければなりませんし，一度開けられたドアもそうです。 

また， 12 X 8 ピース1画面で，1画面内しか動けないというの 
も面白くありません。画面の端まできたら，パッと次の画面に切 
り換わってほしいのです。ということは，開けたドアのところは 
空白のデータをセットしておかないと，隣の画面から帰ってきた 
ら開けたドアが閉まっていたなんて事態が発生します。 

そこで取った鍵の位置，開けたドアの位置に空白のデータをセ 
ットすると，今度は困ったことが発生します。データをセットす 
るというのは圧縮データに変更を加えるという意味ですが，これ 
をやってしまうと再ゲームできなくなるのです0再ゲームのたび 
にもう一度データをロードするというのも気が利きませんし，や 
る気もしません。 

また，オームが いる 位置のピースはなんなのかを簡単に調べた 
いという気持ちもあります。そこで思いきって，仮想 VRAM をもう 
ひとつ設けることにしました。前回のものは画面丸ごと How Much 
でしたが，今回のものはピース番号を入れてある仮想 VRAM です ( 
圧縮データで720001というデータは，07 02 00 00 00 01と展開 
されるわけです。このピース番号のデータは， MAPDATA として 
全画面の情報を AOOOh 以降に展開します。 

先月の仮想 VRAM は， MAPAREA として B 000 h 以降に作成しま 
すが，圧縮 データ を参照して展開するのではなく， MAPDATA を 
参照して展開するのです。こうすれば MAPDATA をいくら変更し 
ようが，再 ゲームの 際に再び圧縮 データから MAPDATA を作って 
やることができますね。 

MAPDATA のセットは先月作った STUPRD ， STLWRD を変更 
したものを使います。これら2つのルーチンは，先月はピースの 
キャラクタを B 000 H 以降に直接書き込むまでの役目を負っていま 
したが， 今月はピース番号を返すだけとします。 HL に圧縮データ 
の格納アドレス， DE に MAPDATA のアドレスをセットし， 


LD 

A , ( HL ) 

圧縮データ，たとえば 72 h をセット 

PUSH 

AF 

それを保存 

CALL 

STUPRD 

上位桁を A にセット。この場合は7 

LD 

( DE)，A 

仮想 VRAM へ 

INC 

DE 

次のアドレスにしておいて 

POP 

AF 

圧縮データを取り出す 
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CALL STLWRD ; 今度は下位桁 2 を 
LD ( DE)，A ;仮想 VRAM へ 
というように使います。圧縮データは1画面につき48個ですから， 
これを48回繰り返せば，96個のピースを MAPDATA としてセット 
してやることができますね。 

さてお次は MAPDATA から MAPAREA へのデータセットですが， 
これは先月の STDATA を使います0 DE レジスタに仮想 VRAM の 
アドレス， A にセットするピース番号を入れて使うんでしたね0 
これは簡単にかたがつきます。例1のリストを見ながら説明しま 
しよラ。 

これら2つのサブルーチンは31行から始まります。まずは STO 
RD です。これは ゲームで 使う総面数を A にセットして使います。 
来月発表する ゲームは 2 X 2の4画面ですので，この場合には 「L 
D A ,4 j を実行してから呼ぶことになります。 MAPDATA にセッ 
卜できる総面数は42です。これ以上は MAPDATA エリアを越えて 
しまい，残念ながら実現できません。でも 7X6 面まで作れます 
から，とりあえず満足というところでしよう。 


次に62行からの MAP です。これは， MAPAREA に第何面をセッ 
卜するのかを A に入れて使います。67〜73行で A に入っている面 
番号に対応する MAPDATA を HL に算出し，ここからピース番号 
をひとつずつ取り出して MAPAREA にセットしていきます (75 〜109 
行)。基本的には前月とまったく変わりません。 

12〜29行はこのサブルーチンを使うためのサンプルです0この 
1画面分のデータは，来月のゲーム画面の一部です。ドアや鍵な 
ど来月使うアイテムが散りばめてあります0アセンブル後，画面 
を40字モードにして J 8000で実行してみてください。 

60 行に妙なことが書いてある，そう思われた方もあるでしよう。 
これは後々利用するサブルーチンをきれいなアドレスから始める 
ために，アドレスの最下桁を繰り上げているのです。いま SUB 1 
= 911Ah ですから SUB 1 A 16+ 1 X16=911Ah/16+ 1 X16 = 911h 
+ 1 X16=912hX 16=9120 H となります。 ZEDA には演算の優先順 
位はありません。これはほとんどが趣味の産物ですが，きれいな 
アドレスで始まるほうが気分がよいので，私はちよくちよくこう 
いうことをやります。 


例1仮想 VRAM を作る 


0000 





1 


SAMPLE - 1 


9135 




78 


L 



0000 





2 




9135 

7E 



79 

MAP2 ： 

A f (HL) 


0000 





3 




9136 

CD 

82 

91 

80 


CALL 

STDATA 


0000 





4 

♦MSX ： EQU 

1FE5H 

9139 

23 



81 


IHC 

HL 


0000 





5 


SPRINT ： EQU 

1FF4H 

913A 

7B 



82 


LD 

A f (HL) 


0000 





6 




913B 

CD 

82 

91 

83 


CALL 

STDATA 


0000 





7 


1APDATA：EQU 

0A000H 

913E 




84 


INC 



0000 





8 

MAPAREA：EQU 

0B00OH 

913E 

23 



85 


HL 

; ツ年•ノ data 

0000 





9 




913F 

10 

F4 


86 


DJNZ 

MAP2 


8000 





10 


ORG 

8O0OH 

9141 




87 


; 



8000 





11 




9141 

E5 



88 


PUSH 

HL 


8000 





12 

TEST ： 


9142 

EB 



89 


EX 

DE.HL 

； HL, DE n ヴカン 

8000 

3E 

01 



13 


LD 

LD 

A,1 ;NumberB of scene 

9143 

11 

28 

00 

90 


LD 

DE.40 


8002 

21 

0E 

80 


14 


HL.DATA 

9146 

36 

00 


91 


LD 

(HL),0 ； 

■ウノサイ: r ノ 

8005 

CD 

00 

91 


15 


CALL 

STORD 

9148 

19 



92 


ADD 

HL.DE 


8008 





16 


Ld 


9149 

36 

00 


93 


LD 

(HL) f 0 ； 
HL.DE 

テ •一タノウシ D 二 

8008 

3B 

01 



17 


A,1 ；Scene 1 

914B 

19 



94 


ADD 


80OA 

CD 

20 

91 


18 


CALL 

MAP 

914C 

36 

00 


95 


LD 

(HL),0 ； 

End Mark ヲツケル 

800D 

C9 




19 


RET 


914E 

23 



96 


INC 

HL 


800E 





20 




914F 

23 



97 


INC 

HL 


800E 





21 

DATA ： 


9150 

23 



98 


IMC 

HL 


800E 

72 

00 

03 

30 

22 


DEFB 

72H:00H:03H:3OH ： 30H ： 33H ； Scene 1 

9151 

23 



99 


INC 

HL 


8012 

30 

33 







9152 

EB 



100 


EX 

DE V HL 

: DE = ツ夸 •ノ line 

8014 

72 

61 

00 

02 

23 


DEFB 

72H ： 61H:00H ： 02H ： 00H ： 00H 

9153 

El 



101 


POP 

HL 


8018 

00 

00 







9154 

0D 



102 


DEC 


801A 

75 

55 

55 

02 

24 


DEFB 

75H ： 55H:55H ： 02H ： 05H ： 55H 

9155 

20 

DC 


103 


JR 

NZ f MAPl 


801E 

05 

55 







9157 




104 


; 



8029 

70 

30 

00 

02 

25 


DEFB 

70H ： 30H ： 00H:02H ： 33H ： 00H 

9157 

06 

24 


105 


LD 

B，36 


8024 

33 

00 







9159 

3E 

20 


106 


LD 

A f f 1 


8026 

72 

09 

01 

80 

26 


DEFB 

72H ： 09H:01H ： 80H ： 00H ： 00H 

915B 

12 



107 

MAP3 ： 

LD 

(DE) f A 


802A 

00 

00 







915C 

13 



108 


INC 

DE 


802C 

72 

05 

55 

55 

27 


DEFB 

72H ： 05H ： 55H ： 55H ： 00H ： 85H 

915D 

10 

FC 


109 


DJNZ 

MAP3 


8030 

00 

85 







915F 




110 





8032 

70 

20 

00 

06 

28 


DEFB 

70H ： 20H:00H:06H ： O1H:0OH 

915F 




111 

；PRINT OUT 

ROUTINE 


8036 

01 

00 







915F 




112 

； 




8038 

55 

55 

55 

55 

29 


DEFB 

55H ： 55H:55H:55H:55H ： 55H 

915F 

21 

00 

B0 

113 


LD 

HL,MAPAREA 

803C 

55 

55 







9162 

11 

28 

00 

114 


LD 

DE，40 


803E 





30 




9165 

06 

18 


115 


LD 

B f 24 


9100 





31 


ORG 

9100H 

9167 

EB 



116 

PROUT : 

EX 

DE f HL ； 

； HL = 40 

9100 





32 




9168 

CD 

E5 

IF 

117 


CALL 

#MSX 


9100 





33 


SET ORIGINAL DATA 

916B 

EB 



118 


EX 

HL.DE ; 

； DE = 40 

9100 





34 




916C 

19 



119 


ADD 

HL f DE 


9100 





35 


HL = DATA 

ADRS 

916D 

3E 

0D 


120 


LD 

A,0DH 


9100 





36 




916F 

CD 

F4 

IF 

121 


CALL 

♦PRINT 


9100 





37 


A = Numbers of Scene 

9172 

10 

F3 


122 


DJNZ 

PROUT 


9100 





38 




9174 

C9 



123 


RET 



9100 





39 

STORD ： 


9175 




124 





9100 

4F 




40 


LD 

C,A 

9175 




125 

；Set 

upper 

4 bits data 

of A 

9101 

11 

00 

A0 


41 


LD 

DB f MAPDATA 

9175 




126 

； 




9104 

06 

30 



42 

STOD1 ： LD 

B，48 

9175 




127 

STUPRD ： 




9106 





43 


; 


9175 

C5 



128 


PUSH 

BC 


9106 

7E 




44 

STOD2 : LD 

A,(HL) 

9176 




129 


Id 



9107 

F5 




45 


PUSH 

AF 

9176 

06 

04 


130 


B,4 ; 

;A = ???? XXXX 

9108 

CD 

75 

91 


46 


CALL 

STUPRD 

9178 

87 



131 

STUD1 ： 

ADD 

A,A 


910B 

12 




47 


LD 

<DE),A 

9179 

30 

01 


132 


JR 

NC.STUD2 


910C 

13 




48 


INC 

DE 

917B 

3C 



133 


INC 

A 


910D 

FI 




49 


POP 

AF 

917C 

10 

FA 


134 

STUD2 : 

DJNZ 

STUD1 


910E 

CD 

7F 

91 


50 


CALL 

STLWRD 

917B 

Cl 



135 


POP 

BC ; 

；A = XXXX ???? 

9111 

12 




51 


LD 

(DE),A 

917F 




136 





9112 

13 




52 


INC 

DE 

917F 




137 

；SET 

LOWER 

DATA 


9113 

23 




53 


INC 

HL 

917F 




138 





9114 

10 

F0 



54 


DJNZ 

STOD2 

9X7F 




139 

；Set 

lower 

4 bits data 

of A 

9116 





55 


； 


917F 




140 





9116 

0D 




56 


DEC 

C 

917F 




141 

STLWRD ： 




9117 

20 

EB 



57 


JR 

N2 t STODl 

917F 

E6 

0F 


142 


AND 

0FH 

;Mask 4-8 bit 

9119 

C9 




58 


RET 


9181 

C9 



143 


RET 



911A 





59 




9182 




144 





9120 





60 

SUB1 : ORG 

SUB1/16+1*16 

9182 




145 

；SET 

DATA 



9120 





61 




9182 




146 

； 




9120 





62 


MAPPING 


9182 




147 

STDATA : 




9120 





63 




9182 

E5 



148 


PUSH 

HL 


9120 





64 


A = Scene 

No. 

9183 

C5 



149 


PUSH 

PUSH 

BC 


9120 





65 




9184 

D5 



150 


DE 


9120 





66 

MAP ： 


9185 




151 


L 



9120 

47 




67 


LD 

B f A 

9185 

67 



152 


H,A 


9121 

21 

00 

00 


68 


LD 

HL,0 

9186 

87 



153 


ADD 

A, A 

<2 

9124 

11 

60 

00 


69 


LD 

DE,96 ; No. of pieces in a scene 

9187 

87 



154 


ADD 

A,A 

拿 4 

9127 

19 




70 

MAP0 ： ADD 

HL f DE 

9188 

87 



155 


ADD 

A,A 

拿 8 

9128 

10 

FD 



71 


DJNZ 

MAP0 

9189 

84 



156 


ADD 

A 9 H 

拿 9 

912A 

11 

A0 

9F 


72 


LD 

DE.MAPDATA-96 

HL.DE ； HL = (A-l) 拿 96 ♦ MAPDATA 

918A 

6F 



157 


LD 

L，A 


912D 

19 




73 


ADD 

918B 

26 

00 


158 


LD 

H t 0 


912E 





74 


； 


918D 

11 

B2 

91 

159 


LD 

DE f SPC 


912E 

11 

00 

BO 


75 


LD 

DE,MAPAREA 

9190 

19 



160 


ADD 

HL,DE 

i HL is top of data 

9131 

0E 

08 



76 


LD 

C v 8 

9191 




161 


POP 

9133 

06 

06 



77 

MAPI : LD 

B,6 

9191 

D1 



162 


DE ； 

; V-RAM Adrs 


1J8 Oh! MZ 1986.10. 












4F 11 00 A0 06 30 7E F5 
CD 75 911213 FI CD 7F 
911213 2310 F0 0D 20 
EB C9 F4 20 F3 23 ED 5B 
47 21 00 00 1160 00 19 
10 FD 11 A0 9F 1911 00 
B0 0E 08 06 06 7E CD 82 
9123 7E CD 82 912310 
F4 E5 EB 1128 00 36 00 
19 36 00 19 36 00 23 23 

23 23 EB El 0D 20 DC 06 

24 3E 20 121310 FC 21 
00 B0 1128 00 0618 EB 
CD E5IF EB 19 3E 0D CD 
F4IF 10 F3 C9 C5 06 04 
87 30 013C 10 FA Cl E6 


SUM ： 45 BC 58 2D D2 59 3F 46 : 


36 


A9 

35 

06 

26 

F2 

87 

9F 

45 

33 

E4 

21 

D4 

F2 

ED 

AE 

A5 


9209 

920C 

920C 

920F 

9212 

9215 

9215 

9218 

921B 

921C 

921C 

921F 

9222 

9225 

9225 

9228 

922B 

922E 

922E 

9231 

9234 

9237 

9237 

923A 

923D 


20 - 20 20 
20 20 20 


20 20 20 
20 20 20 
20 20 20 

20 20 20 
20 20 20 
20 20 20 

20 20 20 
20 20 20 
20 20 20 

20 20 20 
20 20 20 
20 20 20 


228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 


DEFM 

DEFM 

DEFM 

DBFM 

DEFM 

DEFB 

DEFM 

DBFM 

DEFM 

DEFM 

DEFM 

DBFM 


DEFM 

DEFM 

DEFM 

DEFM 

DEFM 


►ダンプリスト 


8000 3E 01 
8008 3E 01 
8010 03 30 
8018 00 00 
8020 70 30 
8028 0180 
8030 00 85 
8038 55 55 


21 0E 80 CD 00 91:4C 
CD 20 91 C9 72 00 : F8 
30 33 72 61 00 02 ： 6B 
75 55 55 02 05 55 :7B 
00 02 33 00 72 09 ：50 
00 00 72 05 55 55 : A2 
70 20 00 06 01 00 ： 1C 
55 55 55 55 : FE 


SUM ： CC 

10 66 C7 C4 EF 

EX 

DE,HL 

CP 

( HL ) 

EX 

DE,HL 


CP 

使う 


( DE ) はないので，代わりにこれを 


とすればよいですね。例2を見てください。 

17行から落下チェックのルーチンは始まります0最初 HL には 
オームの頭の向かって左の位置が入ってきますので，上記の方法で 
チェックすると，頭の左はなにかということがわかります。20〜22 
行では綱かどうかを調べています。もしそうなら落下しませんの 
で NTFAL 1 へ飛びます （23 行)。次に頭の右を同じように調べ 
ます （24 〜27行）。ここで引っ掛からなければ，次は足の位置に梯子が 
あるかどうかのチェックとなります0 GVRAD も CHRCK も HL レ 
ジスタを壊しませんので ， 「INC H 」 を2回繰り返せば， （ L ， H ) は 
オームの向かって左側の足の座標となるのです （29 〜31行）。ここか 
ら右へ3つ分，つまり 「. M .」 のどこかに H が現れると，オームは 
梯子の上にいるわけですから NOTFAL へ飛びます （33 〜39行）。 
41行へくるのは，綱につかまることができず，しかも梯子の上に 
もいないときですので，最後の条件，「足の下は空白か綱？」の 
チェックに入ります。 

FALL 1? : LD A, ， f 
CALL CHRCK 
JR Z ， FALL 2? 

LD k : 二， 

CALL CHRCK 
JR NZ,NOTFAL 

FALL 2? : INC DE 

DJNZ FALL 1? 


空白かどうかをチェック 

空白なら FALL 2? へ 

空白でなければ 
綱かどうかをチェック 

綱でなければ落下しない 
^次のキヤラクタを調べる 


9180 

9188 

9190 

9198 

91A0 

91A8 

91B0 

91B8 

91C0 

91C8 

91D0 

91D8 

91E0 

91E8 

91F0 

91F8 


0F C9 E5 
87 84 6F 

19 D1 0E 
231310 
2125 00 
2150 00 
El C9 20 

20 20 20 
49 49 20 
2D 48 48 
20 20 20 
20 24 24 
DB DB 3A 
20 20 20 
22 20 DB 
DB 20 20 


C5 D5 
26 00 
03 06 
FA 0D 

19 EB 
EB ED 

20 20 
20 2D 
49 48 
2D 48 
20 20 
20 24 
DB 3A 
4F 2D 
20 20 
20 DB 


67 87 
11 B2 
03 7E 
28 09 
E1 18 
52 EB 
20 20 
20 49 
2D 48 
3D 3D 
20 20 
24 24 
DB DB 
2D 20 
DB 20 
20 DB 


SUM ： C3 9F B3 4C 43 C7 EB 56 : AC 


9200 

9208 

9210 

9218 

9220 

9228 

9230 

9238 


DB 3A DB 
20 DB 3A 
A149 49 
20 20 20 
20 20 20 
20 20 20 
20 20 20 
20 20 20 


DB 20 
DB 20 
20 49 
20 20 
20 20 
20 20 
20 20 
20 20 


20 3A DB 
2D 20 49 
20 20 20 
20 20 20 
20 20 20 
20 20 20 
20 20 20 
20 20 20 


:20 
:C6 
: FC 
:00 
:00 
：00 
：00 
：00 


9192 

0E 

03 


163 

LD 

C f 3 

9194 

06 

03 


164 STDT1 ： 

LD 

B,3 

9196 

7E 



165 STDT2 : 

LD 

A,(HL) 

9197 

12 



166 

LD 

(DE),A 

9198 

23 



167 

INC 

HL 

9199 

13 



168 

INC 

DE 

919A 

10 

FA 


169 

DJNZ 

STDT2 

9190 

0D 



170 

DEC 

C 

919D 

28 

09 


171 

JR 

Z f STDT3 

919F 




172 


919F 

E5 



173 

PUSH 

HL 

91A0 

21 

25 

00 

174 

LD 

HL f 40-3 

91A3 

19 



175 

ADD 

HL t DE 

91A4 

EB 



176 

EX 

DE f HL 

91A5 

El 



177 

POP 

HL 

91A6 

18 

EC 


178 

JR 

STDT1 

91A8 




179 

; 


91A8 

21 

50 

00 

180 STDT3 : 

LD 

HL f 80 

91AB 

EB 



181 

EX 

DE V HL 

91 AC 

ED 

52 


182 

SBC 

HL f DE 

91AE 

EB 



183 

EX 

DE f HL 

91AF 

Cl 



184 

POP 

BC 

HL 

91B0 

El 



185 

POP 

91B1 

C9 



186 

RET 


91B2 




187 



91B2 




188 ； Piece Data 


91B2 




189 ； 



91B2 

20 

20 

20 

190 SPC: 

DEFM 


91B5 

20 

20 

20 

191 

DEFM 

•• ’• 

91B8 

20 

20 

20 

192 

DEFM 

N *• 

9IBB 




193 

； 


91BB 

20 

2D 

20 

194 卜 • ア： 

DEFM 


91BE 

49 

A1 

49 

195 

DEFM 

••し 1，. 

9101 

49 

20 

49 

196 

DEFM 

•，I 1 ，， 

91C4 




197 

； 



2D 48 
2D 48 
2D 48 


91C4 48 
91C7 48 
91CA 48 
91CD 

91CD 3D 3D 3D 
91D0 20 20 20 
91D3 20 20 20 
91D6 

91D6 20 24 20 
91D9 24 24 20 
91DC 24 24 24 
9IDF 

9IDF DB DB DB 
91E2 3A DB 3A 
91E5 DB DB DB 
91E8 

91E8 20 20 20 
91EB 4F 2D 2D 
91EE 20 20 22 
91F1 

91F120 DB 20 
91F4 20 DB 20 
91F7 20 DB 20 
91FA 

91FA 20 20 DB 
91FD 20 DB 3A 
9200 DB 3A DB 
9203 

9203 DB 20 20 
9206 3A DB 20 


198 八シコ•： 

199 

200 
201 

202 ツナ： 

203 

204 

205 

206 タカラ： 

207 

208 
209 

210 ユカ： 

211 

212 

213 

214 カキ•： 

215 

216 
217 

218 力へ•： 

219 

220 
221 

222 カイタ • ン 1: 

223 

224 

225 

226 カイタ•ン 

227 


DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 

DEFM 


H_H" 

H-H" 

H-H M 


Dau" 

: 口 ：” 

ddd m 


a，• 

d •• 


0 


n 


自由落下の法則 


オームはあのロードランナ-•と同じ占'うに，飛び降りることが 
できます。今度はどのような条件のもと‘でオームは落下するのか 
を考え，これをチヱックするサブルーチンを作ります。 

1) 左手か右手がロープを持っているとき。このときにはオーム 
はロープにぶら下がれますので，落下しません。なお，ロープ 
にぶら下がるとオームはバンザイをします。可愛いでしよ。 

2) 右か左の足が梯子に乗っかっているとき。このときにもオー 
ムは落下しません。人間なら梯子にぶら下がることができるの 
ですが，オームはできないことにします0 

3) 足の下が空白か綱のとき。綱の上に立つことはできませんし, 
空を飛ぶこともできないオーム君は，このときには重力に身を 
任せるほかありません。 

以上の3点を落下の条件とします。現在オームがいる座標を （ L ， 
H > として，落下条件がどうなっているかをチヱックしましよう。 
方法は MAPAREA を調べ，手の位置や足の位置になにが描いてあ 
るのかを調べるのです。 

ここで先月作った GVRAD を使います。このサブルーチンは， 
オームの現在位置を HL レジスタに入れて呼ぶと，対応する仮想 V 
RAM ( MAPAREA ) 上のアドレスを DE に入れて帰ってきます。思 
い出してください。ですから （ L , H ) に描いてあるのが “ H ” かどう 
かを調べるには， 

CALL GVRAD ; HL から仮想 VRAM アドレスを得る 
LD A / H ， ;比較するキャラクタ 


0808080808080808 
0011223344556677 
1111111111111111 
999999 9999999999 


マシン語体操 1.2.3 139 











このようにして 「. M -」 の下の3つのキャラクタを調べるのです （41 
〜5：!行)。 

53行にくるのは足の下が綱か空白のときで， CHRCK のフラグ 
が有効なまま，つまりゼロフラグが立った状態で，退避しておい 
たレジスタを取り出して帰っていきます （53 〜56行）。 

では，落下しないときはどうでしょう。落下しない処理は58〜 
62行です。こちらは 「INC A 」 を行ってゼロフラグをクリアしてい 
ます。もちろん 「AND A 」 や 「OR A 」 を使ってもかまいません。 
この命令が実行されるとき， A は 20 h ，3 Dh , 48 h のいずれかです 
から，どれを使おうとゼロフラグは立ちません。ですから 「CALL 
FALL ?」 としたあとゼロフラグの状態を調べるだけで，オーム 
が落下するかどうかをチヱックできるわけです。ゼロなら落下， 
ノンゼロなら落下しないとなります。 

サブルーチンをこのように設計しておくと， 

CALL FALL ? ;落下チェック 
JR Z , DOWN ;落下処理ルーチンへ 
というぐあいに，スマートなメインルーチンを書くことができま 
す。皆さんもまねてみてください。 


左よし右よし 


さて次は左右移動のチェックです。これは，オームの左にはど 
んなピースがあるか，右にはどんなピースがあるかを チヱック し, 
それが移動を妨げるキャラクタかどうかの判定をして実現するこ 
とにします。 


DATA ) に書き込んでありますから， （ L ， H ) にあたるピースが何 
番地に書き込んであるのかを知るのが先決問題です。アドレスは 
次のようにして算出します。ピースは 3 X 3 ですから， L と H をそれ 
ぞれ3で割った答えを求めます。これで1画面の MAPDATA 中横 x 
ピース，縦 y ピースの位置にオームがいるのかを知ることができ 
ます。ピースは横12個ですから yX 12+ x で， （ X ， y ) は MAPDATA の 
先頭から何バイト目にあたるかを計算できますね。仮想 VRAM の 
アクセスによく使う手法です。3で割るのは例によって引けなく 
なるまで3を引くという手で解決できます。 

このようにしてピースの番号を得ることができたら，それが移 
動を妨げるピースかどうかの判定だけです。移動を妨げるピース 
は「壁」，「床」，「ドア」の3つです。では例3を見てください。 

99〜109行は3で割るルーチンです。106行で余りをワークに入 
れているのは，鍵を取る処理と宝を取る処理を念頭に置いている 
からです。鍵と宝はオームと完全に重なったときに初めて取るこ 
とができることにしてありますので，取れるのは余りが0になる 
ときだけ。このチェックを行うためのワークです。 

( L ， H ) のピースの種類を知るのは GTPC でやります （63 〜97行)。 
68, 69行で，現在の面のデータが MAPDATA 中のどこから始まっ 
ているのかを HL レジスタに取り出しておき，続いて座標の割り算 
です。67, 70行で DE に HL で示される座標 ( L ， H ) が入りますから， 
D と E をそれぞれ割ることになりますね （71 〜76行)。鍵や宝は y 
座標が必ず3で割り切れる場所にセットされ，しかも横からしか 
取れない位置に置くことにしますので， E を D のあとで割り ， E 
+ 3の余りを （ AMARI ) に残して x 座標を3で割った余りがわか 
るようにしてあります。 

77行でピースの x ， y 位置を （ PCXY ) に入れておき， yX 12 + x を 


ではまず （ L ， H ) というオームの座標に対応するピースを調べる 
方法から取りかかりましよう。ピースの番号は仮想 VRAM (MAP 

例2自由落下のチェック 


0000 

0000 

9300 

9300 

9300 

9300 

9300 

9300 

9300 

9300 


9337 20 07 
933913 
933A 10 EF 
933C 
933C C1 
933D D1 
933E E1 
933F C9 
9340 

9340 C1 

9341 B7 


5 VRAMADR 


: EQU 


チェックルーチン 
ツキ•ノ 


50 FALL2?: 


JR 

INC 

DJNZ 

POP 

POP 

POP 

RET 


93421 

9343 ! 

9344 ( 

9345 
9350 
9350 
9350 
9350 
9350 
9350 


61 

62 


POP 

POP 

RET 


64 SUB1 ： ORG 


SUB1/16+1»16 


GET V-RAM ADDRESS 


Calc ADRS from HL 


9300 




11 





9350 

E5 

70 

GVRAD : PUSH 

HL ； 

E f L 

Save CSR Pos 

9300 




>12 





9351 

5D 

71 

LD 


9300 




13 

；Check 

posibility of falling down 

9352 

16 00 

72 

LD 

D,0 ； 

DE = X-position 

9300 




14 





9354 

6C 

73 

LD 

L,H 


9300 




15 

；if 

result 

=z then OHM will fall 

9355 

26 00 

74 

LD 

H,0 ； 

HL = Y-position 

9300 




16 





9357 

29 

75 

ADD 

HL.HL ； 

Y 拿 2 

9300 




17 

FALL? : 




9358 

29 

76 

ADD 

HL 9 HL ； 


9300 

E5 



18 


PUSH 

HL 

DE 


9359 

29 

77 

ADD 

HL V HL ； 

*8 

9301 

D5 



19 


PUSH 


935A 

4D 

78 

LD 

LD 

C,L 

B,H 


9302 

CD 

50 

93 

20 


CALL 

GVRAD ； 

テノイチ 

935B 

44 

79 


9305 

3E 

3D 


21 


LD 

A ,，=， 


935C 

29 

80 

ADD 

HL,HL ； 

>16 

9307 

CD 

70 

93 

22 


CALL 

CHRCK ； 

t 夕 • V テ 

935D 

29 

81 

ADD 

HL f HL ； 

*32 

930A 

28 

35 


23 


JR 

Z,NTFAL1 


935E 

09 

82 

ADD 

HL,BC ； 

*40 

930C 

13 



24 


INC 

DE 


935F 

19 

83 

ADD 

HL,DE ； 

X+Y*40 

930D 

13 



25 


INC 

DE 


9360 

11 00 B0 

84 

LD 

DE,0B000H ； 

V-RAM ADRS 

930E 

CD 

70 

93 

26 


CALL 

CHRCK ； 

ミ寄•テ 

9363 

19 

85 

ADD 

HL,DE 


9311 

28 

2E 


27 


JR 

Z t NTFALl 


9364 

EB 

86 

EX 

DE f HL 


9313 




28 


INC 



9365 

E1 

87 

POP 

HL ； 

Get CSR Pos 

9313 

24 



29 


H 


93*66 

C9 

88 

RET 



9314 

24 



30 


INC 

H 


9367 


89 




9315 

CD 

50 

93 

31 


CALL 

GVRAD ； 

アシノイチ 

9370 


90 

SUB3 ： ORG 

SUB3/16+1 拿 16 

9318 




32 


; 



9370 


91 




9318 

C5 



33 


PUSH 

BC 


9370 


92 

: CHARACTER CHECK 


9319 

06 

03 


34 


LD 

LD 

B,3 


9370 


93 




931B 

3E 

48 


35 


A, ， H ， 


9370 


94 

； Compare A 

with (V-RAM) 


931D 

CD 

70 

93 

36 

FALL0? : 

CALL 

CHRCK 


9370 


95 




9320 

28 

IE 


37 


JR 

Z,NOTFAL 


9370 


96 

CHRCK ： 



9322 

13 



38 


INC 

DE 


9370 

EB 

97 

EX 

DE y HL 

(HL) 


9323 

10 

F8 


39 


DJNZ 

FALL0? 


9371 

BE 

98 

CP 


9325 




40 


INC 



9372 

EB 

99 

EX 

DE f HL 


9325 

24 



41 


H 


9373 

C9 

100 

RET 


9326 

CD 

50 

93 

42 


CALL 

GVRAD ； 

アシノシタ 







9329 

06 

03 


43 


LD 

B f 3 








932B 

3E 

20 


44 

FALL1 ?： 

LD 

A,， ’ 








932D 

CD 

70 

93 

45 


CALL 

CHRCK 








9330 

9332 

28 

3E 

07 

3D 


46 

47 


JR 

LD 

Z,FALL2? 

A , ，=， 


•ダンプリスト 





9334 

CD 

70 

93 

48 


CALL 

CHRCK 









58 NOTFAL ： 

59 NTFAL1 : 


FLAG don't change 

9300 

E5 

D5 

CD 

50 

93 

3E 

3D 

CD 

B2 

9348 

C2 

6F 

20 

CD 

67 

98 

CD 

DC 

C6 

by these opperations 

9308 

70 

93 

28 

35 

13 

13 

CD 

70 

C3 

9350 

E5 

5D 

16 

00 

6C 

26 

00 

29 

13 


9310 

93 

28 

2E 

24 

24 

CD 

50 

93 

El 

9358 

29 

29 

4D 

44 

29 

29 

09 

19 

57 


9318 

C5 

06 

03 

3E 

48 

CD 

70 

93 

24 

9360 

11 

00 

B0 

19 

EB 

El 

C9 

E5 

54 


9320 

28 

IE 

13 

10 

F8 

24 

CD 

50 

A2 

9368 

D5 

CD 

EA 

53 

El 

CD 

0A 

93 

2A 


9328 

93 

06 

03 

3E 

20 

CD 

70 

93 

CA 

9370 

EB 

BE 

EB 

C9 





5D 


9330 

28 

07 

3E 

3D 

CD 

70 

93 

20 

9A 












9338 

07 

13 

10 

EF 

Cl 

D1 

El 

C9 

55 

SUM ： 

F9 

0B 

63 

88 

49 

7F 

F6 

56 : 

03 

reset Z flag 

9340 

Cl 

B7 

D1 

El 

C9 

CD 

D2 

91 

23 












140 Oh! MZ 1986.10. 















計算。その答えを先の面データの先頭ア ドレスに 足し， ( L ， H ) に 対 
応する ピースの ある MAPDATA 内のア ドレスを HL に 得ます (79 〜 
91 行)。この HL の 値を （ PCADR ) に 入れたあと， 「 LDA ，( HL )」 

でピース番号を得て GTPC は終了します0 

( PCXY ) と （ PCADR ) は，画面から消える ピースの 処理に必要 
な情報です。これは来月解説することにしましよう。 

39行からの 「 L & R ?」 は， GTPC で取ってきたピース番号は 
移動を妨げるものかどうかのチヱックルーチンです。ドアにはふ 
つうのドアと宝が隠してあるドアの2種類ありますので，ここでは 
4 つの ピース番号と比較しています。例によって移動の可否をゼ 
ロフラグに残してリターンします。40,41，55行は移動できなかっ 
た場合，移動を妨げたものがドアかどうかをチェックするための 
フラグの処理です。もし，鍵を持っていればドアを開ける処理を 
してやらなければならないからです。 

9行からの 「 LEFT ?」 ではオームの左の座標を，23行からの 
「 RIGHT ?」 ではオームの右の座標を HL に入れ， 「 L & R ?」 によ 
って判断させているだけです 。 （L + 3， H ) を 「RIGHT ?」で調べて 
いるのは （ L ， H) 〜 （L + 2 ，H + 2) をオームが占めているからですよ。 
オームも 3X3 の大きさを持っていることを忘れないでください。 

(L — 1， H ), (L + 3， H ) だけ調べたのでは不十分です。図1をご 


図1 オームが床のなかを歩いてしまう 






0 

^ ' 



□ 

□ 

□ 

H 

(H 

) 

□ 

□ 


□ 
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H 
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□ 

□ 

□ 
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H 二 

— H 







H 
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覧ください0このようなときには GTPC で0つまりスペースが返 
ってきて，床の中を動いてしまうというとんでもない事態が発生 
してしまうのです。これを避けるために， （ L — l,H + 2) と （L + 3 ,H 
+ 2) のピースもチヱックします。実は私もうっかりこのことを見 
逃していて，なんの気なしにオームを床に突っ込んでびっくり仰 
天したのでした。あ一怖い怖い。 


例3左右移動可〒 


0000 

0000 




1 

2 

；SAMPLE - 3 


9400 




3 

ORG 

9400H 

9400 




4 

; 


9400 




5 

MAPDATA：EQU 

0AO00H 

9400 




6 



9400 




7 

; Check posibility of move left 

9400 




8 

; 


9400 

E5 



9 

LEFT ?： PUSH 

HL 

L ； (L-l.H) 

9401 

2D 



10 

DEC 

9402 

CD 

20 

94 

11 

CALL 

L&R? 

9405 

20 

05 


12 

JR 

NZ,LEFT1? 

9407 

24 



13 

INC 

H 

9408 

24 



14 

INC 

H ； (L-l,H+2) 

9409 

CD 

20 

94 

15 

CALL 

L&R? 

940C 

El 



16 

LEFT1 ?： POP 

HL ； (L,H) 

940D 

C9 



17 

RET 


940E 




18 



9410 




19 

SUB1 ： ORG 

SUB1/16+1 本 16 

9410 




20 



9410 




21 

；Check posibility of move right 

9410 




22 



9410 

E5 



23 

RIGHT ?： PUSH 

HL 

9411 

2C 



24 

INC 

L 

9412 

2C 



25 

INC 

L 

9413 

2C 



26 

INC 

L ； (L+3,H) 

9414 

CD 

20 

94 

27 

CALL 

L&R? 

9417 

20 

05 


28 

JR 

NZ,RGHT1? 

9419 

24 



29 

INC 

H 

941A 

24 



30 

INC 

H ； (L+3,H+2) 

941B 

CD 

20 

94 

31 

CALL 

L&R? 

941E 

El 



32 

RGHT1 ?： POP 

HL 

941F 

C9 



33 

RET 


9420 




34 



9420 




35 

;Check posibility of move left & right 

9420 




36 



9420 




37 

； if result 

=NZ then can* t 

9420 




38 



9420 




39 

L&R ?： 


9420 

AF 



40 

XOR 

A 

9421 

32 

91 

94 

41 

LD 

(DOOR),A 

9424 




42 


9424 

CD 

40 

94 

43 

CALL 

GTPC 

9427 

FE 

07 


44 

CP 

7 ； 力へ， 

9429 

28 

11 


45 

JR 

Z,L&R?2 

942B 

FE 

05 


46 

CP 

5 ; ユカ 

942D 

28 

0D 


47 

JR 

Z,L&R?2 

942F 

FE 

01 


48 

CP 

1 ; 卜•ァ 

9431 

28 

06 


49 

JR 

Z f L&R?l 

10 ； 卜 • ァ 2 

9433 

FE 

0A 


50 

CP 

9435 

28 

02 


51 

JR 

4.L&R71 

9437 

AF 



52 

XOR 

A ； Set Z flag 

9438 

C9 



53 

RET 


9439 




54 

L&R?1 ： LD 


9439 

32 

91 

94 

55 

(DOOR),A 

943C 

3C 



56 

L&R?2 ： INC 

A ； reset Z flag 

943D 

C9 



57 

RET 


943E 




58 



9440 




59 

SUB2 ： ORG 

SUB2/16+U16 

9440 




60 



9440 




61 

； Get peice on 

(L,H) 

9440 




62 

； 


9440 




63 

GTPC ： 


9440 

D5 



64 

PUSH 

DE 

HL 

9441 

E5 



65 

PUSH 

9442 




66 

; 


9442 

E5 



67 

PUSH 

HL ； (L,H) 

9443 

3A 

90 

94 

68 

LD 

A f (SCNO) 

9446 

CD 

80 

94 

69 

CALL 

DTOP 

9449 

D1 



70 

POP 

DE ； (E,D) 

944A 

7A 



71 

LD 

A,D 

944B 

CD 

6E 

94 

72 

CALL 

DIV3 

944E 

57 



73 

LD 

LD 

D,A 

944F 

7B 



74 

A,E 

9450 

CD 

6E 

94 

75 

CALL 

DIV3 

9453 

5F 



76 

LD 

E,A 


9454 ED 53 93 94 
9458 

9458 E5 

9459 7A 
945A 87 
945B 82 
945C 87 
945D 87 
945E 6F 
945F 26 00 
946116 00 
946319 

9464 EB 

9465 E1 
946619 

9467 22 95 94 

946A 7E 

946B 

946B E1 

946C D1 

946D C9 

946E 

946E C5 

946F 06 00 

9471 D6 03 

9473 38 03 

9475 04 

947618 F9 

9478 C6 03 

947A 32 92 94 

947D 78 

947E C1 

947F C9 

9480 

9480 

9480 

9480 

9480 47 

94812100 00 

94841160 00 

948719 

948810 FD 

948A 11 AO 9F 

948D 19 

948E C9 

948F 

9490 

9490 

9490 00 

9491 00 

9492 00 

9493 00 00 
9495 00 00 


LD 


83 

84 

85 


ADD 

ADD 

ADD 

ADD 


拿 2 
拿 3 


92 

93 

94 

95 

96 

97 

98 ； 

99 DIV3 ： 
100 

101 DIV31 ： 

102 

103 

104 

105 DIV32 ： 

106 

107 

108 

109 

110 
111 
112 

113 DTOP ： 

114 

115 

116 

117 DTOP1 ： 

118 

119 

120 
121 
122 

123 SUB3 ： 

124 

125 SCNO: 

126 DOOR ： 

127 AMARI : 

128 PCXY ： 

129 PCADR : 


POP 

ADD 


H 


HL,DE 

DE, HL ； D ： 
HL 

HL,DE 
< PCADR),HL 
A f (HL) 


POP 

POP 

RET 


LD 

LD 

POP 

RET 


HL 

DE 


B ( 0 
3 

C,DIV32 

B 

DIV31 
A,3 

(AMARI) f A 

A,B 

BC 


3 テ"ワッタコタェヲモトメル 


DATA TOP ADDRESS 


B,A 

HL f 0 

DE,96 

HL f DE 


LD 
LD 

No. of pieces in a scene 

ADD HL.DE 

DJNZ DTOP1 

LD DE,MAPDATA-96 

ADD HL,DE ； HL = (A_l) 拿 48 + MAPDATA 

RET 


ORG 

DEFB 

DEFB 

DEFB 

DEFW 

DEFW 


SUB3/16+1»16 
0 ； Scene Number 


•ダンプリスト 


9400 

E5 

2D 

CD 

20 

94 

20 

05 

24 

: DC 

9460 

00 

16 

00 

19 

EB 

El 

19 

22 

:36 

9408 

24 

CD 

20 

94 

El 

C9 

A5 

11 

：05 

9468 

95 

94 

7E 

El 

D1 

C9 

C5 

06 

: ED 

9410 

E5 

2C 

2C 

2C 

CD 

20 

94 

20 

:0A 

9470 

00 

D6 

03 

38 

03 

04 

18 

F9 

：29 

9418 

05 

24 

24 

CD 

20 

94 

El 

C9 

：78 

9478 

C6 

03 

32 

92 

94 

78 

Cl 

C9 

:23 

9420 

AF 

32 

91 

94 

CD 

40 

94 

FE 

: A5 











9428 

07 

28 

11 

FE 

05 

28 

0D 

FE 

：76 

SUM ： 

E9 

IF 

A3 

7D 

3F 

IE 

B0 

C9 

: FE 

9430 

01 

28 

06 

FE 

0A 

28 

02 

AF* 

:10 











9438 

C9 

32 

91 

94 

3C 

C9 

11 

61 

：97 

9480 

47 

21 

00 

00 

11 

60 

00 

19 

: F2 

9440 

D5 

E5 

E5 

3A 

90 

94 

CD 

80 

： 4A 

9488 

10 

FD 

11 

A0 

9F 

19 

C9 

95 

： D4 

9448 

94 

D1 

7A 

CD 

6E 

94 

57 

7B 

：80 

9490 

00 

00 

00 

00 

00 

00 

00 


：00 

9450 

CD 

6E 

94 

5F 

ED 

53 

93 

94 

：95 











9458 

E5 

7A 

87 

8 各 

87 

87 

6F 

26 

:0R 

SUM ： 

57 

IE 

11 

A0 

B0 

79 

C9 

AE 

： C6 
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前回のサブルーチンのまとめ 


前回作ったサブルーチンのうち， KEYIN ， ERAV ， ERAH , WRITE 
の4つをひとつにまとめて例4とします。 

16行からの KEYIN は前回説明がちょっと不足でしたので補足 
しておきます。24, 30行で C にセットしている値は，長短2つの 
ループの 時間比となっています。「リピートがかかるまでに要す 
る時間」と「リピートがかかっているときの時間」の比は，現在30 : 

1ということです。この比を変えることにより，自分の好みに合 
った KEYIN を作ることができます。1:1にすると両者は等間隔 
になり，面白くもなんともなくなってしまいます。10 :1くらい 
が適当かもしれません。いろいろと好みに合わせて工夫してみて 
ください。 

ERAV ， ERAH ともに，先月とはまったく変わった部分はあり 
ません。 

89行からの WRITE には変更が加えられています。頭の横に綱 
があるときにはバンザイをしたオームを，そのほかのときには両 
手を下げたオームを描くようになっているのです。90〜99行が綱 
の判断で，綱があれば92行でセットしたオームのデータが有効に 


なり，綱でなければ100行で新たにデータをセットし直してオー 
ムを表示します0 


オームの冒険，といろより放浪 


今回は，サブルーチンだけ発表しようと思ったのですが，それ 
じゃああんまりだと思い直し簡単なメインルーチンを作ってぉき 
ました。これは来月号で発表するメインルーチンから鍵を取る処 
理，ドアを開ける処理，面を切り換える処理など面倒な処理をす 
ベて取り除いたものです。ぉかげで面白味やうま味のまったくな 
いものになってしまいました。しかし，移動のチェックは完全に 
できます。実はこれでオームを動かしてみて，完璧にデバッグし 
たと思い込んでいた9000 h 以降のサブルーチン群のバグを5つほ 
ど見つけました。やっぱり動かしてみるもんですね。 

来月用に作ったメインルーチンのピースデータをここで全部公 
開して，宝までの道順を探られるのもいやなので，新たに1面だ 
け作りました。壁，梯子，綱，床，空白と5種類のピースしかあ 
りませんが，オームがどのように動くのかは確かめてもらえます。 
なかなか可愛いんですよ，これが。 

さてプログラムですが，全体は4つの部分に分かれています。 


例4先月のまとめ 


903C 

903C E5 

903D 2128 00 

9040 19 

9041 EB 

9042 E1 

9043 
9043 24 
904410 EF 

9046 C9 

9047 
9050 
9050 
9050 
9050 
9050 
9050 
9050 

9050 CD 50 93 
9053 CD IE 20 
9056 06 03 


0000 




1 

；SAMPLE - 4 



9058 

1A 




76 

ERAH1 ： 

LD 


A f (DE) 


0000 




2 

; 




9059 

CD 

F4 

IF 


77 


CALL 


♦PRINT 


0000 




3 





905C 

13 




78 


INC 


DE 


9000 




4 


ORG 

9000H 


905D 

10 

F9 



79 


DJNZ 


ERAH1 


9000 




5 


; 



905F 

C9 




80 


RET 




9000 




6 

#GETKY ： 

EQU 

1FD0H 


9060 





81 






9000 




7 

#MSX: 

EQU 

1FE5H 


9070 





82 

SUB3 ： 

ORG 


SUB3/16+1<16 


9000 




8 

♦PRINT ： 

EQU 

1FF4H 


9070 





83 






9000 




9 

ICSRSET: 

: EQU 

201EH 


9070 





84 

；WRITE 

O 

(O) 


9000 




10 

#WIDCH ： 

EQU 

2030H 


9070 





85 

； ON 


(H ； 

) OR H 


9000 




11 

； 




9070 





86 

；(LOC 

) 

.M 

.M. 


9000 




12 

MAP: 

EQU 

9100H 


9070 





87 






9000 




13 

GVRAD ： 

EQU 

9350H 


9070 





88 


ブナノ 

ク x ソノタ 


9000 




14 

CHRCK : 

EQU 

9370H 


9070 





89 

WRITE ： 





9000 




15 





9070 

2A 

BE 

90 


90 


LD 


HL f (LOC 

> 

9000 




16 

KEYIN ： 




9073 

CD 

50 

93 


91 


CALL 


GVRAD 


9000 

CD 

07 

90 

17 


CALL 

KEYINSUB 


9076 

21 

AD 

90 


92 


LD 


HL.MANDT1 


9003 

B7 



18 


OR 

A 


9079 

3E 

3D 



93 


LD 


A •，ジ 


9004 

C0 



19 


RET 

NZ ； 00H 

ヲキャンセル 

907B 

CD 

70 

93 


94 


CALL 


CHRCK 


9005 

18 

F9 


20 


JR 

KEYIN 


907E 

28 

0A 



95 


JR 


Z,WRITE< 

3 

9007 




21 

; 




9080 

13 




96 


INC 


DE 


9007 




22 

KEYINSUB ： 



9081 

13 




97 


INC 


DE 


9007 

21 

22 

90 

23 


LD 

HL,KYBAK 


9082 

CD 

70 

93 


98 


CALL 


CHRCK 


90OA 

0E 

01 


24 


LD 

C,1 ； マエノ 

夸一 Y t ナシ#トキ 

9085 

28 

03 



99 


JR 


Z, WRITER 

9 

900C 

CD 

D0 

IF 

25 


CALL 

♦GETKY 


9087 

21 

9C 

90 


100 


LD 


HL,MAND ， 

r ; MaiTs 

Data 

90OF 

BE 



26 


CP 

(HL) ； CP 

with last key 

908A 

E5 




101 

WRITE0 ： 

PUSH 


HL 


9010 

77 



27 


LD 

(HL),A 


908B 

2A 

BE 

90 


102 


LD 


HL,(LOC 

) 

9011 

28 

02 


28 


JR 

Z.KYSUB1；CP 

(HL) J flag ユウ : i ウ 

908E 

CD 

IE 

20 


103 


CALL 


♦CSRSET 


9013 




29 


; 



9091 

El 




104 


POP 


HL 


9013 

0E 

IE 


30 


LD 

C,30 ； マ x ノ 

勢一 1* チカ•ウトキ 

9092 

06 

11 



105 


LD 


B，17 

；Data 1 

length 

9015 

06 

IE 


31 

KYSUB1 : 

LD 

B,30 ； 200 

for XI 

9094 





106 


; 




9017 

CD 

DO 

IF 

32 

KYSUB2 : 

CALL 

#GETKY 


9094 

7E 




107 

WRITE1 : 

LD 


A,(HL) 


901A 

BE 



33 


CP 

(HL) 


9095 

23 




108 


INC 


HL 


901B 

C0 



34 


RET 

NZ 


9096 

CD 

F4 

IF 


109 


CALL 


♦PRINT 


9010 




35 


; 



9099 

10 

F9 



110 


DJNZ 


WRITE1 


901C 

10 

F9 


36 


DJNZ 

KYSUB2 


909B 

C9 




111 


RET 




901E 

0D 



37 


DEC 

C 


909C 





112 

; 





901F 

20 

F4 


38 


JR 

NZ f KYSUBl 


909C 

20 

4F 

20 


113 

MANDT : 

DEFB 


， t.tQt 

* 1 

9021 

C9 



39 


RET 



909F 

ID 

ID 

ID 

IF 

114 


DEFB 


1DH ： 1DH 

1DH ： 1FH 

O 

9022 




40 

; 




90A3 

28 

48 

29 


115 


DEFB 




(H) 

9022 

00 



41 

KYBAK ： 

DEFB 

0 ； 才 t レタ 


90A6 

ID 

ID 

ID 

IF 

116 


DEFB 


1DH ： 1DH 

1DH ： 1FH 

.M. 

9023 




42 





90AA 

2E 

4D 

2E 


117 


DEFB 


1 ノノ 

9 . • 

9030 




43 

SUB1 ： 

ORG 

SUB1 ハ 6+1*16 


90AD 





118 


; 




9030 




44 





90AD 

28 

4F 

29 


119 

MANDT1 ： 

DEFB 


M * : ， o. 

，广 

9030 




45 

；Erase V-part 



90B0 

ID 

ID 

ID 

IF 

120 


DEFB 


1DH ： 1DH 

1DH:1FH 

(O) 

9030 




46 





90B4 

20 

48 

20 


121 


DEFB 


,t. 

9 1 

H 

9030 




47 

； H=y 

L=x to 

start erasing 


90B7 

ID 

ID 

ID 

IF 

122 


DEFB 


1DH ： 1DH 

1DH ： 1FH 

.M. 

9030 




48 





90BB 

2B 

4D 

2E 


123 


DEFB 


1 . # 

» . • 

9030 




49 

ERAV ： 




90BE 





124 

; 





9030 

CD 

50 

93 

50 


CALL 

GVRAD 


90BE 

00 




125 

LOC ： 

DEFB 


00H 

； X-Position 

9033 

06 

03 


51 


LD 

B,3 


90BF 

0A 




126 


DEFB 


0AH 

； Y-Position 

9035 

1A 



52 

ERAV1 ： 

LD 

A,(DE) 













9036 

CD 

IE 

20 

53 


CALL 

ICSRSET 













9039 

CD 

F4 

IF 

54 


CALL 

参 PRINT 














55 

56 

57 


PUSH 

LD 

ADD 

EX 

POP 

INC 

DJNZ 

RET 


HL 9 40 

HL V DE 

DE V HL 

HL 

H 

ERAV1 


►ダンプリス I 


DE ヲ 1 哿•■ウシタへ 


SUB2 ： ORG SUB2/16+1>16 

Erase H-part 

H=y L=x to start erasing 
ERAH ： 

CALL GVRAD 

CALL ICSRSKT 
LD B f 3 


9000 

CD 

07 

90 

B7 

C0 

18 

F9 

21 

0D 

9078 

90 

3E 

3D 

CD 

70 

93 

28 

0A 

： 0D 

9008 

22 

90 

0E 

01 

CD 

DO 

IF 

BE 

3B 











9010 

77 

28 

02 

0E 

IE 

06 

IE 

CD 

BE 

SUM: 

BF 

0B 

B2 

4F 

FB 

19 

41 

4C 

： 6C 

9018 

DO 

IF 

BE 

C0 

10 

F9 

01) 

20 

A3 











9020 

F4 

C9 

00 

El 

AF 

77 

23 

0B 

F2 

9080 

13 

13 

CD 

70 

93 

28 

03 

21 

：42 

9028 

78 

B1 

20 

F8 

77 

3E 

01 

32 

29 

9088 

9C 

90 

E5 

2A 

BE 

90 

CD 

IE 

：74 

9030 

CD 

50 

93 

06 

03 

1A 

CD 

IE 

BE 

9090 

20 

El 

06 

11 

7E 

23 

CD 

F4 

： 7A 

9038 

20 

CD 

F4 

IF 

E5 

21 

28 

00 

2E 

9098 

IF 

10 

F9 

C9 

20 

4F 

20 

ID 

： 9D 

9040 

19 

EB 

HI 

24 

10 

EF 

C9 

77 

48 

90A0 

ID 

ID 

IF 

28 

48 

29 

ID 

ID 

： 2C 

9048 

13 

23 

10 

FA 

C9 

2A 

21 

36 

8A 

90A8 

ID 

IF 

2E 

4D 

2£ 

2 8 

4F 

29 

：85 

9050 

CD 

50 

93 

CD 

IE 

20 

06 

03 

C4 

90B0 

ID 

ID 

ID 

IF 

20 

48 

20 

ID 

: IB 

9058 

1A 

CD 

F4 

IF 

13 

10 

F9 

C9 

DF 

90B8 

ID 

ID 

IF 

2E 

4D 

2E 

00 

0A 

： 0C 

9060 

2D 

A6 

2A 

28 

36 

19 

22 

28 

BE 











9068 

36 

C9 

3E 

FF 

32 

BA 

91 

CD 

86 

SUM ： 

62 

0A 

3A 

36 

D2 

FI 

49 

BD 

: A5 

9070 

2A 

BE 

90 

CD 

50 

93 

21 

AD 

F6 
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1) 初期設定部 

2) キー入力部 

3) 各方向移動ルーチン 

4) 圧縮オリジナルデータ 

です。このなかでもっとも面倒なのは 3) ですが，今回は面倒な処理を 
省いてあるのでこれでもましなほうです。来月はきっと地獄るこ 
とでしょう。では順に見ていきましょう。 

35，36行のワークは画面を縦いくつ，横いくつにするかという 
ワークで，来月は 2 X 2 となります。先にも述べたとおり，縦 X 
横が42を越えてはいけません。 

40〜43行で縦 X 横を計算します 。 「XOR A 」 で A =0 としたあ 
と ， A = A + C を B 回繰り返し， BXC を計算します。これは46 
行で ST 0 RD を呼び出すためで， A に総面数を入れるわけです。 
画面を40字モードにし，シーン1を表示します（以上51行まで)。 

オームの最初の位置をセットし（53, 54行），さァゲーム開始で 
す。まず画面にオームを表示し，落下チェックをします （57 〜67 
行)。落下するなら落下処理を落下が終わるまで繰り返して （63 〜66 
行）キー入力処理に入ります。 

68〜80行は，例によって例のごとく CP と JR で入力されたキ 
一をチェックしているところです。来月にっちもさっちも行かな 
くなったときや，今月飽きたときに中断するキーとしてブレーク 
キーを採用します。 

82行以降が，各方向への移動ルーチンです。まずは DOWN 。 下 
へ動けるかどうかのチェックと下への移動を受け持ちます。 
DOWN :足は梯子に乗っているか？ （83 〜86行） 

違うなら DOWN 1へ （87 行） 

足もとのピースを得る （89 〜90行） 

梯子なら DOWN 4へ （91 〜92行） 

空白なら DOWN 4へ （93 〜94行） 

対応する MAPAREA のアドレスを求めて 

DOWN 2へ （95 〜96行） 
DOWN 1 :左足もとは梯子か？ （98 〜101行） 

違うなら DOWN 2へ （102 行） 

右足もとも梯子か？ （103 〜105行） 


違うならキー入カルーチンへ （106 行） 

そうなら DOWN 4へ （107 行〉 

DOWN 2 :1足もとは空白か綱かの処理。 FALL ? で調べた 
DOWN 21: のと同じルーチン。どちらでもなければキー入 
DOWN 3 : j カルーチンへ帰る （109 〜117行） 

DOWN 4 :落下処理をして MAIN に返る （119 〜123行） 

これはちよっと大掛かりな処理でしたが，必要なものばかりです。 
なにをやってるのかゴチヤゴチヤしてわかりに〈いかもしれませ 
んが，上の日本語訳を参照しながら見ていってください。 

続いて UP です。このルーチンは上へ移動できるかどうかのチ 
ェックとその処理です。上への移動は梯子でのみ可能ですから， 
梯子の上にいるかどうかをチェックし （134 〜137行），そうであれ 
ば上への移動の処理を行い， MAIN へ帰ります （139 〜145行)。 

左右への移動は例3で作った 「RIGHT ? j と 「LEFT ?」があ 
りますから，これを利用して UP と同じ考えで作りました。追っ 
てみてください。 


いよいよ本命の登場 


さて，来月はゲームメインルーチンの作成です。例1〜例4は 
「オームの大冒険」の命ともいうべき基本サブルーチンですから， 
全部アセンブルしたら，900 Oh 〜 94 FFh をまとめてセーブしておい 
てください。今度からはメインルーチンを作るだけでゲームが作 
れますよ。 

( SCNO ) と （ PCXY ) を参照し，ある場所ではなにかメッセージ 
を出すようにすると，ビジュアルアドベンチヤーゲームができま 
すし，乱数で指定した位置にくると戦闘を始めるようにすれば， 
ロール プレイングもどきにもなります。 

メイ ンルーチン も来月号のものをそのまま使い， ピースデータ 
を自作すれば，オリジナル画面でプレイすることも可能です〇 7 
X 6 くらいの画面数で迷路を作るのは時間もかかりたいへんでし 
よう力 ? ，その分，解くのもたいへんです。そうだ！この際ですか 
らオリジナル面を募集することにします。大きさは3 X 3以上7 
X 6以下としましよう。力作をお寄せください。お待ちしています。 


ちゃんの [ ワ ] 囡 g]tfj 0E[kJ® S0) 


新しい Z 80 のマクロ命令を開発いたしました。まず，20 FF ， つまり， 
RST NZ , 38 h でございます。そのほか Z = 1用に28 FF(RST Z , 38 h ) 
もございます。オプションとしてキャリフラグ用 ， RST NC ，38 h (30 
FF ), RST C ,38 h (38 FF ) がございます（無料）。これは，お客様がひ 
とこと念じていただければ，スピーディにあなた様の Z 80 にお届け 
いたします。なお， たいへん 強力な DRST NZ ，38 h (10 FF ) や，ど一し 
よ一もない，じゃなかった RST 38 h ( FF ) に12クロックのウェイトを 
付加した WRST 38 h (18 FF ) を開発中です。もう2分後に完成する 
と思われます。しばらくお待ちください。 

なお，これらは Z 80 でなくとも， Z 80 もどきでも，（たとえば N 社 
の; aPD 780 など)それらしきものなら使えるという，たいへんありが 
たいコンパチ設計でございます （ S - OS に対応できなかったことが残 
念でなりません）。そういうことでございまして一ってってってって 

-てなわけで S - OS 担当の方々，0038~003 A の3バイトはあけて 

ください！ 

大阪府堀僚嗣 


あんまり面白いハガキが来ていたので，紹介することにします。マシ 
ン語体操では取り上げませんでしたが， Z 80 は 「 RST 」 という命令を持 
っています。 

「 RST 」 （リスタート）命令は0000 H , 0008 h というぐあいに8バイトずつ 
0038 h までの8つのアドレスに1命令で CALL を行うものです 。 「RST 38 
hj のマシンコードは FFh となっていて，これは 「CALL 38 h 」 という意 
味です。 

堀さんのお便りにある「20 FF 」 というのは， JR 命令とこの RST 命令 
を巧妙に組み合わせたものです。たとえば今200 Oh 番地に「20 FF 」 と 
いう命令があるとしますね。これは 「JR NZ , — 1」という意味ですから, 
もし ゼロ フラグが立っていなかったなら2002 h —1 へ，つまり200 1 h へ 相 
対ジャンプします。ところが200 1 h には FFh , つまり 「RST 38 h 」 があり 
ますから，この命令が実行されて0038 n へ飛んで行くという仕掛けなの 
です。 

ノンゼロなら 「RST 38 hj を実行するという意味で 「RST NZ , 38 hj 
と命名なさったのだと思います。楽しい命令ですね。私も最初このお便 
りの意味がわからず，中川智哉氏の解説を聞いて祝一平氏とともども「お 
一っ」と感動のため息をもらしました。いやはやなんともスゴイもので 
す0 
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例 5 オームの大冒険第1話 


0000 

0000 

0000 

0000 

8000 

8000 

8000 

8000 

8000 

8000 

8090 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 

8000 18 02 
8002 
8002 01 

8003 01 

8004 
8004 
8004 

8004 ED 4B 02 80 

8008 AF 

8009 81 
800A 10 FD 
80OC 

800C 21 F9 80 
800F CD 00 91 
8012 3E 28 
8014 CD 30 20 
8017 3E 01 
8019 32 90 94 
801C CD 20 91 
801F 

801F 21 0312 
8022 22 BE 90 
8025 
8025 

8025 2A BE 90 

8028 E5 

8029 CD 70 90 
802C El 

802D CD 00 93 

8030 20 09 
8032 CD 50 90 
8035 21 BF 90 
8038 34 

803918 EA 
803B 

803B CD 00 90 
803E FE IB 

8040 C8 

8041 FE 49 
8043 28 6E 
8045 FE 4A 
8047 CA CD 80 
804A FE 4C 
804C CA E4 80 
804F FE 4B 
805128 04 
8053 FE 2C 
8055 20 E4 
8057 

8057 

8057 2A BE 90 
805A 24 
805B 24 
805C CD A5 80 
805F 20 10 
8061 
806124 
8062 CD 40 94 
8065 FE 02 
8067 28 2F 
8069 B7 
806A 28 2C 
806C CD 50 93 
806F 1814 

8071 
807124 

8072 CD 50 93 
8075 3E 48 
8077 CD 70 93 
807A 20 09 
807C 13 

807D 13 
807E CD 70 93 
808120 B8 
80831813 
8085 

8085 06 03 
8087 3E 20 

8089 CD 70 93 
808C 28 07 
808E 3E 3D 

8090 CD 70 93 
8093 20 A6 
809513 

809610 BF 
8098 

8098 2A BE 90 
809B CD 50 90 
809E 21 BF 90 
80A134 
80A2 C3 25 80 
80A5 

80A5 CD 50 93 


5 ORG 

6 ; 

7 tPRTHX ： EQU 

8 #MSX ： EQU 

9 #PRINT ： EQU 

10 #CSRSET：EQU 

11 #WIDCH ： EQU 

12 ； 

13 KEYIN ： 

14 ERAV ： 

15 ERAH : 

16 WRITE ： 

17 STORD : 

18 MAP ： 

19 FALL? : 

20 GVRAD : 

21 CHRCK : 

22 LEFT? : 

23 RIGHT? 

24 GTPC ： 

25 ； 

26 LOC ： 

27 SCNO ： 

28 DOOR ： 

29 AMARI : 

30 PCXY ： 

31 PCADR : 

32 

33 

34 ； 

35 TATE ： 

36 YOKO ： 

37 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


DEFB 

DEFB 


42 SHOKI1: ADD 

43 DJNZ 

L 

CALL 
LD 

CALL 


46 

47 

48 


LD 

LD 


55 

56 MAIN ： 


63 

64 

65 

66 

67 

68 MAIN1 : 

69 

70 

71 


LD 

PUSH 

CALL 

POP 

CALL 

JR 

CALL 


LD 

INC 


74 

75 

76 


JP 

CP 

JR 


81 

82 DOWN ： 

83 


92 

93 


INC 

INC 

CALL 


INC 

CALL 


97 ； 

98 DOWN 1 : INC 

99 CALL 


INC 

INC 

CALL 


09 DOWN2 : LD 
0 DOWN21：LD 
1 CALL 


INC 

DJNZ 


9 DOWN4 : LD 


25 ONHSG? : CALL 


80OOH 

1FC1H 

1FE5H 

1FF4H 

201EH 

203OH 

90OOH 

9030H 

9O50H 

9070H 

9100H 

9120H 

9300H 

9350H 

9370H 

9400H 

9410H 

9440H 

90BEH 

9490H 

9491H 

9492H 

9493H 

9495H 

SHOKI 

1 ； Scene ノ 

1 ； オオ爷呼 


BC,(TATE) ； C=(TATE>,B=<YOKO> 
A 

A ， C 

SHOKI1；A = (TATE) 拿 （ YOKO) 


HL,DATA 

STORD 

A，40 

fWIDCH 

A，1 

(SCNO),A 
MAP 

HL,1203H ； (3,18) 
(LOC),HL 


HL,(LOC) 
HL 

WRITE 

HL 

FALL? 

NZ,MAIN1 

ERAH 



し 

Z t UP 

9 J 9 


ウ x 力？ 


ヒタ • ワカ ? 


Z.LEFT 

Z,RIGHT 
T 

Z.DOWN 


ミ年 • 力 ? 
シタカ 7 
シタカ 7 


NZ.MAIN1 


HL,(LOC) 

H 

H ；アシノイチ 

ONHSG? 

NZ.DOWN1 

H 

GTPC 
2 

Z,DOWN 4 
A 

Z,DOWN 4 
GVRAD 
DOWN2 

H ； (L,H+3> アシモト 

GVRAD 

A •す 

CHRCK 

NZ.DOWN2 

DE 

DE 

CHRCK 

NZ.MAINl 

DOWN4 



CHRCK 
Z,DOWN3 
A,，= f 
CHRCK 
NZ,MAIN1 
DE 

DOWN21 ； T シモト D- SPC ナラシタへ 

HL ，（ LOC) 

ERAH 


MAIN 

GVRAD ； ON HASHIGO 



アシモト 
ハシコ • 

SPC 


80A8 

3E 

48 



126 

LD 

A, ， H* 


80AA 

CD 

70 

93 


127 

CALL 

CHRCK 


80AD 

C0 




128 

RET 

NZ 


80AE 

13 




129 

INC 

DE 


80AF 

13 




130 

INC 

DE 


80B0 

C3 

70 

93 


131 

JP 

CHRCK 


80B3 





132 




80B3 





133 UP ： 




80B3 

2A 

BE 

90 


134 

LD 

HL«(LOC) 


80B6 

24 




135 

INC 

H 


80B7 

24 




136 

INC 

H 


80B8 

CD 

A5 

80 


137 

CALL 

ONHSG? 


80BB 

C2 

3B 

80 


138 

JP 

LD 

NZ,MAIN1 


80BE 

2A 

BE 

90 


139 

HL,(LOC) 


80C1 

24 




140 

INC 

H 


80C2 

24 




141 

INC 

H 


80C3 

CD 

50 

90 


142 

CALL 

ERAH ； (L,H+2) 


80C6 

21 

BF 

90 


143 

LD 

HL.LOC+l 


80C9 

35 




144 

DEC 

(HL) ； DEC Y-posi 

tioi 

80CA 

C3 

25 

80 


145 

JP 

MAIN 


80CD 





146 




80CD 





147 LEFT ： 




80CD 

2A 

BE 

90 


148 

LD 

HL,(LOC) 


80D0 

80D3 

CD 

C2 

00 

3B 

94 

80 


.149 

150 

CALL 

JP 

LEFT? 

NZ.MAINl 


80D6 





151 

; 



80D6 

E5 




152 

PUSH 

HL 


80D7 

2C 




153 

INC 

L 


80D8 

2C 




154 

INC 

L 


80D9 

CD 

30 

90 


155 

CALL 

ERAV ； (L+2.H) 


80DC 

El 




156 

POP 

HL 


80DD 

2D 




157 

DEC 

L 


80DE 

22 

BE 

90 


158 

LD 

JP 

(LOC),HL 

MAIN 


80E1 

C3 

25 

80 


159 


80E4 





160 




80E4 





161 RIGHT ： 




80E4 

2A 

BE 

90 


162 

LD 

HL,(LOC) 


80E7 

CD 

10 

94 


163 

CALL 

RIGHT? 


80EA 

C2 

3B 

80 


164 

JP 

NZ.MAINl 


80ED 





165 



80ED 

E5 




166 

PUSH 

HL 


80EE 

CD 

30 

90 


167 

CALL 

ERAV ; (L V H) 


80F1 

El 




168 

POP 

HL 


80F2 

2C 




169 

INC 


80F3 

22 

BE 

90 


170 

LD 

JP 

(LOC),HL 


80F6 

C3 

Z5 

80 


171 

MAIN 


80F9 





172 




80F9 





173 DATA ： 




80F9 

70 

00 

33 

00 

174 

DEFB 

70H ： 00H ： 33H ： 00H ： 00H ： 

07H 

80FD 

00 

07 







8CFF 

75 

52 

05 

55 

175 

DEFB 

75H ： 52H ： 05H ： 55H ： 52H ： 

07H 

0103 

52 

07 







8105 

70 

00 

20 

00 

176 

DEFB 

70H ： 00H ： 20H ： 0OH ： 02H ： 

07H 

8109 

02 

07 







810B 

70 

33 

32 

30 

177 

DEFB 

70H ： 33H ： 32H ： 30H ： 00H ： 

07H 

810F 

00 

07 







8111 

72 

00 

00 

03 

178 

DEFB 

72H ： 00H ： 00H ： O3H ： 33H ： 

27H 

8115 

33 

27 







8117 

72 

00 

00 

00 

179 

DEFB 

72H ： 00H ： 00H ： 00H ： 25H ： 

57H 

811B 

25 

57 







811D 

70 

20 

00 

00 

180 

DEFB 

70H ： 20H ： 00H ： 00H ： 20H ： 

07H 

8121 

20 

07 







8123 

55 

55 

55 

55 

181 

DEFB 

55H ： 55H:55H ： 55H ： 55H ： 

55H 

8127 

55 

55 








•ダンプリスト 


8000 

18 

02 

01 

01 

ED 

4B 

02 

80 

D6 

8008 

AF 

81 

10 

FD 

21 

F9 

80 

CD 

A4 

8010 

00 

91 

3E 

28 

CD 

30 

20 

3E 

52 

8018 

01 

32 

90 

94 

CD 

20 

91 

21 

F6 

8020 

03 

12 

22 

BE 

90 

2A 

BE 

90 

FD 

8028 

E5 

CD 

70 

90 

El 

CD 

00 

93 

F3 

8030 

20 

09 

CD 

50 

90 

21 

BF 

90 

46 

8038 

34 

18 

EA 

CD 

00 

90 

FE 

IB 

AC 

8040 

C8 

FE 

49 

28 

6E 

FE 

4A 

CA 

B7 

8048 

CD 

80 

FE 

4C 

CA 

E4 

80 

FE 

C3 

8050 

4B 

28 

04 

FE 

2C 

20 

E4 

2A 

CF 

8058 

BE 

90 

24 

24 

CD 

A5 

80 

20 

A8 

8060 

10 

24 

CD 

40 

94 

FB 

02 

28 

FD 

8068 

2F 

B7 

28 

2C 

CD 

50 

93 

18 

02 

8070 

14 

24 

CD 

50 

93 

3E 

48 

CD 

3B 

8078 

70 

93 

20 

09 

13 

13 

CD 

70 

8F 

SUM ： 

65 

0E 

79 

80 

El 

82 

86 

09 : 

:5E 

8080 

93 

20 

B8 

18 

13 

06 

03 

3E 

DD 

8088 

20 

CD 

70 

93 

28 

07 

3E 

3D 

9A 

8090 

CD 

70 

93 

20 

A6 

13 

10 

EF 

A8 

8098 

2A 

BE 

90 

CD 

50 

90 

21 

BF 

05 

80A0 

90 

34 

C3 

25 

80 

CD 

5 0 

93 

DC 

80A8 

3E 

48 

CD 

70 

93 

C0 

13 

13 

3C 

80B0 

C3 

70 

93 

2A 

BE 

90 

24 

24 

86 

80B8 

CD 

A5 

80 

C2 

3B 

80 

2A 

BE 

57 

80C0 

90 

24 

24 

CD 

50 

90 

21 

BF 

65 

80C8 

90 

35 

C3 

25 

80 

2A 

BE 

90 

A5 

80D0 

CD 

00 

94 

C2 

3B 

80 

E5 

2C 

EF 

80D8 

2C 

CD 

30 

90 

El 

2D 

22 

BE 

A7 

80E0 

90 

C3 

25 

80 

2A 

BE 

90 

CD 

3D 

80E8 

10 

94 

C2 

3B 

80 

E5 

CD 

30 

03 

80F0 

90 

El 

2C 

22 

BE 

90 

C3 

25 

F5 

80F8 

80 

70 

00 

33 

00 

00 

07 

75 

9F 

SUM ： 

D1 

7A 

AC 

6D 

91 

E7 

30 

81 : 

： 8D 

8100 

52 

05 

55 

52 

07 

70 

00 

20 

95 

8108 

00 

02 

07 

70 

33 

32 

30 

00 

0E 

8110 

07 

72 

00 

00 

03 

33 

27 

72 

48 

8118 

00 

00 

00 

25 

57 

70 

20 

00 

0C 

8120 

00 

20 

07 

55 

55 

55 

55 

55 

D0 

8128 

55 








55 

SUM ： 

AE 

99 

63 

3C 

E9 

9A 

CC 

E7 : 

: 1C 
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今月も読者參加の S - OS ， 「ちょっと便利 Z 80 AID ( AID とは助けるの意）のことであ 
な拡張プログラム」として 2 つの投稿作品，るが，編集室では「ザイド」と呼んでいる 全機種共通システム掲載記事 


ディスクのエディツトやディレクトリ操作 
などができるディスクモニタ DREAM を紹介 
します 。 Fuzzy BASIC の入門講座も始まりま 
した。これを使った応用プログラム，そし 
て MAGIC on S - OS のアプリケーションもど 
しどしお寄せくださいね。 

ところで，最近気になるのが用語の乱れ。 
BASIC のコマンドや記号については I 月号 
の「専門誌の正しい読み方」のおかげかず 
いぶん改善されましたが， S - OS 関係では間 
違った読み方（発音）をしている人がかな 
りいます。というわけで s ~ os 用語辞典，発 
音記号もつけていってみよう！ 

MACE [meis] 

「マース」 ではなく 「メイス」 と読む 。 R 
PG でよく登場する最初に手にする武器《闘 
棍》，あるいは市長•大学総長などの職席の 
象徴として儀式の際に用いられるつえ《職 
杖》，はたまた地対地ジヱット推進誘導式ミ 
サイル （ Mace )， 暴徒鎮圧用非致死性散布剤 
(Chemical Mace ) ? 

SWORD [s6 ： rd] 

S-WORD (エス •ワード）と読む人が多い 
けど，ワープロじゃないんだゾと。もちろ 
ん「スウォード」でも「スワード」でもない。 
素直に「ソード」と呼んでいただきたい。こ 
れも RPG に登場する武器《剣》，そしてそれ 
が象徴するところの《戦闘》，《武力》，《軍事 
力 》0 


のでみんなもそう呼んでほしい。 

ZING [zi 0 ] 

Z 80 INstruction Generator の略である。ち 
なみに英語の zing には《熱情》とか《活気》 
という意味があり，《ヒューン》という擬声 
語も zing である。 
magi FORTH [m 金 gif 6: 相] 

これはきっとみんなが「マジ」と読むだ 
ろうと•思い，発表のときから「マギー」と 
書いておいたので間違って呼ぶ人はいない。 
magi [ m6id3ai ] という単語そのものの意味よ 
りも magic 的なニュアンスを持つ接頭語と 
してとらえたほうがいいだろう。なお ， ma 
giFORTH の命名が多分に RgyFORTH を意識 
していることに，気づいている人は気づいて 
いる 0 

FuzzyBASIC [f Azibeisik] 

さっそく 「フジーベーシック」 と読んで 
きた人がいたのであきれてしまった。これ 
は「フ アジーベーシック」 と呼んでもらい 
たい。田各して FuBASIC と覚えてもらっても 
いいが（下唇を上の歯につけて） 「フューべ 
ーシック」 と呼ぶのはちょっとつらい 。 fu 
zzy は《ぼんやりした》という意味があるが， 
そこから《風変わりな》というようなニュ 
アンスを感じてもらえればと思う。 

S-OS [ esoues ] 

Oh ! MZ が各機種のモニタを統合するため 
に作り出した共通化システム。名前の由来 


ZEDA [zerda] 

「ゼダ」という人がいるけど，できれば「ゼ 
ーダ」と呼んでいただきたい。これは Z 80 
EDitor Assembler の略であるから辞書をひ 
いても載っていない。 

ZAID [zdid] 


についてさまざまな臆測が飛びかっている 
が，本当のところは定かではない。 

S - OS 関係のプログラム名にはけっこう深 
く考えてつけられたものが多くあります。 
できれば辞書なんかひいて，その奥底にあ 
る意識を感じとってほしいと思うのです。 



■85 年6月号 
序論共通化の試み 
第 I 部 S-OS “ MACE ” 

第2部 Lisp -85 インタプリタ 
第3部チェックサムプログラム 
■85 年7月号 

第4部マシン語プログラム開発入門 
第5部エディタアセンブラ ZEDA 
第6部デ バック ツール ZA 旧 
■85 年8月号 

第7部ゲーム開発パッケージ BEMS 
第 8 部ソースジェネレータ ZING 
■85 年9月号 

インタラプト S - OS 番外地 
第9部 マシ ン語ツール MACINTO-S 
第10部 Lisp -85 入門（ I ) 

■85 年10月号 

第 I 丨部仮想マシン CAP - X 85 
連載 Lisp -85 入門 （2) 

■85 年 II 月号 
連載 Lisp -85 入門 （3) 

■85 年12月号 
第12部 Prolog -85 発表 
■86 年 I 月号 

第13部リロケータブルのお話 
第14部 FM 音源サウンドエディタ 
■86 年2月号 
第 15部 S-OS “ SWORD ” 

第 16部 Prolog -85 入門 （ I ) 

■86 年3月号 
第17部 magiFORTH 発表 
連載 Prolog -85 入門 （2) 

■86 年4月号 

第18部思考ゲーム JEWEL 
第 19部 LIFE GAME 
連載基礎からの magiFORTH 
連載 Prolog -85 入門 （3) 

■86 年5月号 

第20部スクリーンエディタ E-MATE 
連載実戦演習 magiFORTH 
■86 年6月号 
第21 部 Z 80 TRACER 
第22部 magiFORTH TRACER 
第23部ディスクダンプ&エディタ 
第24部 SWORD 2000 QD 
連載対話で学ぶ magiFORTH 
特別付録 PC -880 I 版 S-OS “ SWORD ” 
_86年7月号 

第25部 FM 音源ミ ュー ジック システム 

付録 FM 音源ポードの製作 

連載計算カアップの magiFORTH 

特別付録 SMC -777 版 S-OS “ SWORD ” 

_86年8月号 

第26部対局五目並べ 

第27部 MZ - 2500版 S-OS “ SWORD ” 

■86 年9月号 

第28部 FuzzyBASIC 発表 

連載明日に向かって magiFORTH 


* Lisp-85, ZEDA, ZAID, BEMS, ZING, MACINTO-S, C 
AP-X85, Prolog-85, magiFORTH, E-MATE, Fuzzy BASI 
C, FM 音源ミュージックシステムなどのアブリケー 
シヨンは，基本オペレーテイングシステムである S- 
OS “MACE" または S-OS “SWORD” がないと動作しま 
せんのでご注意ください。 
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読者投稿の中から 2 種類の機能拡張プログラム 
を紹介します。ひとつは S - OS “ SWORD ” 
のモニタにトランジェントコマンドを付ける 
というもの，もうひとつは ZAI □を改造する 
ものです。特に前者のほラはまだまだアイデ 
* アが膨らみそろ。皆さんも考えてみませんか。 

ちよつと便利な拡張プログラム 


G _ os にトランジェントコマンドを 

HIIII 川 II 川圆瞧圆_川_|川__1川川川 I 川 I 川 I 川 IINN 圆川川川 II 川11111111圆 

Kawashima Tomoharu 

川|島智治 


S-OS “ SWORD ” のモニタにデバイス 
内のプログラムを実行するための拡張コマ 
ンド 「 Rj と，それを利用したトランジェン 
トコマンド 「 TYPE 」，「 COPYj を追加して 
みました。なかなか便利なコマンドですか 
ら，皆さん利用してみてください。 

• R (ビルトインコマンド） 

従来の S-OS “ SWORD ” では，デバイス 
内のプログラムを実行するとき 

# Lfilename 
井 J 3000 

のように2回キーインしなければなりませ 
んが， S - OS のアプリケーションもずいぶ 
ん多くなりましたし，頻繁にプログラムを 
差し替えて実行する場合など多少不便を感 
じている人も多いのではないでしよう力、 
そこで， 

# Rfilename 

とするだけで，プログラムファイルをロー 
ドしたあと，セーブ時に指定した実行ァド 
レス（第3ハ 0 ラメータ）を コールす る コマ 
ンド 「 Rj を S - OS のモニタに追加してみ 
まし/こ c 

DOS モジュールにパッチをあてて抗張し 
ています。 2151h 番地からの3バイトを 
2151h C 3 CD 28 

に変更し， CD 28 n 番地からリスト 1- A のよ 
うに打ち込んでください。 

改造した S—OS を FORMAT&SYSGEN 
でシステムジェネレートしなおせば， S-OS 
起動時から R コマンドが使用できるように 
なります。 

• TYPE ( トランジェントコマンド） 

CP / M の 「 TYPE 」 に相当するプログラム 


で， S - OS のアスキーファイルの内容を画 
面/プリンタに出力します。 S - OS のモニ 
夕からアスキーファイルをちょっと覗きた 
いときなどに便利でしょう。 

300 Oh 番地からリスト 1- B のとおりに打ち 
込んだら， S - OS のモニタから 

#STYPE : 3000 : 30 B 0 : 3000 
としてセーブしてください。起動方法は， 

R コマンドが披張してあれば， 

林 RTYPE 

として， CP/M のトランジェントコマンド 
のように使うことができます。このときは 
デイスタに 「 TYPE 」 のプログラムファイル 
が必要なのはいうまでもないことですね。 

R コマンドを付けていない場合は， 
#LTYPE 
# J 3000 

とします。また，一度実行を終了したあと 
再実行する場合も，300 Oh 〜の内容が破壊 
されていなければ 
3000 

とすれば OK です。 

「 TYPE 」 が立ち上がると，オープニング 
メッセージ表示後， 

PRINTER ON ( Y / N ) < 

INPUT TYPE FILE < 

と順に聞いてきますので，画面だけでなく 
プリンタにも出力する場合は 「 Y 」 を入力 
して，参照したいアスキーファイルのファ 
イル名を入力します。出力を一時停止する 
にはスぺースキー ， S - OS のモニタに戻る 
には SHIFT + BREAK を押します。 

なお，このプログラムではアスキーファ 
イルをいったん 4 D 00 h 〜にすべて読み込ん 


でから出力しています。 ZEDA や E - MATE 
のテキストも 4 D 00 h 〜に格納されますから， 
才ーバーフローすることはないはずです。 
また，このプログラムの 308 Eh からの2パ、 
イトを書き換えて，他のアドレスに読み込 
むようにすることも可能です。 

• COPY ( トランジェントコマンド） 

S-OS “ SWORD ” のモニタでは，オブジ 
ェタトファイルの転送は比較的簡単にでき 
ますが，アスキーファイルの転送は ZEDA や 
E - MATE を起動するなどしなければ転送す 
ることができません。そこで，ディスク内 
のファイルをオブジヱタト/アスキーのい 
ずれでも自由にコピーするためのプログラ 
ム 「 COPY 」 を作りました。 

300 Oh 番地からリストト C のように入力し 
たら， S - OS のモニタから 

# S COPY : 3000: 319 E : 3000 
としてセーブします。起動方法は 「 TYPE 」 
とまったく同じです。 

起動するとオーブニングメッセージ表示 
後， 

SOURCE FILE NAME < 

DESTI . FILE NAME < 

と順に聞いてきますので，それぞれコピー 
元/コピー先のファイル名を入力してくだ 
さい。起動時，画面はクリアしませんので， 
コピー元のディレクトリなどを表示してお 
くとよいでじょう。 

ファイル名を入力すると，プログラム内 
で Bin / Asc のチェックを行い， 

FILE TYPE=ASC 

のように表示後，ファイルコピーを行いま 
す0 
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CD 

51 

31 

38 

62 

11 

9D 

32 

13 

03 

0E 

13 

1A 

FE 

AB 

9F 

31 

21 

9F 

C9 

11 

9D 

31 

3E 

8E 

CD 

A3 

IF 

CD 

56 

11 

9D 

31 

3E 

85 

CD 

A3 

IF 

CD 

59 

3A 

96 

31 

FE 

8E 

04 

28 

0C 

CD 

36 

0D 

00 

C9 

11 

2A 

30 

11 

82 

31 

34 

EE 

IF 

11 

9D 

5C 


3080 

3088 

3090 

3098 

30A0 

30A8 

30B0 

30B8 

30C0 

30C8 

30D0 

30D8 

30E0 


3100 

3108 

3110 

3118 

3120 

3128 

3130 

3138 

3140 

3148 

3150 

3158 

3160 

3168 

3170 

3178 


3000 

3008 

3010 

3018 

3020 

3028 

3030 

3038 

3040 

3048 

3050 

3058 

3060 

3068 

3070 

3078 


SUM ： A1 A7 E7 83 E5 A7 40 AC 


SUM ： 62 C8 7F B7 92IE 77 7D ：04 


リスト 2 -A R コマンドソースリス 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

28CD 

28CD 

28CD 

28CD 

28CD 

28CD 

28CD 


R 3 マント • ル ー t ン 


CREATED BY T.KAWASHIHA 
CREATED FROM f 86-05-10 
REWRITE 1 86-05-10 


» クチ ■ ウ 3 マント • 

VER.1.0 


OFFSET 4D0OH-28CDH 
ORG 28CDH 


JUMP FROM 2152H (MCOM) 
RET TO 2100H (HOT) 


28CD 

28CD 

28CD 

28CD 

28CD 

28CD FB 52 
28CF 28 04 
28D1 
2801 
28D1 
28D1 
28D1 

28D13E 0D 
28D3 37 
28D4 C9 
2805 
28D5 

28D5 CD El21 
28D8 2A 6E IF 
28DB C3 7B 21 


LOAD: 

EXADR: 


EQU 21H1H 

EQU 1F6EH 


CP 

JR 


COMMAND END 


CALL 

LD 

JP 


；RUN COMMAND 

LOAD 

HL f (EXADR) 

217BH ； JUMP COMMAND 


リスト 2 -B TYPE ソースリスト 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



CREATED BY T.KAWASHIMA 
CREATED FROM 1 86-05-09 
REWRITE *86-05-09 


♦+++♦+♦ 
PROGRAM ; 


1FC7H 

1FF4H 

1FEEH 

1FD3H 

1FE2H 

1FA3H 

2O09H 

2033H 

1FD9H 

1FD6H 

1FA6H 

1F76H 

1F72H 

1F70H 

1F6EH 

♦♦+♦++ 

START 


OFFSET 4D00H-3000H 


3000 

3009 

3000 

3000 

3003 

3006 

3007 
300E 
3015 
301C 

3023 

3024 
3026 
3029 
3029 
302C 
3033 
303A 
303F 
3040 
3044 

3047 

3048 
304A 
304B 
304E 
304F 

3050 

3051 


CD D6IF 
CD E2IF 
0D 

20 54 59 50 45 2E 4F 

42 4A 20 20 56 65 72 

20 312E 30 20 46 4F 
52 20 53 57 4F 52 44 
20 

00 00 
CD EE IF 

CD E2IF 

20 50 52 49 4E 54 45 

52 20 4F 4E 28 59 2F 

4E 29 20 3C 20 

00 


CALL 

CALL 

DEFB 

DEFM 


LPTOF 

MPRNT 

0DH 

• TYPE.OBJ 


Ver 1.0 FOR SWORD 


#ST1: 


DEFB 0DH:OCH 

CALL LTNL 


MPRNT 

'PRINTER ON(Y/N) 


DEFB 


00H 

DE,(KBFAD) 
CALL GETL 

LD A t (DE) 

CP 1BH 

RET Z 

LD HL,19 

ADD 
EX 
LD 


HL.DE 
HL.DE 
A,(DE) 
» Y , 


リストト B TYPE ダンプリス 


SUM ： 5177 66 AE BF BE 6D B5 :7B 


2A 

E8 

DA 

89 

55 

F8 

32 

F3 

35 

64 

9A 

FB 

5A 

73 

22 

A0 

01 


SUM ： E3 33 D3 3C 9D 08 AB 5A : CF 


3000 CD D6IF CD 
3008 43 4F 50 59 
3010 20 20 56 65 
3018 30 20 46 4F 
3020 4F 52 44 0D 
3028 CD E2IF 20 
3030 45 20 46 49 
3038 414D 45 20 
3040 5B 76IF CD 
3048 IB C8 2113 
3050 9D 31 CD 51 
3058 4131 CD E2 
3060 53 54 49 2E 
3068 20 4E 414D 
3070 00 ED 5B 76 
30781A FE IB C8 


BD 

4B 

EC 

01 

CD 

F8 

IE 

7B 

B6 

19 

54 

5D 

F5 

06 

BF 

59 


Y ダンプリス I 


30E8 

31 

3A 

96 

31 

CD 

A3 

IF 

CD 

： 8E 

30F0 

09 

20 

30 

02 

CD 

33 

20 

C9 

:44 

30F8 

2A 

70 

IF 

22 

9B 

31 

2A 

6E 

： 3F 


リスト 1 -A R コマンド ダンプリスト 

28CD FE 52 28 04 3E 0D 37 C9 : C7 
28D5 CD El212A 6E IF C3 7B : C4 
28DD 21 ：21 


SUM ： EC 33 49 2E AC 2C FA 44 : AC 


SUM: 4E IF DD 1C BF 58 74 F5 : E6 

3080 04 CD A3 IF CD 09 20 30 : B9 
3088 04 CD 33 20 C9 21 00 4D ： 5B 
3090 E5 22 70 IF CD A6IF 01：29 
3098 01 00 2A 72IF Dl1A CD ：74 
30A0 F4IF CD C7IF B0 30 13 : B9 
30A8 B7 ED 42 20 FI CD EE IF : Dl 
30B0 C9 :C9 


THE SENTINEL 


ファイル名ではデバイスも指定すること 
ができます力 ? ，コピー元/コピー先ともに 
デフォルトドライブの場合は省略も可能で 
す0また，同ーファイル名で他のディスク 
にコピーするときは， 

SOURCE FILE NAME< A:filename 
DESTI. FILE NAME < B: 
のように，コピー先をデバイス名だけで代 


用することができます。この場合，コピー 
元のデ'バイス名を省略することはできませ 
ん〇 

ファイル名の入力の際， SHIFT + BREAK 
により S - OS のモニタに戻ります。なお， 
このプログラムも 「 TYPE 」 と同様（アドレ 
スは異なりますが），ファイルをいったんメモ 
リ （4000 h 〜> にすべて読み込んでからコピ 


一しています0参考までにこのアドレスは 
310 Bh ，3136 h からのそれぞれ2バイトを書 
き換えることにより変更可能です。 

「 TYPE 」，「 COPY 」 ともに 短いフ。ログ、ラ 
ムですから， ソースを 用意して いくつかの 
アドレスからのプログラムファイルを作つ 
ておけば（もちろん ファイル 名を少し変更 
して），さらに便利に使えると思います。 


210111 F1EE1ED 
332133032 F2DC 

D1A 816068 A13F 
94304939302 C1 

1DE0D 20208 F18 
2CF2C 3232213 E 

B1A 02194912 ED 
EDI 0300000 E6C 


2F2B2F04E1 044902 
2139214 BF 300 1C24 

F0DA1 20875181150 
1792370374022 D42 

221 F921FA 35031 CD 
7211922 11CC0FE43 

A0F3A1FC535E8190 

24DA23BAD1EF1C42 

108DF78D 53530265 
303C193CE2D10444 

91F10AFF 03938 D00 
9213721130 C02E25 

21662 FF 0881 AD 709 
23A921A722E10B25 

F7DA1ED 23010 E004 
19C336C2C0D0F025 


0AE7E980AB090DEE 
2425E4201E 252 CF3 

D 213 D2E0F9F45FAB 
0435 c 542111541 IE 

FF0000FC3020C6F9 
14220543 D0E 24711 

2E22D000D3D49B90 
E 2750222 C1C545D0 

D55F0F29F1556DC3 
c 464215212 F54EC1 

F 066425 E 68900011 
15544 E447C5520F2 

6900204 FBBEE50F8 
D 5225 c 5251 F 4421 c 

D400FFE9DEA90C3B 
c 5234145 EF 1453 D 1 


A c 1 0 I 7 
6 3 8 0 12 

6 5 D 
4 4 0 

0 0 0 0 
2 5 2 0 

0 9 3 0 
2 5 4 0 

0 4 3 0 
2 5 5 0 

D 0 1 0 
0 2 4 0 

0 5 0 0 

2 4 2 0 

E c D 0 
4 4 3 0 

9 9 0 0 
4 4 2 0 

0 8 0 8 
8 8 9 9 

3 3 3 3- 


D4C1C83C7C39EDC8 

B4E0C2F3C3FE3B94 


D213E500AB14CC30 

0435E5201ED443D0 
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A, (DE 
(HL),i 


DE 

HL 


HL 

BC 

BC.O 


；FILE NAME BUFF 


FILE TYPE CHECK 

LD DE f *SOUCE 

LD A f 1 

LD (FTYPE),A 

CALL FILE 

CALL ROPEN 

JR NC f #LOAD 

LD DE 9 *SOUCE 

LD A, 4 

LD (FTYPE),A 

CALL FILE 

CALL ROPEN 

JR C • 参 LE 

LOAD SOUCE FILE 


JR Z • 参 BIN 

CP 4 

JR Z.fASC 

CALL MPRNT 

DEFW » FILE TYPE ERROR 

DEFB 0DH.00H 

RET 

LD DE,«MES1 

JP #ASC1 

LD DE f #MES2 

CALL MES 

CALL LTNL 


LD 

LD 


DE V #SOUCE 
A f (FTYPB) 
CALL FILB 

CALL ROPEN 

JR HC f #LOADl 

CALL ERROR 

RET 


； 1=BIN 4=ASC 


LD 


HL,(DTADR) 
(DTBUF),HL 
HL t (E 
(EXBUF) 

HL V (SIZ 
(SBUF),HL 


EXADR) 
lUF) ,HL 
SIZE) 
IF) ,HL 
HL,4eeeH 
(DTADR),HL 


LD ( 

CALL RDD 

JR C V *LE 

SAVE DBSTI FILE 


LD DE V #DESTI 

LD A f (FTYPB) ； 1=BIN 4=ASC 

CALL FILE 

LD HL,(DTBUF) 

LD (DTADR) t HL 

LD HL f (BXBUF) 

LD (EXADR) f HL 

LD HL,(SBUF) 

LD (SIZE),HL 

CALL WOPBN 

JR C f #LE 

LD HL f 4COOH 

LD (DTADR) f HL 

CALL WDD 

C t #Lfi 
tINFL 

(HL)<==(DE) 

DATA TRANSB. END = 00H or 0DH 


JR 

JP 


PUSH 

PUSH 


54 #INFL ： 

55 


CALL 

DEFM 


CALL 

POP 

CALL 

LD 

CP 


CALL 

CALL 


00H 

DE,(KBFAD) 
GETL 


Z,LP- 

A,(DI 

1BH 


LPTON 

►E) 


HL 9 19 

HL t DE 

HL t DE 

A，4 
FILE 
ROPEN 
NC, 参 LOAD 
ERROR 


リスト 2- 


FILE COPY PROGRAM 
CREATED BY T.KAWASHIMA 
CREATED FROM f 86-05-11 
REWRITE 1 86-05-11 

.0 


PAUSE : EQU 
PRINT ： EQU 
LTNL ： EQU 
GETL ： EQU 
MPRNT ： EQU 
FILE ： EQU 
ROPEN : EQU 
WOPEN : EQU 
WDD ： EQU 
MES ： EQU 

ERROR ： EQU 
LPTON : EQU 
LPTOF ： EQU 
RDD ： EQU 
KBFAD ： EQU 
SIZE: EQU 
DTADR : EQU 
EXADR ： EQU 


1FC7H 

1FF4H 

1FEEH 

1FD3H 

1FE2H 

1FA3H 

20O9H 

1FAFH 

1FACH 

1FE8H 

2033H 

1FD9H 

1FD6H 

1FA6H 

1F76H 

1F72H 

1F70H 

IF6BH 


#DESTI : EQU #SOUCE>flO0H 

； PROGRAM START 

OFFSET 4D00H-3000H 
ORG 3O0OH 


CALL LPTOF 
CALL MPRNT 
DEFB OOH 

DEFM f COPY.OBJ Ver 1.0 FOR SWORD * 


96 ； 

97 ; 

98 ； 

99 #CK: 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111； 

112 : 

113 ; 

114 ； 

115 #LOAD ： 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 *BIN ： 

126 

127 参 ASC: 

128 #ASC1 ： 

129 

130 ; 

131 ； 

132 

133 

134 

135 

136 

137 ILE ： 

138 

140 ILOAD1 ： 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 ； 

151 ； 

152 ； 

153 tSAVE: 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 ； 

171 ； 

172 ； 

173 #MOVB ： 

174 

175 

176 ； 

177 參 MOVE1: 

178 

179 

180 
181 
182 ; 

183 

184 

185 

186 tMOVEE : 

187 

188 

189 

190 ; 

191 fCHECK: 

192 

193 

194 

195 

196 ; 

197 #CKl ： * 


308C C9 

308D 

308D 

308D 2100 4D 
3090 E5 
309122 70IF 
3094 CD A6IF 
3097 010100 
309A 2A 72IF 
309D D1 
309E 
309E 
309E 1A 
309F CD F4.IF 
30A2 CD C7IF 
30A5 BO 30 
30A713 
30A8 B7 
30A9 ED 42 
30AB 20 FI 
30AD CD EE IF 
30BO C9 


COPY ソースリスト 

30A4 

30A4 

30A4 

30A4119D 31 
30A7 3E 01 
30A9 32 96 31 
30AC CD A3 IF 
30AF CD 09 20 
30B2 30 OF 
30B4119D 31 
30B7 3E 04 
30B9 32 96 31 
30BC CD A3 IF 
30BF CD 09 20 
3002 38 2E 
30C4 
30C4 
30C4 
30C4 
30C4 

30C4 3A 96 31 
30C7 PE 01 
30C9 28 0A 
30CB FE 04 
30CD 28 0C 
30CF CD E2IF 
30D2 2121 
30D4 0D 00 
30D6 C9 
30D7116E 31 
30DA C3 DE 30 
30DD 1182 31 
3OE0 CD E8IF 
30E3 CD EE IF 
30E6 
30E6 

30E6119D 31 
30B9 3A 96 31 
30KC CD A3 IF 
30EF CD 09 20 
30F2 30 ❶ 2 
30F4 CD 33 20 
30F7 C9 
30F8 

30F8 2A 70 IF 
30FB 22 9B 31 
30FE 2A 6E IF 
3101 22 99 31 
3104 2A 72IF 
3107 22 97 31 
310A 2100 40 
310D 22 70 IF 
3110 CD A6IF 
3113 38 DF 
3115 
3115 
3115 
3115 

3115119D 32 
3118 3A 96 31 
311B CD A3 IF 
311E 2A 9B 31 
312122 70 IF 
3124 2A 99 31 
3127 22 6E IF 
312A 2A 97 31 
312D 22 72IF 
3130 CD AF IF 
3133 38 BP 
3135 21 00 40 
3138 22 70 IF 
313B CD AC IF 
313E 38 B4 
3140 C3 28 30 
3143 
3143 
3143 
3143 

3143 E5 

3144 D5 

3145 

3145 
31451A 

3146 77 

3147 FE 00 

3149 28 03 
314B 

3146 23 
314C 13 
314D C3 45 31 

3150 

3150 D1 

3151 El 

3152 C9 

3153 
3153 

3153 D5 

3154 E5 

3155 CS 

3156 0100 00 
3159 

3159 



(DTADR) f HL 

RDD 

BC,1 

HL,(SIZE) 
DE 


LD 

CALL 

CALL 

DEFW 

INC 

OR 

SBC 


CALL 

RET 


A,(DE) 
PRINT 
PAUSE 
参 END 


DE 


HL,BC 

NZ t #LOOP 

LTNL 


3053 F5 

3054 

3054 CD E2IF 
3057 20 49 4E 50 55 54 20 
305E 54 59 50 45 20 46 49 
3065 4C 45 20 3C 20 
306A 00 

306B ED 5B 76IF 
306F CD D3IF 

3072 FI 

3073 CC D9IF 
30761A 

3077 FE IB 
3079 C8 
307A 2113 00 
307D 19 
307E BB 
307F 

307F 3E 04 
3081 CD A3 IF 
3084 CD 09 20 
3087 30 04 
3089 CD 33 20 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

3000 

3000 

3000 

3000 CD D6IF 
3003 CD E2IF 

3006 0D 

3007 20 43 4F 50 59 2E 4F 

300E 42 4A 20 20 56 65 72 

3015 20 312B 30 20 46 4F 

301C 52 20 53 57 4F 52 44 

3023 0D 00 

3025 CD EE IF 

3028 

3028 

3028 CD E2IF 
302B 20 53 4F 55 43 45 20 

3032 46 49 4C 45 20 4E 41 

3039 4D 45 20 3C 20 

303E 00 

303F ED 5B 76IF 
3043 CD D3IF 
30461A 
3047 FE IB 
3049 C8 
304A 2113 00 
304D 19 
304E EB 
304F 219D 31 

3052 CD 5131 

3055 38 D1 

3057 

3057 CD 4131 
305A 

305A CD E2IF 

305D 20 44 45 53 54 49 2E 

3064 46 49 4C 45 20 4E 41 

306B 4D 45 20 3C 20 

3070 00 

3071 ED 5B 76IF 
3675 CD D3IF 
30781A 

3079 FE IB 
307B C8 

307C 2113 00 
307F 19 

3080 EB 

3081219D 32 
3084 CD 5131 
3087 38 D1 

3089 CD 4131 
308C 119D 32 
308F 13 

3090 1A 

3091 FE 3A 
3093 20 0E 
309513 
30961A 
3097 FE 00 
3099 20 08 
309B 

309B 

309B 

309B 119F 31 
309E 219F 32 
30A1 CD 4131 
30A4 


THE SENTINEL 


H H H 

CCPPT sss 
DDPR N NpOPE u u u D 
L L c J I I J pptR PPPL 


g 


E 

hnlrnso 

D T p 
0 L M » 


D)efi 
FAUCLI. 
B ) o K F T 
K E 9EESCN E T s 
(L D lDDfEI V N E 
H »T ( H » » I » H # o R D 
0 E B tB LLLLC* N p 
0DGA1ZHHHH#C # M» 


2 2 

)♦♦ 

D II El 
A TIT c T 
F s L s US 
B ) EKF E ) K ) K X o E 
K E 9EBDCNBD B c E c X s D E 
(L D 1DD#BIV# D # D # X 参 # V 

o E H »B LLLLC *MEE •: ZE I z X ELM 
0 D G A 1 z H H H H 參 c # D DA* N DA0 N X D H # 


FBLLLLFM 
DECACADE 


B L L L L H 
F L T D L L L F 
EDADPEDDXDAR A A E 
D L c L CRLAE LCJ c CD 


B L L L A L 
PL T D L L c c II L 
BDADPEDDXOARADNDPRNDPR D D A 
DLCLCRLABLCJCLILCJILCJ B LLC 


456789 01234567890123456 78901234567 
4 4 4 4 4 4 55555555556666666 66677777777 


890123456789012345 

778888888888999999 


148 Oh! MZ 1986.10. 












214 

215 ； 

216 #MES1: 


217 

218 IMES2: 


FILE TYPE = BIN ’ 


ODH 

* FILE TYPE = ASC 


ODH 


2 

2 

2 


RET 

DEFM 


DEFB 

DEFM 


DEFB 


DEFS 

DEFS 

DEFS 

DBFS 


316F C9 
3170 

3170 20 20 20 46 49 4C 45 

3177 20 54 59 50 45 20 3D 

3178 20 42 49 4E 20 

3183 0D 

3184 20 20 20 46 49 4C 45 

318B 20 54 59 50 45 20 3D 

3192 20 4153 43 20 

3197 0D 

3198 

3198 eo 

3199 00 00 

319B 00 00 

319D 00 00 

319F 


Zaid の逆アセンブルにアスキー表示を 
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Shinji YDShinori 

新司喜則 


このプログラムはデバッグ ツール Z AID 
の L コマンドでマシン語の逆アセンブルを 
行う際，ニーモニックの後ろにオブジェク 
卜に対応するアスキーキャラクタを表示し 
て，メッセージデータなどを見つけやすく 
しようというものです。当然，このプログ 
ラムを走らせるには ZAID が必要です。 
•プログラムの利用法 

まずは， ZAID をロードしておきます。 
600 Oh 番地からリスト 1 のとおりに打ち込 
んだら， 500 Oh 〜 6061h をセーブしてくださ 
い 0 ファイル名はなんでもけっこうです 0 
これで， 600 Oh にジャンプすれば自動的に 
ZAID にパッチをあてたあと， ZAID の初 
期画面になります。 L コマンドで逆アセン 
ブルをすると，ニーモニックの後ろにアス 
キーキャラクタカ 5 '表示されるようになって 
いるはずです。 

この状態で ZAID はすでに改造されてい 
るわけですから， 500 Oh 〜 6061h をセーブし 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 
6000 E5 
600121 1D 60 
6004 22 20 52 
6007 21 3F 60 
60OA 22 0£ 52 
600D 21 00 00 
6010 22 22 52 
6013 210613 
6016 22 0152 

6019 E1 

601A C3 00 50 

601D 

601D 

601D CD FI IF 

6020 7E 

6021 F5 

6022 FE 20 
6024 30 02 
6026 3E 20 


ておいて，以後はもともとの ZAID のスタ 
ート番地 500 Oh にジャンプすれば披張され 
た ZAID が使用できます。もちろん 600 Oh に 
ジャンプしてもかまいませんし手間も同じ 
ですが。 

•プログラムについて 

プログラムの内容を簡単に説明しておき 
ましよう0プログラムは 4 つの部分に分け 
ることができ， 600 Oh 〜が ZAID にパッチ 
をあてる部分， 

それ以降が実際 
の処理ルーチン 
で， 601Dh 〜が 
アスキーキャラ 
クタを格納する 
部分， 6037h 〜 

がデータエリア， 

603 Fh 〜がデー 
タエリアに格納 
してあったアス 

リスト^! ZAID 拡張ソースリスト 


キーキャラクタを表示する部分となってい 
ます。 

メモリマップを図1に示しておきます。 
ZEDA と共存する場合は， ZEDA のテキス 
トエリアを610 Oh (厳密には 6062 h ) 以降に 
してください。 

ぐ参考文献〉 

1) デバッグツール ZAID ， Oh!MZ ， 1985.7 

2) マシン語“入門”大全集， Oh!MZ, 1985.11 

3) S-OS“SWORD” ， Oh! MZ ， 1986.2 

リスト 1ZAID 拡張考ジプリスト 

6000 E5 21 1D 60 22 20 52 21:38 

6008 3F 60 22 0E 52 21 00 00 :42 

6010 22 22 52 21 0613 22 01: F3 

6018 52 El C3 00 50 CD FI IF ：23 

6020 7E F5 FE 20 30 02 3E 20 :21 

6028 C5 ED 4B 37 60 02 03 ED :86 

6030 43 37 60 Cl F1 23 C9 3A : B2 

6038 60 27 00 00 00 00 0D 06 : 9A 

6040 22 CD DF IF D5 1139 60 : 6C 
6048 CD E8IF D13E 20 32 3B ：70 
6050 60 32 3C 60 32 3D 60 E5 : E2 

6058 213A 60 22 37 60 El C3 : 18 

6060 EE IF :0D . 

SUM ： DC 04 9719 C716 28 D1:66 


ZEDA トキ镰ウゾ * ン tt ルト夺 A 
$6100 イコウヲテ聲スト x* ； T 二 
シテクタ 

ts 羣拿拿韋拿拿拿拿拿拿$拿拿拿掌 t 拿 t 拿 t 拿拿搴本 


13 ORG $6000 

14 ； 

15 #TAB EQU $1FDF 

16 #MSG EQU $1FE8 

17 #LETNL EQU $1FEE 

18 #PRNTS EQU S1FF1 

19 ； 

20 PATCH ： 

21 PUSH HL 

22 LD HL ( MAIN 

23 LD ($5220) V HL 

24 LD HL.PROUT 

25 LD ($520E) 9 HL 

26 LD HL,0 

($5222 


28 

29 


LD 

LD 


22) f HL 
HL t $1306 
($5201),HL 


CALL 参 PRNTS 
LD A,(HL) 
PUSH AF 
CP $20 
JR NC t MAINl 
LD A,$20 


6028 

6028 C5 

6029 ED 
602D 02 
602E 03 
602F ED 

6033 Cl 

6034 FI 

6035 23 

6036 C9 

6037 
6037 3A 
6039 
6039 
6039 27 
603A 
603A 00 
603B 00 
603C 00 
603D 00 
603E CD 
603F 
603F 
603F 06 
6041 CD 
6044 D5 
6045 11 
6048 CD 
604B D1 
604C 3E 
604E 32 
605132 
6054 32 

6057 E5 

6058 21 
605B 22 
605E El 
605F C3 


4B 37 60 

43 37 60 


39 60 
E8IF 


3B 60 
3C 60 
3D 60 

3A 60 
37 60 


50 DTPOI : 

51 


PUSH BC 

LD BC,(DTPOI) 
LD (BC),A 
INC BC 

LD (DTPOI),BC 

POP BC 

POP AF 

INC HL 

RET 

DEFW DTARA+1 


DEFB •••" 

DEFB 0 
DEFB 0 
DEFB 0 
DEFB 0 
DEFB $0D 


62 PROUT ： 

63 


CALL 

PUSH 


CALL 

POP 

LD 

LD 

LD 


B v 34 

#TAB 


DE,DTARA 
#MSG 


DE 
A •! 


$20 
(DTARA+2),A 
(DTARA+3),A 
《 DTARA ♦ わ ， A 
HL 

HL.DTARA+1 
(DTPOI),HL 


図 1 メモリマップ 

000 Oh 

3000 h 

500 Oh 
600 Oh 
606211 




198 

199 

200 
201 
202 

203 

204 

205 

206 ； 

207 #CK2: 

208 

209 

210 
211 
212 
213 


INC 

INC 


LD 

OR 

SBC 

POP 

POP 

POP 


BC 

DE 

00H 

Z f #CK2 ； INPUT END 
0DH ； RETURN KEY 

Z f #CK2 
#CK1 


CARRY = ERROR 


31591A 
315A 03 
315B 13 
315C FE 00 
315E 28 04 
3160 FE 0D 
3162 28 00 
316418 F3 
3166 
3166 

3166 2114 00 
3169 B7 
316A ED 42 
316C Cl 
316D El 
316E D1 
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: F F c 
- ]F u u u 
I Y u B B o 
I T B X T s 
• • F s B D § 

3 0 12 3 4 5 
12 2 2 2 2 2 
^222222 
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全機種共通 (S-OS“SWORD” 要 ) 



読者投稿によるディスクユーティリティで 
す。データサーチ，ディレクトリのガーベ 
ジコレクション/並べ替えなど，6月号で発 
表した「ディスクダンプ S エディタ」とは 
またひと味違ったものになっています。へ 
ルプメニューも付いて便利に活用できるで 
しよ*5。 


テイスクモニタ DREAM 


■ 

頑張れ3インチ ユーザー 


S - OS のアプリケーション，ユーティリテ 
ィが 充実す るに つれて，使用頻度もますま 
す増してきました。そうなると S - OS 上で 
手軽に使える ディスクモニタが 欲しくなっ 
てきます。 

初めは BASIC で自作したのを使っていま 
したが， S - OS から起動するのが煩わしく速 
度も遅いので，次にディスク I / O は“ SWO 
RD ” に任せ，エディットは HuMonitor で 
する方法を試みたのです。処理速度は速く 
なりましたがモニタのダンプリストではデ 
ィスタの論理アドレスが表示できないなど 
の不満が残りました。 

そうこうするうちに， S - OS で動く使いや 
すいディスタモニタがどうしても欲しくな 
るできごとが生じます。 BOOT した時点で 
好みの状態にあるように‘‘ SWORD ” を改造 
し，ディスクに再登録するため FORMAT 
& SYSGEN を実行してしまったのです。 

そして# D 0 とすると……，見るも無惨！ 
蓄積してきた大切なフアイル類はみごとに 
消滅していました。 

デイスク モニタを 使って直接デイスタに 
書き込めばこんなことにならなかったのに， 
と後悔してもあとの祭り。しかも今やディ 
スク の入手もままならぬ3 インチユー ザ ー 
( X 1 D ) とあってはバックアップをとる余裕 
もなく，限られたディスクを有効に利用す 
るためにも便利なディスク モニタ が必要だ 
と痛感しました。 

そこで S - OS のサブルーチンを使ったデ 
ィスクモニタを作ろうと一念発起し，ちま 
たがなにやらサミットとかのお祭り騒動の 
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連休中，自宅にこもって作ったのがこのデ 
イスタモニタ“ DREAM”（Disk Read , Edit 
and Arrange Monitor ) です 0 


□ REAM の概要 


レコードの 読み書きだけでは面白くない 
ので，ディレクトリ操作など，あれば便利 
と思われる機能をいくつか付加してみまし 
た。 DREAM には次のような機能がありま 
す。 

1) レコード 単位のディスクダンプ，エデ 
ィット，転送 

2) レコードの連続自動ダンプ 

3) 文字/コード列を検索し，その論理ァド 
レスを表示していくディスクサーチ機能 

4) KILL されたものも含めて，属性 ， Hu 
BASIC のもとでのパスワード値，格納先 
頭クラスタ値も表示するなんでもかんで 
もディレクトリ表示機能 

5) デイレクトリのガーべジコレクシヨン 

6) ディレクトリ並べ替え 

7) メインメモリのダンプ，エディット機能 

8) デバイス切り換え 

9) ディレクトリ， FAT ポジシヨン登録値 
変更 

10) WIDTH 変更 

11) コマンドリストを表示するヘルプ機能 
その他各機種のモニタも直接コールできる 
ので，それらの機能も組み合わせるといろ 
いろ使い道があるのではないかと思います。 

このプログラムは本体が300 Oh から 3 FF 
Fh までで，400 Oh から BFFFh までがブロッ 
クデータ バッファ （8 クラスタ読み込み用） 
となっています。したがって“ SWORD ” に 
対応する全機種で使えるはずです。 


□闩 EAM の使い方 


まず S - OS “ SWORD ” を起動して300 Oh か 
ら DREAM をロードします。300 Oh にジャン 

プ すると コール ドス ター トし， コマンドモ 
ー ドに入って プロンプト@>が 表示されま 
す。以下に説明する各 コマンド はすべてこ 
の モードで 使用します。 

なお，この中でパラメータの書式は 
h :16進数 （0 〜 F ) 
n : 〇〜9 
Chr :文字 

……：連続して記述できること 
を示しており，たとえば hh というのは16進 
数2桁です。 

基本的に数値入力は10進法を許可せず， 

16進に限定しました。惯れない方には少々 
使いづらいかもしれませんが，実際に クラ 
スタ，レコード， 論理 アドレスは 16進で関 
係づけられているので慣れればそのほうが 
正確で早く把握できると思います。 

各コマンドについて説明しましよう。 

•L(hhh) 

hhhrH 旨定された番号のレコードをレコ 
ードデータ バッファに 読み込み，ダンプリ 
ストとして出力する。 

レコード番号の入力は16進3桁に限るが， 
リスト時のレコード番号は16進，10進両方 
で表示される。番号を省略すると直前に読 
んだ次のレコードを読む（初期値は000 H )。 

80桁 モー ドでは一度に256バイト表示す 
る力す， 40桁 モードで はまず前半128バイト 
を 表示し，その後 スペースキーを 押すごと 
に前半，後半を交互に表示する。この場合 
はリ ターンキーでコマン ド モー ドに戻る。 
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•$(hhh) 

直前に読み込んだレコードのデータを hh 
h で指定されたレコードに書き込む。 

レコード番号を省略すると直前に読み込 
んだレコードに再書き込みをする。一度も 
レコードを読まないで実行すると “No da 
ta to write !” が表示され，このコマンドは 
受けつけない。データがあれば書き込むか 
否かを確認してくるので，書き込む場合は 
B ， コマンドモードに戻るときは圆を押す。 
•D(hhhh) 

メインメモリの hhhh 番地から256バイト 
(40 桁モードでは128バイト）ずつを•定の 
時間間隔で連続的にダンプする。 

アドレスを省略すると直前にダンプした 
次のアドレスからダンプを始める（初期値 
は0000 H )。 スペースキーを押すとダンプを 
停止しコマンドモードに戻る。 

•C(n) 

D コマンドによる連続ダンプのときの侍 
ち時間の問隔を〇〜9の10段階で設定する。 

n の値が小さいほど侍ち時間は短くなり， 
n を省略すると自動的に5に設定される。 
実行すると “ Delay counter = n ” と表示され 

コマンドモードに戻る。 

•F(n(hh …… または； Chr …… )) 

n で指定されたブロック（第 ( nX 8) クラ 
スタからの8クラスタ）の中からデータ列 
を探し出し，そのディスク内論理アドレス 
を16進5桁で表示する。 

例） F 0 414213または F 0 ;A ； B 0 

Group = 0 : Cluster No . $ 00 — $ 07 
Search data =4142 /AB 
$0108 A $010 E 0 $03857 $0697 F 
($0108 A : 010 h レコード内 8 Ah 番地） 

ブロック番号を省略すると直前にサーチ 
した次のブロックをサーチする。サーチデ 
ータを省略すると直前に実行したときのサ 
ーチデータでサーチする。 

サーチデータの入力は16進2桁または文 
字コードのいずれでもよく，文字コードの 
場合は直前に必ずセミコロン （ ； ） を置かな 
ければならない。データ間のスペースはあ 
ってもなくてもよく，データ数は1行の範 
囲内ならば何文字でもかまわない。 

00 h はサーチデータとして受けつけない。 
したがって，サーチデータを解除するに.は 
F 0 000を実行すればよい。この場合，デイ 
スクからの読み込みだけが行われる。 


F コマンドを実行すると8クラスタ分の 
レコードがブロックデータバッフア (4000 h 
〜 BFFFh ) に格納される0このあとアドレ 
スを省略して D コマンドを実行すると自動 
的に400 Oh より1レコードずつ連続ダンプ 
を始める。ブロックデータバッファの範囲 
をダンプしている間は，メモリの絶対アド 
レスとともにそのデータに対応するレコード 
番号も表示される。連続ダンプがバッファ 
の範囲を越える際にはべルを鳴らす0 
•Q 

ディレクトリテーブル上に存在するファ 
イル名と属性，格納先頭クラスタなどを K 
ILL されたものも含めてすべて出力する。 

有効なファイルの先頭には01から順番に 
16進2桁の番号を， KILL されたものには 
“ xxx ” を付けて表示するので，ディレクト 
リの状態が容易に把握できる。 

HuBASIC で設定できるパスワードも検 
出し，値が 20 h ならば“ npw ” (no password ) 
と表示，それ以外は“；”の後ろにその値を 
16進2桁で表示する。 

例） QB 1 
Files 

01) ZEDA . Obj npw Bin * $06 

02) ZING . Obj 叩 w Bin * $09 

03) Disk Convert . Bas ;39 Bas * $0 B 

xxx SYSTEM LABEL eda 叩 w ??? $0 E 

•& 

KILL されたファイル名が残っているデ 
イレクトリテーブルのガーベジコレクショ 

ンを行う。 

実行すると “ Dir = $010- Collection finis 
h !，，，“ Write ( Y / N ) ?” と聞いて くる。 El を 
押すと有効なファイル名だけで構成された 
ディレクトリテーブルが書き込まれる〇 E 1 
を押すとコマンドモードに戻る。 

•Ahh …… 

ディレクトリの順序を並べ替える。 

まず Q コマンドでディレクトリのリスト 
を見て先頭に付加された番号を確認し，並 
ベたい順に16進2桁の番号列を A コマンド 
の後ろに付けて入力する。並べ替えられた 
ファイルのリストが表示され，書き込むか 
否かを聞いてくるので，それでよければ13 
を押すと新しい順序のディレクトリテープ 
ルが書き込まれる。入力された番号のファ 
イル名から順番に配置され，入力しなかっ 
た番号のフアイル名は後ろにずれていく。 



例）実行前の並び： 0102 03 04 05 06 
A 03 02 04)3 

実行後の並び： 03 02 04 0105 06 
このコマンドを実行したときにディレク 
トリの中に KILL されたファイル名が残っ 
ていると “ Collectgarbage !” の表示が出る 
ので，その場合はまず&コマンドを実行し 
てガーべジコレクションをしてから A コマ 
ンドを再実行する必要がある。 

番号データは必ず16進2桁とし，データ 
間のスペースはあってもなくてもよい。デ 
ータ数は1行の範囲内なら何個でもよいが， 
重複したり，ファイル数を越える数値を入 
力すると受けつけない。 

一度に並べ替えのできる個数は最大38個 
で，並べ替えるファイルがそれを越える場 
合は何段階かに分けて実行するとよい。 

像 Vdv 

デバイスの設定値を変更する。 dv は A ， B ， 
C , D のいずれかで， S ， T , Q は無視する。 

•T 

ディレクトリと FAT のポジション設定値 
を変更する。 

ディレクトリと FAT の位置を順に聞いて 
くるので，それぞれレコード番号を16進3 
桁で入力する。入力をパスしたいときはリ 
ターンキーだけを押せばよい。 

例 ） TQ 

Dir = $02001 
Fat =$ OlE 0 

Set OK ! : Dir = $020 Fat =$0 IE 

• ? 

現在設定されているデバイス，ディレク 
トリ， FAT ポジション，読み込まれたレコ 
ード番号，サーチされたブロック番号とサ 
ーチデータを表示する。 

ただし ， F コマンドでサーチをしたあと 
で A コマンドや&コマンドを実行すると， 

ブ ロックデー タパ、 ッ ファの レコー ド データ 
は破壊され無効となるので，？コマンドで 
ディスクモニタ DREAM 151 




























3058 

3060 

3068 

3070 

3078 


3098 

30A0 

30A8 

30B0 

30B8 

30C0 

30C8 

30D0 

30D8 

30E0 

30E8 


SUM: 5E C0 F8 C0 65 F3 85 AA : 5D 

3080 36 20 20 20 62 79 20 48 :D9 
3088 2E 4B 616E 6179 616D : F0 
3090 61 0D 2D 2D 2D 2D 2D 2D ： 7C 


は表示されない。 

例 ）？ H 

Device = A : Dir =$010 Fat =$00 E 
Record No . $011 = 17 
Group 1 :Cluster No . $08 - $0 F 
Search data = 4142 /AB 

•P 

実行するたびにプリンタの ON/OFF が切 
り換わる。プリンタ出力は L ， D ， F ， A ， Q , 

?コマンドに対して有効である。 

•W 

表示モードを切り換える。実行するたび 
に40桁/80桁モードカす切り換わる。 

•M 

各機種のモニタにジャンプする。 

XI はモニタで R コマンドを実行するとデ 
イスクモニタに復帰し， G 3000で戻るとコ 
ールドスタートする。 MZ は300 Oh にジャン 
プすればホットスタートに復帰する。 

• ! 

s _ os のコールドスタートにジャンプする c 

• H 

ヘルプコマンド。各コマンドの書式，レ 
コードデータバッファ，ブロックデータバ 
ッファのエリアなどを表示する。 


エディット機能について 

_ M 

L コマンドによるレコードダンプ， D コ 
マンドによるメモリダンプのいずれもコマ 
ンド モー ドでカーソルを使ったスタリーン 
ェディットが可能です。方法は HuBASIC 
などのモニタでダンプリストをエディット 
するときと同様で，カーソルを移動してデ 
ータを変更後，各ラインごとにリターンキ 
一を押せば OK です。 

データの書式は16進2桁，文字コードぃ 
ずれも受けつけますが，文字コードの場合 
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は直前に必ずセミコロン （；） が置かれてい 
なければエラーになります。データ間のス 
ぺースはあってもなくてもかまいません。 

D コマンドでも，レコードのデータは読 
めますが，ディスクに対して書き込む場合 
は L コマンドによるダンプでなければなり 
ません。 D コマンドは F コマンドと併用し 
て（サーチデータを省略して）レコードを 
連続ダンプして中をのぞくのに使用してく 
ださい。 


プログラムの入力について 


各機種のモニタまたはマシン語入カツー 
ルで300 Oh から 3 FF 7 h まで リスト1 のとおり 
に入力します 0 ヘルプコマンドのルーチン 
は機能上は重要では 
ないので，削除でき 
るように最後尾に配 
置しました。不要で 
あれば 3 D 00 h から3 
FFBh までは入力しな 
くてもよいでしよう。 

その場合は H コマン 
ド処理部分の 3131 h 
から3137 h までの7バ 
イトを 00 h に置き換 
えてください。メモ 
リマッフ。を図1に示 
しておきます。 

入力が終わって， 

チェックサムを確認 
したらさっそく実行 
してみましよう。ま 
ず KILL を繰り返し 
たデイスタのフアイ 
ルリストを Q コマン 

ドで見てください。 


あちらこちら穴だらけになっていませんか。 
そんなときは&コマンドでガーベジコレク 
シヨンをして再度リストをとってみてくだ 
さい。きれいに整理されたでしょう。 

ファイル名の順序が気にいらない？ そ 
れでは A コマンドを実行してみましょう。 
一発ドンで望みどおりの順序に並べ替えら 
れましたね。 

デイレクトリゃ FAT が標準位置にない。 

うっかり KILL したファイルを修復したい0 
そんなときは F コマンドでキーワードをサ 
ーチし， L ， D コマンドを駆使して角單析し 
てみてください。これはひと筋縄ではいか 
ない最高のアドベンチヤーゲームですよ。 

思いつくままに機能を追加していったの 
でアルゴリズムに無駄が多くなりましたが， 
改良するなどしてご愛用ください。 






2 E 加 h 


2F00h 


300 Oh 


3D00h 

3FFFh 


I スト 1 DREAM ダンプ リス 




3 5 16 4 
B 9 D F F 


9 0 0 0 8 
4 2 2 2 3 

0 0 D 0 7 
2 2 4 2 2 

E 21 0 0 
4 5 4 2 2 

0 0 5 0 E 
2 2 4 2 2 

F F 2 0 9 
4 4 5 2 7 

0 0 4 0 1 
2 2 4 2 6 

D 4 0 D D 
4 5 2 0 4 

0 0 8 9 0 
2 2 2 2 2 


888852 F26F3 
666466 B 7102 


DDDDC94C033 

2220347420c 

DDDDEDDE403 
22226 CCF220 

DDDD2023E40 
222230 F1F42 

DDDDFE8A1E6 
2222A 3213 F4 

DDDDF0B0D5E 
22221413 B3F 

DDDDEFE03F5 

2222E1FCCA3 

DDDDD2AA331 
2222 CE1D0C0 

DDDD0D11 033 
22220 C3320C 


3CC 248888 eb 
A 20 IF 66662 A 


71C2FDDDD00 
B 7531222222 

C2A82DDDD0B 
3330E 222224 

ECCEDDDDDD0 
6333 c 222202 

A0E51DDDDD3 

37703222225 

C228EDDDDD0 
• 33326222222 

C000DDDDDD9 
6315 c 222224 

39EECDDDDD0 
7B3F 3222222 

D2CFEDDDDD4 
EC 317222224 

08080808080 
00112233445 
0 0 0 0 
33333333333 


152 Oh! MZ 1986.10. 



























3700 

3708 

3710 

3718 

3720 

3728 

3730 

3738 

3740 

3748 

3750 

3758 

3760 

3768 

3770 

3778 


3480 20 
3488 20 
3490 20 
3498 20 
34A0 4E 
34A8 B7 
34B0 26 
34B810 
34C0 B7 
34C8 IF 
34D0 3C 
34D8 0D 
34E0 47 
34E8 FI 
34F0 IF 
34F8 02 


3400 

3408 

3410 

3418 

3420 

3428 

3430 

3438 

3440 

3448 

3450 

3458 

3460 

3468 

3470 

3478 


SUM ： 0C F7 F6 CC 3F 29 73 4C 


SUM: 8B 57 7F EB 3F 45 F6 68 


SUM ： BA 31 AC B5 BC C7 E8 D5 


SUM: 819D F214 CC A4 90 F0 


SUM ： AA F9 5B AA 7F 95 E4 94 


SUM ： D0 5C C8 E0 IE D5 EE CD 


SUM: 0D 0F DD 8E 3F 7A 3C F7 


CC 

38 

4E 

90 

DF 

4E 

BB 

0B 

E0 

1A 

A6 

IE 

A1 

F7 

69 

C2 


:2E 

B2 

FB 

F6 

2B 

89 

F6 

BF 

FE 

ID 

F4 

34 

F0 

36 

84 

06 

ED 


SUM：14 DC F9 FF 74 07 C6 D2 : FB 


8C 

74 

IB 

BD 

20 

9F 

79 

A5 

El 

9C 

F6 

DF 

2E 

D0 

02 

12 

6E 


14 

00 

00 

11 

9F 

FC 

23 

02 

0E 

A4 

81 

39 

AC 

B3 

44 

2C 

51 


:34 

68 

79 

7C 

68 

68 

68 

DB 

5D 

BB 

9B 

05 

9F 

40 

9E 

AE 

Cl 



3328 

3330 

3338 

3340 

3348 

3350 

3358 

3360 

3368 

3370 

3378 


SUM: B6 

3300 30 
3308 2B 
3310 20 
3318 38 
3320 2B 


82 

A2 

CA 

3B 

EB 

C9 

D5 

24 

IF 

29 

CD 

73 

F4 

48 

6F 

78 

DC 


73 

6D 

98 

19 

DD 

96 

98 

3C 

AD 

14 

04 

E4 

45 

D6 

88 

E3 

EE 


SUM: 

3100 

3108 

3110 

3118 

3120 

3128 

3130 

3138 

3140 

3148 

3150 

3158 

3160 

3168 

3170 

3178 


SUM: 

3180 

3188 

3190 

3198 

31A0 

31A8 

31B0 

31B8 

31C0 

31C8 

31D0 

31D8 

31E0 

31E8 

31F0 

31F8 



3578 00 F51811 FE 3A 30 2C : B2 


SUM ： 33 CB B1 D4 50 09 DB A6 : 5D 

3500 C9 CD 8C 3130 06 ED 5B : D1 
3508 7C 3C 18 07 CD B2IF DA :4F 
3510 60 3C EB CD 6E 31 CD 63 : 23 
3518 38 CD 3B 34 CD EE IF CD : IB 
3520 EB 32 0610 C5 3E 3A CD :3D 
3528 F4IF 62 6B CD BE IF 3E :C8 
3530 3D CD F4IF CD DC 34 CD ： C7 
3538 EE IF Cl10 E7 ED 53 7C :81 
3540 3C CD El33 CD D6IF ED : CC 
3548 4B 87 3C 0B CD D0 IF FE : D3 
3550 20 CA C0 30 78 B120 F3 : 16 
3558 ED 5B 7C 3C 21 00 00 CD : EE 
3560 IE 20 18 B2 CD 8C 3138 :CA 
3568 091A FE 30 28 08 30 0C : BD 
3570 18 3A 3E 3518 06 21 01:05 


SUM ： EB 28 012C 56 3C 39 FC :07 

3380 2D 2D 2D 2D 2D 2D 2D 00 : 3B 
338818 53 CD E2IF 20 4144 : DE 
3390 52 53 3A 2B 30 20 2B 31 : B6 
3398 20 2B 32 20 2B 33 20 2B :46 
33A0 34 20 2B 35 20 2B 36 20 :55 
33A8 2B 37 20 2F 43 68 72 20 : EE 
33B0 63 6F 64 65 0D 2D 2D 2D : 2F 
33B8 2D 2D 2B 2D 2D 2D 2D 2D :66 
33C0 2D 2D 2D 2D 2D 2D 2D 2D :68 
33C8 2D 2D 2D 2D 2D 2D 2D 2D :68 
33D0 2D 2D 2B 2D 2D 2D 2D 2D ：66 
33D8 2D 2D 2D 2D 00 CD EE IF : 8E 
33E0 C9 CD E2IF 2D 2D 2D 2D :4B 
33E8 2D 2D 2D 2D 2D 2D 2D 2D :68 
33F0 2D 2D 2D 2D 2D 2D 2D 2D :68 
33F8 2D 2D 2D 2D 2D 2D 2D 2D :68 


30F0 63 36 FE 26 20 03 C3 7B : IE 
30F8 39 FE 4120 03 C3 DA 3A ：72 


THE SENTINEL 


DEDDDDD5D1 210 1D0 
2F2222C7C0500CC2 

DCDDDD04B0D812C0 
2322220462 E 20512 

DEFDDDDF 27719 D00 
271222216 BBF0E32 

DA2DDDD 20 C5F 5710 
23E2222E03E1EBF2 

D0DDDDDD 400402 F0 
20c 2222 C274C 8412 

DD4DDDD90A0C0D40 
2222222 C230C0EC2 

DD8DDDDF0F1 517 CF 
22222221712 F0BC1 

DD8DDDDEDE 910152 
2202222 E6BCED0FE 


4DF 518 D 51811545 F 
2C1EE2EEE1D867D1 

DFE0E 7732 C1A31C1 
21E47BB 253 c 2563 c 

F1D0CA53D170F49D 
ICC 031 E1E 833160 oc 

2D719C3D72A 02013 
EC 32832 EB29CE 211 

D 730199831 DAD 809 
c 06828012 ECCC600 

F6D0D188C85F 7308 
1CC0412C31C1C622 

11 F148E1925D82D7 
CF104CBE80DC173B 

DOE 9970218 CDC11A 
C0EC0B2422DC3661 


0000BF4047DCD403 
22226610 F5C3CF3F 

00A42CB6D25EFD00 
223663 C2C3D71C21 

00F2035CFFFA1FEF 
22170726 1A13C2F1 

002F4AB1BF45DE34 
22E623CEB1FDC 31 F 

00D 30574 D1D936AD 
22C62E04CCCC1F1C 

0095E26DCDD1A01E 
22c 624047 C3D11D2 

0002FD0A9DEC5F1E 
22056 E0F0733C1C3 


A7063D 6631552405 
30066 C3DCF7FE70F 

061AD7ADC0FCD34C 
002DC3CC 3963 C72F 

6FA0C9DCC923F5E0 
15 F 231 c 370771721 

1C000DC22E7A4CF7 
33107 c 372343 F 662 

F32D 262207 F0D3EB 
971c 33734410 C44C 

D2B011AC052DF001 
C3C80D330FE 3122 F 

CC3EEDF 710 D5BA23 
33233 C1023C6B370 

92B0C8B8F090DF56 
87C433E 31 CC7C160 

0808080808080808 

8899AABBCCDDEEFF 

6666666666666666 

3333333333333333 


1C924D208A 447024 
1377CC1013C670E2 

0715D00DCCD00DD0 
0866 C33C33C220C2 

02C4F0ECAA5FF1F5 
02671 c 3377366216 

1D5E43B0223E4044 
2F66FC1622F 472 C7 

7045DF5ACC2F05D9 

4147C11D33C126C6 


-6FE 3167 BE 6737 

60230 D12AACD4907 
D1E60C3BD23C76C5 


5 0 
F 0 


D0DFCD261 
c 2318 c 307 


F 12 3 F 
16 7C1 


0808080808080808 

8899AABBCCDDEEFF 

5555555551 

333333333( 


DF6F16FDFECFDE2B 
C1D1C71C1 431 C7E2 

DEDBD5D 220841 ADA 
3ECBC653E27FD3C3 

ED3D04AAD41D133E 

3C3C043AC62CE332 

F411EF0D02DDC1A3 

13E0710C07D33E85 

1CDED2D90F0E6DA2 
CDC7DE3C 26030 CC5 

DD6DFD5FA342D984 
CCED lc 6.13623 CC 04 

BF 094934 F5EA5FE1 
711 CFC6F1629E1F4 

241 FDF9D22FD5ECF 
3FC1C16CE56CDE 31 

0808080808080808 

8899AABBCCDDEEFF 

2222222222222222 

3333333333333333 


DF300CD 08024436 A 
El 525630 1F50F609 

74D031DD28D8DD2D 
B6E1 565001 E1CC3C 

4B2EB82E 097 CC4BC 
053F 56562 CB30BE3 

FDECFD 3201 CFE8D8 
FE 63134720373 1C7 

19DE2DB5E0FBF221 
2CC7E557F 2751332 

B11AD5C4FDBD4ECD 
EE33C 427105 E66BD 

51EC93050ED6BDD5 

DD63C426DFE05CCC 

52DF1162D7B0DF80 
E5C 70467 C0E2E13.1 

0808080808080808 

0011223344556677 

2222222222222222 

3333333333333333 


6 

5 


6 A E 0 3 3 
2 8 9 A 7 F 


8 F E F c 1 c 
E 2 F 13 0 3 

3 E 3 412 3. 
B 31 F 8 5 8 

9 18 D A D 2 

A D c c 2 E 2 


B 

5 

A 


3 7 E F 7 0 
F B 21 B 0 

8 A E 4 0 0 
113 c 4 0 

F F 2 D 0 1 

11 0 c 0 1 


8 14 0 111 
2 F F 3 F 1 0 


D D 0 8 B 0 

c c 212 0 

0 8 0 8 0 8 
8 8 9 9 A A 
7 7 7 7 7 7 
3 3 3 3 3 3 


BA9D3F2E2E9827BC 
46049 F6EE89F94E7 


2C427D 914600 DC21 
33235 c 2366701372 

A60A2CE2AADD8026 
902933462 D 603633 

DDEDFDFDC0F11AC5 
CC6CA02C 32623 D38 

CF9CFD91A330CF4A 
31631c 537042816 D 

840A4C81BDF5D8A1 
7F27F 3255 C16CBD3 

1DF1DAADD1240D6C 

2C12C73CE0E73C38 

DD2DDAF0EED503AD 
D3ED 321013 C6C1CC 

0ED0EC2F8FCC3ADC 
03C033E 33136 C1C3 

0808080808080808 

0011223344556677 

6666666666666666 

3333333333333333 


06F 68888868 
7D 966666666 


F4DDDDDDDDD 

27022222222 

035DDDDDDDD 

26622222222 

614 BDDDDDBD 
46622222222 

B2FDDDDDDDD 

27622222222 

013DDDDDDDD 

26622222222 

580DDDDDDDD 

46222222222 

B32DDDDDDDD 

24722222222 

005DDDDDDDD 

22622222222 


B 9 D E 8 A 
D 4 5 4 6 8 


4 0 5 B 0 4 
2 2 3 2 2 4 

4 2 B 0 1 B 
F 3 2 2 4 2 

7 B 0 7 B 0 
c 2 2 3 2 2 

5 0 4 B 0 3 
2 2 3 2 2 4 

9 1 B 0 9 B 

6 3 2 2 3 2 

2 B 0 6 B 0 
A 2 2 3 2 2 

6 0 3 B 0 2 
1 2 3 2 2 4 


5 F805A 3457 CC3034F - A 91F3AC897E91B35E 
9 1E792BAAFC509D18 - 5 5CF7C 「 -- t I I 


6 EF033FDE0F69EC07 

5 F320CD3FC10CE043 

c 8E 0033083387 DEE8 
4 3F520C03CD2BC3FC 

2 19ED033A9D93F93E 

3 B3F420C63C5F1C13 

B 367E3033AFE841AE 

6 C33F420CF1F1FF1F 

F 3358E703D604DF93 

4 0CE3F520C720C1C1 

3 03398 E803B1854FA 

1 20C23F 420522 Fell 

A 403385 E10DDE9D47 
c 520C03F22EC4CCF0 

A E 60334 BE109E7FD0 

2 F520C63F53CF 3 1C2 


-B3E66B 0834 A 


c 869D8F 712 AA46C80 
5 70 CC 2173 Br: 丨 ；— : 


-D 2 6 6 0 3 3 


A A 879153 CD23AAD20 
E C23C3B18C 302 DC3C 

0 A7638DAD208B0C03 

1 3BF19C1C101E230C 

3 EA80D8290DCC01DC 
8 F11CCC0C3C3307C3 

A A83B7F87EC68D2C6 
8 131312173377 C337 

6 1F0E8EC4B 0221162 

4 E8CF3F3E1 6220072 

F B30A1A485ACCEEA3 
4 1C 213161 ID 333322 

2 98E7CCA38F46FC24 
6 C3FB80D 231671330 


ディスクモニタ DREAM 153 




























CB 47 E5 
1815 CB 
3A 18 0C 
D2 3A 18 
E5IF CB 
18 02 3E 
FI IF 3E 
11 0D 00 
CD EE IF 
00 42 61 
00 3F 3F 
DA 60 3C 
9F 31 06 
2811 04 
07 B9 CA 
El18 EA 


3C00 

3C08 

3C10 

3C18 

3C20 

3C28 

3C30 


3A80 
3A88 
3A90 
3A98 
3AA0 
3AA8 
3 ABO 
3AB8 
3AC0 
3AC8 
3AD0 
3AD8 
3AE0 
3AE8 
3AF0 
3AF8 


SUM ： 4D E31C 9E C7 44 DD D4 


SUM ： BE 5F A3 31 DB 38 CA 3C 


SUM ： 8A D8 5148 0A DD A2 84 :08 


SUM ： 1A 58 F3 D3 33 5A A113 :79 


A6 

E9 

87 

C5 

C2 

4F 

96 

84 

D1 

3B 

7C 

7A 

D0 

18 

7F 

B7 

F9 


THE SENTINEL 


SUM: B6 3A 84 2176 38 D9 5C :78 


SUM ： FI 

3E00 A5 
3E08 65 
3E10 0D 
3E18 A5 
3E20 67 
3E28 20 
3E30 73 
3E38 20 
3E40 A5 
3E48 74 
3E50 6E 
3E58 65 
3E60 A5 
3E68 70 
3E70 73 
3E78 6E 


SUM: 9E 3A 08 DD 99 67 E7 0D : B1 


SUM ： 50 00 00 00 00 00 00 00 : 50 


SUM ： E3 A2 CC F5 4D B135 6C : E5 



3C38 

3C40 

3C48 

3C50 

3C58 

3C60 

3C68 

3C70 

3078 


SUM: 851C 9F E6 79 6C 55 22 


SUM ： 7D 76 27 A8 Cl F3 22 AF 


SUM ： 84 2E B0 78IB DF 23 6F :66 


SUM ： 

3800 

3808 

3810 

3818 

3820 

3828 

3830 

3838 

3840 

3848 

3850 

3858 

3860 

3868 

3870 

3878 


1AE1DAD1FE 31 DD85 
F3C1C2CE1663C02F 

FA15AEFF193C5C78 

1C103311C6T8E0B1 

11586444 D21DFEE3 
F102D0FFC44C1472 

D 58718 DDE 900615 c 
c 02512 CC7C007EE3 

08FB 3704913 FA 034 
024C07221D 732026 


4 D 8 3 3 6 6 
4 5 0 B F 3 9 


2 1 c D 5 8 c 

3 0 3 D E 13 

F 6 D 0 7 c 7 
A 0 4 0 B 3 5 

0 51 E 3 3 A 
3 E 2 5 2 3 3 

0 c D D D 3 5 
c 3 D D D 3 F 

3 8 8 F 3 5 8 
c 7 2 A 2 0 0 

F A 81 D 8 0 
12 2 E D 3 2 

4 c 5 512 7 
c 3 B 0 0 5 B 

D 7 c 6 6 D 5 
c 5 7 0 5 E F 


100E85D 84080 1E70 
202F78E 26022 DDBB 

91182 Ac 7317108 ED 
3010 F33BC2B1 017 E 

70188 c 4361370707 
55E 21361 FE 242700 

D00F462A8DD71F08 

C00F08D13DD00A22 

C16EB1 358008 D11F 
310F320DF502FE0F 

55094 C8F80E5000E 
8EB1C 321207 D1B4F 

20DEA6E6E1DD9D08 

34E7C8B7B1D31E00 

800002 CB8C 070518 
70100335034 10E22 

0808080808080808 

0011223344556677 

BBBBBBBBBBB6BBBB 

3333333333333333 


9F02C4D 203874 AD2 
6177518435 FE2DB4 


00281B1DD37A0E5C 
4BE 25660 c 66353 C3 

0DD0DD21F512E80E 
0EC2CC 72166 EF057 

10A5032B4C28D6E2 
11360176 c 6610033 

E0A4F81FDC208C08 
E 0073344 c 6702317 

81 D 991 F00F1D 8461 
10c 623123660260 c 

90F2E 225037 1E340 
051746 E6C462FC02 

1047FDD73F00F380 
F0C52CC6C1 221023 

81 DF 919 E 0245 C88D 
12 C 1 53360 E 76522 c 

0808080808080808 

8899AABBCCDDEEFF 

BBBBBBBBBBBBBBBB 

3333333333333333 


5A9403B3E68F75F3 
C3B8C 610150348 EB 


D 243707 BEAFF 8292 
C2F3E 503599 A12B4 


D0FD63F804DD1EF7 
C 0 FCD 2112 FCCF317 

00E9DE1C8DE5D510 

02F1C7C07C21CFC7 

D1E1E5D085E36CDE 
017EEDC 07132 F0C6 

305A 0990836 E081F 
74E31F7272F722F1 

50FDA8D9FE0370F2 
607231021720 B21E 

C16D 618 F2D76AE4D 
620C2E21E0B17FFC 

9910 F952D6AFFED7 
63011 CFEC1 7117 C0 

67E87F-7D80F44FB8 

4502C1BC001FF131 

0808080808080808 

0011223344556677 

aaaaaaaaaaaaaaaa 

3333333333333333 


D 57A9F823DA 323412 
6 71BA56EA 211 DA225 


F 385E6FF515D500F0 
c 66A6263A666A 2262 

9 9351E0D 53210520 D 
1 66A6270A6762A724 

E 645820 E 59220558 D 
3 77A6726A6775A 660 

5 59539 EF5451D 5436 
D 66A6626A 6760 A 766 

B 47504495 E3025E46 

6 67A2476A6677A676 

5 030501459005599 F 
9 272A267A6226A666 

1 504556950544527 F 
8 A25A646A2677A 772 


B4446BE8A8 
lcl 8431200 


B 3 E A 5 2 
F 4 3 F 1 9 


ED 025805 F15E29D5 
6027A62A 6662760 A 

5488536542 c 81495 
7766A62A 7666667 A 

F 58302 D532C 80020 
6664270 A 67662272 

338B91B551F055F4 
6722266 A6662A664 

000B 95352731574 D 
2223267 A7664A672 

92E0E 395900 D5E31 
7762276 A6220A664 

E 0454954 E150 
226a 67672662 

FE 5050273 E226 
62A2A 27662775 

0808080808080808 

8899AABBCCDDEEFF 

DDDDDDDDDDDDDDDD 

3333333333333333 


15 8 2 
6 6 2 7 

c 4 6 

6 7 4 


E 020811 BA7B5480F 
A 721 B64CE4E123FB 


85038822 F80D 3855 
2A 266677662672 A6 

C565E870E 8552354 
4A 26267242 A674A6 

F502F80E045D4D50 
1A 27662624 A 660 A2 

2040E8594D 001850 
E 26242 A 6602266 A7 

D 91004502890085 D 
c 26722 A 2762726 A6 

185D4D55F88D 90005 
366660 A 666667627 

E 825280438852894 
6677762766677626 

D804F8995E84F0E0 

c 626662662666262 

0808080808080808 

0011223344556677 

DDDDDDDDDDDDDDDD 

3333333333333333 


0 

0 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
500000000000000 


0000000000000000 

0000000000000000 

0 0 0 0 0 0 0 0 


0 0 0 0 0 0 ¢ 


^0000000 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

w 


0 5 0 0 0 0 0^ 


0808080808080808 

8899AABBCCDDEEFF 

cccccccccccccccc 

3333333333333333 


65B2E1300 

90C76BD00 



428063000 
FDE 003000 


D0708D000 
cl 20 1C 000 

0C012E000 
3 3 10 0 0 0 0 0 

6790EE000 
C5F 033000 

128 Ac 2000 
F 31030300 

F110C 8000 
00F061C00 

8E94BD300 

23C670C00 

7F13DE000 

B1E0E3200 


5067D1D0D 499913 F 
EB01FDC 6276623 cl 

BD 08102 1F3E2E212 
6E02CBE 2166746 FE 

2F0F5D0D2597FD9D 
6F2FDE1DE 6652 C3C 

061E5199DC6D91B8 
531FDE13C 6605363 

0F1055D22C 0181 D3 
00E0CED 2362225 C6 

1FDE0D9DAFE00D5D 
1 FD 71 Die 96622 CFC 

511D81DFD3F 85050 
E0ED2DF1C 4666003 

03DF7514F0934F80 
41F7BECC1 267733 c 

0808080808080808 

8899AABBCCDDEEFF 

9999999999999999 

3333333333333333 


D1DE26C8F4D021A0 
DFDE 74831 CE132D0 

9D9D9FD1DDCEFF01 

3C3C61C45C33A122 

22C2429E2F40C039 
23234 ECF 31643603 

DADAFD0AFE306BD7 

C9C91C010EC065C5 

0DFD294C0D01AD0D 
3C1CEC 233032 DE1C 

0F1FD0D 0520 F09E9 
C1F1C 03643 C12C3C 

30DE944AEA300C0C 
C6C5C27DFAC 60353 

91F1FD113DFBD006 
32121363 1C15C706 

0808080808080808 

0011223344556677 

9999999999999999 

3333333333333333 


7 17B25E 883429 AD89 
4 FF0FD 3534128456 E 


8436C7C936CB0E76 

3FD11C86BE052E52 


661AC72E9CBE6A96 
E 49084 B04AA05A30 


63000638 F438F404 
01302 C131C131C20 

E 00683112 D112D4D 
33C11C33BC33BC7C 

06AFD09CDF9CDF50 
2CD5C 248 C148C160 

83F 51 EDD20DD2E3A 
1C1D 31 CC16CC1 553 

D05FFD 93029302 F0 
C2B19C 3132313212 

1ED4DF23ECC3EC 21 
31C6C 621332133 E2 

FD3A16D3B4D3B4DB 

9C12D0C116C116C6 

DF339E030AF3DAFF 

c 61113311 D 111 D14 

0808080808080808 

8899AABBCCDDEEFF 

8888888888888888 

3333333333333333 


3 CCAD297A30FB14BE 

1 7A544A 391250 C123 

c 071F0FD1F000CEF3 
0 3021CAC11 5027611 

9 086E36FF4CD622DC 
0 C208C0A2C 40433 F3 

2 3083085 1D016CC34 
F C21C12FFC 32433 C6 


FEC037DCC00FFFCA 
IF 315 B033C 24663 D 


F 

0 

5 

2 

A 

D 

D 


DepiECOJCSCOUEGiAcicF 


-76523156c 423361 

DF22FF8A2FF 401 
cl 32163 D 31450* 


6718 AA8F8500D9DD 
3F03F 3513 E250CEC 

IDE 0101 CED4C1FC3 
DC 32231 D4C 542131 


1A0747D18C 
48323 A2DA1 


57EFA18074 
F 0312 F32BC 

869BFD3AC7 

101B1C633B 

30AD1FDF1C 

10FCC1C173 

360CD192A0 
0217 CCCE 37 

8F4FDDFD9A 
36117 C1C33 

2CB4FD1242 

43CF17F303 

D25D4CDAD5 

E72CF3CACC 

7AB4D3FD04 

B3C2C81C0C 

0808080808 

BBCCDDEEFF 

7777777777 

3333333333 


154 Oh! MZ 1986.10. 


►僕は〇〇ソフトの始〇帝がにくい。囹ボン，囿ボン，圃ボン，□でロンして大三元なの 
に小三元混一対々和の倍満になってしまった。 北川和俊 （17) 青森県 


























THE SENTINEL 


V 


SUM ： 8A 4D F8 B9 814F 4A 9A : 3C 


リスト 2 DREAM ソース リスト 


0000 



1 

； -- 



3025 

CD 

E2 

IF 





84 

CALL #MPRNT 

0000 



2 

； s-os s 

YSTE 卜 

し ABEL 

3028 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

85 DM 

.. -••: db 

0000 



3 

; - 



$0D 










0000 



4 




302F 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 



5 

#COLD 

EQU 

1FFDH 

3036 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 



6 

#HOT 

EQU 

1FFAH 

303D 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 



7 

#VER 

EQU 

1FF7H 

3044 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 



8 

#PRINT 

EQU 

1FF4H 

304B 

2D 

20 

OD 







0000 



9 

IPRINTS 

EQU 

1FF1H 

304E 

20 

20 

44 

20 

49 

20 

53 

86 DM 

” DISK MONITOR ( DREAM > ，•： DB $ 

0000 



10 

#LTNL 

EQU 

1FEEH 

0D 










0000 



11 

#NL 

EQU 

1FBBH 

3055 

20 

4B 

20 

20 

4D 

20 

4F 



0000 



12 

#MSG 

EQU 

1FE8H 

305C 

20 

4E 

20 

49 

20 

54 

20 



0000 



13 

#MSX 

EQU 

1FB5H 

3063 

4F 

20 

52 

20 

20 

28 

20 



0000 



14 

#MPRNT 

EQU 

1FE2H 

306A 

44 

52 

45 

41 

4D 

20 

29 



0000 



15 

#TAB 

EQU 

1FDFH 

3071 

0D 









0000 



16 

#LPRNT 

EQU 

1FDCH 

3072 

20 

20 

20 

20 

20 

20 

20 

87 DM 

May. f 86 by H.Kanayama" : DB $0D 

0000 



17 

#LPTON 

EQU 

1FD9H 

3079 

4D 

61 

79 

2E 

20 

27 

38 



0000 



18 

#LPTOF 

KQU 

1FD6H 

3080 

36 

20 

20 

20 

62 

79 

20 



0000 



19 

#GETL 

EQU 

1FD3H 

3087 

48 

2E 

4B 

61 

6E 

61 

79 



0000 



20 

#GBTKY 

EQU 

1FD0H 

308E 

61 

6D 

61 

0D 






0000 



21 

#BRKEY 

EQU 

1FCDH 

3092 

2D 

2D 

2D 

2D 

2D 

2D 

2D 

88 DM 

u - ：DB 

0000 



22 

#IHKBY 

EQU 

1FCAH 

$0D: 

: $00 








0000 



23 

♦PAUSE 

EQU 

1FC7H 

3099 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 



24 

#BELL 

BQU 

1FC4H 

30A0 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 



25 

#PRTHX 

EQU 

1FC1H 

30A7 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 



26 

IPRTHL 

EQU 

1FBEH 

30AE 

2D 

2D 

2D 

2D 

2D 

2D 

2D 



0000 



27 

#ASC 

EQU 

1FBBH 

30B5 

2D 

2D 

0D 

00 






0000 



28 

#HBX 

EQU 

1FB8H 

30B9 

CD 

EE 

IF 





89 #DMHOT CALL #LTHL 

0000 



29 

#2HEX 

EQU 

1FB5H 

30BC 

AF 







90 

XOR A 

0000 



30 

#HLHEX 

EQU 

1FB2H 

30BD 

32 

6E 

3C 





91 

LD (#MFLG),A 

0000 



31 

#PHEK 

BQU 

1F94H 

30C0 

CD 

E2 

IF 





92 #GKTCOM CALL #MPRNT 

0000 



32 

#PSEK« 

EQU 

1F91H 

30C3 

40 

3E 

00 





93 

DM ”H>":DB $00 

0000 



33 

#MOH 

EQU 

1F8EH 

30C6 

CD 

49 

31 





94 IGCOM1 CALL #GTKY 

0000 



34 

[HL] 

HQU 

1P81H 

30C9 

1A 







95 

LD A 9 (DE) 

0000 



35 

#GETPC 

EQU 

1F80H 

3 OCA 

FE 

IB 






96 

CP $1B 

0000 



36 

fDRDSB 

EQU 

2000H 

30CC 

28 

F2 






97 

JR Z, 参 GETCOM 

0000 



37 

#DWTSB 

EQU 

2003H 

30CE 

CD 

74 

31 





98 

CALL #PRMPT 

0000 



38 

#CSR 

EQU 

2018H 

30D1 

DA 

C0 

30 





99 

JP C,#GBTCOM 

0000 



39 

#SCRN 

EQU 

201BH 

30D4 

1A 







100 

LD A t (DE) 

0000 



40 

#LOC 

EQU 

201EH 

30D5 

13 







101 

INC DB 

0000 



41 

#FLGET 

EQU 

2021H 

30D6 

FB 

4C 

20 

03 

C3 

BD 

31 

102 IF 

A="L" THEN JP 參 LOAD 

0000 



42 

#RDVSW 

EQU 

2024H 

30DD 

FE 

24 

20 

03 

C3 

AF 

35 

103 IF 

A 二••拿，， THEN JP #SAVE 

0000 



43 

#SDVSW 

EQU 

2027H 

30E4 

FB 

44 

20 

03 

C3 

01 

35 

104 IF 

A=.，D" THEN JP #MDMP 

0000 



44 

#WIDCH 

EQU 

203CH 

30EB 

FE 

46 

20 

03 

C3 

63 

36 

105 IF 

A="F” THEN JP #FCOM 

0000 



45 

#ERROR 

EQU 2033H 

30F2 

FE 

26 

20 

03 

C3 

7B 

39 

106 IF 

THEN JP #CLCT 

0000 



46 

-WORK AREA --- 

30F9 

FE 

41 

20 

03 

C3 

DA 

3A 

107 IF 

A="A，，THEN JP #IN8T 

0000 



47 

#USR 

BQU 

1F7EH 

3100 

FB 

54 

20 

03 

C3 

B1 

38 

108 IF 

A=，，T" THEN JP #TBL? 

0000 



48 

#DVSW 

BQU 

1F7DH 

3107 

FE 

56 

20 

03 

C3 

36 

39 

109 IF 

A="V" THEN JP #CDV 

0000 



49 

#LPSW 

EQU 

1F7CH 

310E 

FB 

3F 

20 

03 

C3 

B5 

37 

110 IF 

A=，，？" THEN JP #ASK 

0000 



50 

#KBFAD 

EQU 

1F76H 

3115 

FE 

50 

20 

03 

C3 

29 

38 

111 IF 

A="P" THEN JP #LPT 

0000 



51 

#STKAD 

EQU 

1F6CH 

311C 

FE 

4D 

20 

03 

C3 

08 

38 

112 IF 

A=，.M，. THEN JP #MONJ 

0000 



52 

参 DIRNO 

EQU 

1F67H 

3123 

FE 

43 

20 

03 

C3 

64 

35 

113 IF 

A="C" THEN JP #DCNT 

0000 



S3 

#DTBUF 

EQU 

1F64H 

312A 

FB 

57 

20 

03 

C3 

DF 

3B 

114 IF 

A= ,, W , THEN JP #WSIZ 

0000 



54 

#FATBF 

EQU 

1P62H 

3131 

FE 

48 

20 

03 

C3 

00 

3D 

115 IF 

A="H" THEN JP #HBLP 

0000 



55 

#DIRPS 

BQU 

1F66H 

3138 

FK 

21 

20 

03 

C3 

6A 

38 

116 IF 

A= n ! M THEN JP #RTRN 

0000 



56 

fFATPOS 

；EQU 

1F5BH 

313F 

FB 

51 

20 

03 

CD 

FA 

39 

117 IF 

A= M Q M THBN CALL #DIRP 

0000 



57 

#DSK 

EQU 

1F5DH 

3146 

C3 

C0 

30 





118 JP 

#GETCOM 

0000 



58 

♦WIDTH 

EQU 

1F5CH 

3149 








119 ； - 


0000 



59 

； —— LABEL I 

JND - 

3149 

ED 

5B 

76 

IF 




120 #GTKY 

LD DE,(#KBFAD) 

0000 



60 

; - 



314D 

CD 

D3 

IF 





121 

CALL #GBTL 

0000 



61 

；DISK 

READ,EDIT & ARRANGE MONITOR 

3150 

C9 







122 

RET 

0000 



62 


< 

DREAM ) 

3151 








123 ；— 


0000 



63 

; - 



3151 

CD 

21 

20 





124 #YNKY? CALL #FLGET 

0000 



64 

START 

EQU 

$3000 

3154 

FB 

59 






125 

CP "Y" 

0000 



65 


OFFSET $D000-STAHT 

3156 

28 

06 






126 

JR Z f YKY 

3000 



66 


ORG 

START 

3158 

FE 

4E 






127 

CP M N M 

3000 



67 




315A 

28 

04 






128 

JR Z f NKY 

3000 ED 

73 

6C 3C 

68 

参 DMON 

LD 

(*SPBF),SP 

315C 

18 

F3 






129 

JR #YNKY? 

3004 3A 

6E 

3C 

69 


LD 

A,(#MFLG) 

315E 

B7 







130 YKY 

OR A 

3007 B7 



70 


OR 

A 

315F 

C9 







131 

RET 

3008 C2 

B9 

30 

71 


JP 

NZ,#DMHOT 

3160 

37 







132 NKY 

SCF 

300B 32 

70 

3C 

72 


LD 

(*FFLO) f A 

3161 

C9 







133 

RET 

300E 32 

71 

3C 

73 


LD 

(#RFLO),A 

3162 








134 ； - 


30113E 

10 


74 


LD 

A,16 

3162 

F5 







135 #PLB 

PUSH AF 

3013 32 

7E 

3C 

75 


LD 

(#LBYT),A 

3163 

CD 

F4 

IF 





136 

CALL #PRINT 

3016 3A 

5C 

IF 

76 


LD 

A t (#WIDTH) 

3166 

CD 

EE 

IF 





137 

CALL #LTNL 

3019 FB 

50 


77 


CP 

$50 

3169 

CD 

C4 

IF 





138 

CALL #BELL 

301B 28 

05 


78 


JR 

Z,#CHT 

3160 

FI 







139 

POP AF 

301D 3E 

OS 


79 


LD 

A ， 8 

316D 

C9 







140 

RBT 

301F 32 

7B 

3C 

80 


LD 

(#LBYT) f A 

316E 








141 ； —— 


3022 



81 

; - 



316E 

3E 

0C 






142 #CLS 

LD A 9 $0C 

3022 



82 

#CRT 



3170 

CD 

F4 

IF 





143 

CALL #PRINT 

3022 CD 

6B 

31 

83 


CALL #CLS 

3173 

C9 







144 

RET 


►もう X 1 G をうらやましがることがなくなったのです。無改造のノーマル XI で（ビデオコ ニ V スク^一 心 DREAM 155 

ンバータ CZ -8 VC を使いますが）画面録画できるようになりました。 CRTC の R 5 に10ぐら 
いを入れると録画できるのです。 杉浦豊 （18) 静岡県 


3F80 

3F88 

3F90 

3F98 

3FA0 

3FA8 

3FB0 

3FB8 

3FC0 

3FC8 

3FD0 

3FD8 

3FE0 

3FE8 

3FF0 

3FF8 


SUM: 


SUM ： B8 A1 E6 06 AA B8 FC FE : A1 


3E80 

3E88 

3E90 

3E98 

3EA0 

3EA8 

3EB0 

3EB8 

3EC0 

3EC8 

3ED0 

3ED8 

3EE0 

3EE8 

3EF0 

3EF8 


A5 A5 A5 
20 6D 6F 
20 63 61 
A5 A5 A5 
20 6C 69 
72 65 63 
57 20 A5 
A5 A5 20 
20 73 77 
30 2F 


34 

A5 

20 

20 

A5 

20 

74 


A5 A5 
63 6F 
6C 69 
A5 A5 
72 65 
6F 20 


A5 A5 
6E 69 
6C 6C 
A5 A5 

73 74 

74 
A5 
77 
69 
38 
A5 
6D 
73 


A5 
74 
0D 
A5 
20 
6F 72 
A5 A5 
69 64 
74 63 
30 0D 
A5 A5 
6D 61 
74 0D 
A5 A5 A5 
74 75 72 
53 2D 4F 


A5 A5 
6F 72 
5120 
A5 A5 
64 69 
79 0D 
A5 A5 
74 68 
68 20 
48 20 
A5 A5 
6E 64 
2120 
A5 A5 
6E 20 
53 0D 



3F00 

: A1 

3F08 


3F10 

:28 

3F18 

：28 

3F20 

: 3A 

3F28 

：28 

3F30 

： C9 

3F38 

: 15 

3F40 

:55 

3F48 

:8A 

3F50 

: D2 

3F58 

：70 

3F60 

:28 

3F68 

: FF 

3F76 

： 2A 

3F78 

：28 


: E0 

SUM ： 

:32 



CC04B8D 028703 D13 
5D84CE32A 87323 BB 


2 

7 


8D431B4215FF0D0 

637765776666300 


F 80304 B33D 224320 
6636265763777350 

400530 BC2D069AD0 
7236725675266430 

30461803 D8A0ED10 
6726662636226330 

5F0603ADD8DEFA80 

6626262356066553 

24A552DD8B32DDC0 

772667056277642c 

90DE6118BE250A03 

620676662277233c 

49899548 E444D200 
6766667626676730 


2129 D2DAB75CB875 -6 
6BB5DFF4F485C014 -8 

B 554215 AFDF8825D 
67a 276621 cl 22763 

325D 04602928 D842 
66a 22660 E1E 73677 

F050A064D0D5E339 

62a 32262 C0C 66466 


C100D450FFF8CC14 
66230672 1F1 62266 


E D 9 9 2 0 

E 3 2 2 7 2 


I 5 E 1 

> A- B 1 


01546 F05D0D8698A 

2663462 AC0C 64362 

A 4646310 F4F0DD3D 
2662466212122260 

D 06025424 DEA00D2 
0262467762 B 23337 






















THE SENTINEL 


A,(DB) 

DE 

N2 t PJl 

A.(DB) 

DB 

Z 


DB 

HL 



Z, 參 MEDIT 
tRBDIT 


OR A 
LD A,(DB) 

CP 

RBT NZ 
INC DB 

RET ；if A=";” then C 


CALL SPCUT 
JR C.DJ3 
CALL ASCCK 
JR Z.DJ1 
LD A v (DE) 

CP "/•• 

RBT Z 
CALL #2HEX 

JP C, 参 ERR14 ； JR C t DJ4 

JR DJ2 
LD A 9 (DE) 

INC DE 
LD (UL) t A 
INC HL 
JR 参 DTRD 

LD (HL),A 
RBT 

POP HL 
JP #ERR14 


CALL SPCUT 
JR C,LDJ1 
DEC DE 
LD A t $30 
LD (DB),A 
CALL #HLHEX 
JP C 9 #ERR13 
CALL #RBCCK 
JP C, 参 ERR14 

LD (#RECNO) f HL 
JR LDJ2 

LD HL,(#RBCNO) ；if no data 

LD (#RECN02) 9 HL 
EX DE,HL 
LD HL, ( 参 DTBUF> 

LD A f 1 
CALL fDRDSB 
JP C V #BRR 
LD A,1 
LD (#RFLG),A 
CALL #RDMP 
LD HL,(fRBCNO) 

CALL IRBCCK 
JR C,LDJ3 
INC HL 

LD (fRECNO) f HL 
JP #GBTCOM 


PUSH HL 
PUSH DE 
EX DB t HL 
LD HL,$4FF 
OR A 
SBC HL.DE 
POP DE 
POP HL 
RBT 


LD DB,(#DTBUF) 

CALL #CLS 
CALL #RDMP1 
LD (#DTBUF2) f DK 
LD A,(#LBYT) 

IF A=16 THEN RET 
CALL #MPRNT 

DM [SPACE] =half ，【〇 R 】 =return" :DB 


CALL #GETKY 

IF A：$20 THEN JR W40 

IF A=$0D THEN RET 

JR DMPKY1 
EX DE.HL 
LD DE,(#DTBUF2) 

OR A 
SBC HL,DE 
JR NZ 9 W40J1 
LD DE t (#DTBUF2) 

JR W40J2 
LD DE t (#DTBUF) 

LD A,$0C 
CALL #PRINT 
CALL #RDMP1 
JR DMPKY 


CALL #PRSW 
CALL *DISPR 
CALL 参 SCALE 
LD B,16 
PUSH BC 

LD IX I #HBCN02 
CALL #RBCN3 
LD A,E 
CALL #PRTHX 
LD A,”=” 

CALL 参 PRINT 
CALL 参 IDMP 
CALL #LTNL 


3290 Cl 
329110 E6 
3293 CD El33 
3296 CD D6IF 

3299 C9 
329A 

329A DD 7E 01 

329D CD BB IF 

32A0 CD P4IF 

32A3 DD 7E 00 

32A6 CD Cl IF 

32A9 C9 
32AA 

32AA CD B2IF 44 65 
32B163 65 3D 00 
32B5 3A 5D IF 
32B8 CD F4IF 
32BB C9 
32BC 

32BC CD AA 32 

32BF CD E2IF 3A 20 

32C5 CD B2IF 52 65 

32CC 72 64 20 4E 6F 

32D3 00 

32D4 DD 2178 3C 

3208 CD 9A 32 

32DB 3E 3D 

32DD CD F4IF 

32H0 D5 

32B1 B5 

32E2 CD 06 3C 

32B5 B1 

32E6 D1 

32E7 CD EE IF 

32EA C9 

32BB 

32EB CD El33 
32BB 3A 7B 3C 
32F1 FE 08 
32F3 CA 8A 33 
32F6 CD B2IF 
32F9 4144 52 53 2E 
♦A +B +C +D +E +F • 

3300 30 20 2B 3120 

3307 20 2B 33 20 2B 
330K 2B 35 20 2B 36 
3315 37 20 2B 38 20 
331C 20 2B 4120 2B 
3323 2B 43 20 2B 44 

332A 45 20 2B 46 20 

332P 2F 20 43 68 61 

3336 63 74 65 72 20 

333D 64 65 0D 

3346 2D 2D 2D 2D 2D 


3347 2D 2D 2D 
334E 2D 2D 2D 
3355 2D 2D 2D 
3350 2D 2D 2D 
3363 2D 2D 2D 
336A 2D 2D 2D 
3371 2D 2D 2D 
3376 2D 2D 2D 
337D 2D 2D 2D 
3384 2D 2D 2D 
338818 53 
338A CD E2IF 
338D 20 4144 
code*':DB $0D 
3394 30 20 2B 
339B 20 2B 33 
33A2 2B 35 20 
33A9 37 20 2F 
33B0 63 6F 64 
33B5 2D 2D 2D 

-••: DB $00 

33BC 2D 2D 2D 
33C3 2D 2D 2D 
33CA 2D 2D 2D 
33DI 2D 2B 2D 
33D8 2D 2D 2D 
33DD CD EE IF 
33B0 C9 
33B1 

33Ei CD B2IF 
33E4 2D 2D 2D 

-••: DB $00 

33BB 2D 2D 2D 
33F2 2D 2D 2D 
33F9 2D 2D 2D 
3400 2D 2D 2D 
3407 2D 2D 2D 
340C 3A 7E 3C 
340F FE 08 
341128 24 
3413 CD B2IF 
3416 2D 2D 2D 
B 拿 00 

341D 2D 2D 2D 
3424 2D 2D 2D 
342B 2D 2D 2D 
3432 2D 2D 2D 
3437 CD BE IF 
343A C9 
343B 

343B CD B2IF 
3442 20 24 00 
3445 62 6B 
3447 CD BE IF 
344A 3A 70 3C 
344D B7 
344B 20 01 
3450 C9 
345121 00 40 

3454 E5 

3455 B7 

3456 ED 52 

3458 El 

3459 F5 

345A CC C4IF 
345D FI 
345E 28 91 

3460 DO 

3461 01 00 80 

3464 B5 

3465 09 

3466 01 00 01 

3469 B7 
346A ED 42 
346C B7 
346D ED 52 
346F Cl 

3470 F5 

3471 CC C4IF 
3474 FI 


POP BC 
DJNZ RDMPL 
CALL «UNDRL 
CALL fLPTOP 
RET 


276 

277 

278 

279 

280 

281 ； - 

282 *RECN3 

283 

284 

285 

286 
287 

289 #DVP CALL #MPRNT：DM "Device：：" :DB $00 


LD i 
CALL I 


A,(IX+1> 
• ASC 
CALL #PRINT 
LD A,(1X^0) 
CALL #PRTHX 
RBT 


LD A,(#DSK) 
CALL #PRINT 
RET 


63 6F 
2E 24 


290 

291 

292 

293 ； 

294 iDISPR CALL #DVP 

295 CALL #MPRNT：DM w ： M ：DB $00 

296 SIDPR1 CALL #MPRNT：DM "Record No • 拿 "： DB $00 


3A 2B 

2B 32 
34 20 
20 2B 
2B 39 
42 20 
20 2B 

72 61 
63 6F 

2B 2D 


297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 ISCALB 

310 

311 

312 

313 

314 


LD IX,#RBCN02 
CALL #RECN3 
LD A t M = M 
CALL ♦PRINT 
PUSH DB 
PUSH HL 
CALL 参 HDCNV 
POP HL 
POP DB 
CALL #LTNL 
RET 

CALL fUNDRL 

(#LBYT) 




Z,SJ1 
CALL 参 MPRNT 
DM "ADRS. : +0 +1 +2 +3 


♦5 +6 +7 +8 +9 


315 

316 


DM "/ Character code** :DB SOD 


2D 2D 2D 2D 
20 2D 2D 2D 
2D 2D 2D 2D 
2D 2D 2D 2D 
2D 2D 2D 2D 
2D 2D 2D 2D 
2D 2B 

2D 2D 2D 2D 
2D 2D 2D 2D 
00 


52 53 3A 2B 

3120 2B 32 
20 2B 34 20 
2B 36 20 2B 
43 68 72 20 
65 0D 

2D 20 2B 2D 

2D 2D 2D 2D 
2D 2D 2D 2D 
2D 2D 2D 2D 
2D 2D 2D 2D 
2D 00 


2D 2D 2D 2D 

2D 2D 2D 2D 
2D 2D 2D 2D 
2D 2D 2D 2D 
2D 2D 2D 2D 
2D 00 


2D 2D 2D 2D 

2D 2D 2D 2D 
2D 2D 2D 2D 
2D 2D 2D 2D 
2D 00 


44 75 6D 70 


318 

319 SJ1 

320 


JR SJ2 
CALL #MPHNT 

DM •• ADRS:+0 +1 +2+3 +4 +5 +6+7 /Chr 


322 SJ2 

323 

324 ； - 

325 fUNDRL 

326 


CALL #LTNL 
RET 


CALL #MPRNT 


327 

328 

329 

330 

331 


332 UDLJ 

333 

334 ; - 

335 IRECP 

336 

337 

338 

339 

340 

341 

342 RBCP 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 RCPJ 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 


LD A,(#LBYT) 
CP $08 
JR Z,UDLJ 
CALL #MPRNT 
*DM w - 


CALL IMPRNT : DM "Dunp $":DB $00 

LD HL.DE 
CALL 参 PRTHL 
LD A,(tFFLO) 

OR A 
JR NZ f RBCP 


OR , 
SBC 1 
POP I 
PUSH , 
CALL : 
POP . 
JR 


LD 

OR 


OR 

SBC 

POP 

PUSH 

CALL 

POP 


HL t B 
BC •拿 


AF 

Z, 参 BELL 


►私が考えるに次の XI の新製品は 16 ビットです。半年法則やら2年法則やらがありますが， 
次に出るのは 「 X 1 Hj になります。トーゼンこの r Hj は 「 HEXj の H でしようにつ！ 

佐藤仁 （17) 静岡県 


3174 
3174 1A 
317513 
3176 FB 
3178 20 
317A IA 
317B 13 
3170 FB 
317E C8 
317F 37 
3180 C9 
3181 1B 

3182 E1 

3183 IA 

3184 FE 
3186 CA 

3189 C3 
318C 
318C 1A 
3180 B7 
318E 28 

3190 FE 
3192 C0 
319313 
319418 

3196 37 

3197 C9 

3198 
3198 B7 
3199 1A 
319A FB 
319C C0 
319013 
319E C9 
319F 
319F CD 
31A2 38 
31A4 CD 
31A7 28 
31A9 IA 
31AA FB 
31AC C8 
31AD CD 
31B0 DA 
31B318 
31B5 IA 
31B613 
31B7 77 
31B8 23 
31B918 
31BB 77 
31BC C9 
31BD 
31BD 
31BD 
31BD CD 
31C0 38 
31C2 IB 
31C3 3E 
31C512 
31C6 CD 
31C9 DA 
31CC CD 
31CF DA 
31D2 22 
31D518 
3107 2A 
31DA 22 
31DD EB 
31DE 2A 
31B13E 
31E3 CD 
31B6 DA 
31E9 3H 
31BB 32 
31EE CD 
31F12A 
31F4 CD 
31P7 38 
31F9 23 
31FA 22 
31FD C3 
3200 

3200 E5 

3201 D5 

3202 EB 

3203 21 

3206 B7 

3207 ED 

3209 D1 
320A El 

3208 C9 
320C 
320C ED 

3210 CD 
3213 CD 
3216 ED 
321A 3A 
321D FB 
3222 CD 
3225 5B 
00 

322C 3D 
3233 5B 
323A 74 
3240 CO 
3243 FE 

3249 FB 
324E 18 

3250 EB 

3251 ED 

3255 B7 

3256 ED 
3258 20 
325A ED 
325E 18 
3260 ED 
3264 3B 
3266 CD 
3269 CD 
326C 18 
326E 
326K CD 
3271 CD 
3274 CD 
3277 06 

3279 C5 
327A DD 
327B CD 
32817B 
3282 CD 
3285 3E 
3287 CD 
328A CD 

3280 CD 


78 38 
8F 38 


8C 31 
17 

98 31 


B5IF 
64 3C 


30 

B2IF 
60 3C 
00 32 
64 3C 
76 3C 
03 

76 3C 
78 3C 

64IF 
01 

00 20 
66 3C 
01 

713C 
0C 32 
76 3C 
00 32 
04 


145 ； - 

146 #PRMPT 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 PJ1 

157 

158 

159 

160 
161 

162 ； - 

163 SPCUT 

164 

165 

166 

167 

168 

169 

170 SPJ 

171 

172 ; - 

173 ASCCK 

174 

175 

176 

177 


178 

179 ; 


SB 64IF 
6B 31 
6E 32 
53 7F 3C 
7B 3C 

10 20 01 C9 
B2IF 

53 50 4143 45 5D 

68 616C 66 20 2C 

43 52 5D 3D 72 65 

75 72 6E CD 00 

DO IF 

20 20 0218 07 
0D 20 01 C9 
FO 


52 

06 

5B 7F 3C 
04 

5B 64IF 
0C 

F4IF 
6E 32 
B4 


63 38 
BC 32 
EB 32 
10 

2178 3C 
9A 32 


F4IF 
DC 34 
EB IF 


180 #DTRD 

181 
182 

183 

184 

185 

186 

187 

188 

189 

190 DJI 

191 

192 DJ2 

193 

194 

195 DJ3 

196 

197 DJ4 ； 

198 ; 

200 #LOAD 

201 
202 

203 

204 

205 

206 

207 

208 

209 

210 

211 LDJ1 

212 LDJ2 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 LDJ3 

227 ； - 

228 tRBCCK 

229 

230 

231 

232 

233 

234 

235 

236 

237 ; - 

238 #RDMP 

239 

240 

241 

242 

243 

244 DMPKY 

245 


246 DMPKY1 

247 

248 

249 

250 W40 

251 

252 

253 

254 

255 

256 

257 W40J1 

258 W4CJ2 

259 

260 
261 

262 ； - 

263 #RDMP1 

264 

265 

266 

267 RDMPL 

268 

269 

270 

271 

272 

273 

274 

275 


156 Oh!MZ 1986.10. 


DNPRDNPECEEODPPP 

LICJLICRSRDPLCJJ 


E J T 
Dpu 
( so c 
I t 2 z E p 
A A z $ N D s 

drrpenrce 

LOJCRIJSR 





















THE SENTINEL 


3475 30 1C 

3477 CD B2IF 20 20 20 20 
”： DB $00 

347E 20 20 20 20 20 20 20 

3485 20 20 20 20 20 20 20 

348C 20 20 20 20 20 00 

3492 C9 

3493 CD B2IF 3A 20 20 52 

349A 65 63 6F 72 64 20 4E 

34A16F 2E 20 24 00 

34A6 62 6B 

34A8 B7 

34A9 ED 42 

34AB B5 

34AC 3A 73 3C 

34AF 6F 

34B0 26 00 

34B2 06 07 

34B4 CB 25 CB 14 

34B810 FA 

34BA 4D 

34BB 44 

34BC B1 

34BD 6C 

34BB 26 00 

34C0 B7 

34C1 09 

34C2 7C 

34C3 CD BB IF 

34C6 CD F4IF 

34C9 7D 

34CA CD Cl IF 

34CD AF 

34CB 32 57 3C 

34D13B 3D 

3403 CD F4IF 

3406 D5 

3407 CD 0D 3C 
34DA D1 

34DB C9 
34DC 
34DC D5 
34DD 3A 7E 3C 
34E0 47 
34E1 C5 
34B21A 
34B313 
34E4 CD Cl IF 
34B7 CD PI IF 
34BA 10 F6 
34BC 3B 2F 
34KK CD F4IF 
34F1 Cl 
34F2 D1 
34F31A 
34F413 

34P5 FE 20 30 02 3E 2E 
34FB CD F4IF 
34FE 10 P3 

3500 C9 

3501 

3501 CD 8C 31 
3504 30 06 
3506 ED 5B 7C 3C 
350A 18 07 
35CC CD B2IF 
350F DA 60 3C 

3512 BB 

3513 CD 6B 31 
3516 CD 63 38 
3519 CD 3B 34 
351C CD BE IF 
351F CD BB 32 
3522 0610 

3524 C5 

3525 3E 3A 
3527 CD F4IF 
352A 62 6D 
352C CD BE IF 
352F 3B 3D 
3531 CD F4IF 
3534 CD DC 34 
3537 CD EB IF 
353A Cl 

353B 10 B7 
3530 ED 63 7C 3C 
3541 CD El33 
3544 CD D6IF 
3547 ED 4B 87 3C 
354B 0B 
3540 CD D0 IF 
354F FE 20 
3551 CA C0 30 

3554 78 

3555 B1 

3556 20 F3 

3558 ED 5B 7C 3C 
3550 21 00 00 
355F CD IE 20 
356218 B2 
3564 

3564 CD 8C 31 

3567 38 09 
35691A 
356A FE 30 
356C 28 08 

3568 30 0C 
3570 18 3A 
3572 3B 35 
357418 06 
3576 21 01 00 

3579 F5 
357A 1811 
3570 FE 3A 
357E 30 2C 

3580 F5 

3581 D6 30 

3583 47 

3584 21 00 00 
358711 00 10 
358A 19 

358B 10 FD 

358D 22 87 3C 

3590 CD B2IF 

3593 44 65 6C 6179 20 63 

359A 6F 75 6B 74 65 72 3D 

35A1 00 

35A2 FI 

35A3 CD F4IF 

35A6 CD C4IF 

35A9 CD BB IF 

35AC C3 C0 30 

35AF 

35AF CD 8C 31 
35B2 3815 


364 JR NC.RCPJl 

365 CALL #MPRNT：DM 


366 RET 

367 RCPJ1 CALL #MPRNT：DM ": Record No- $ ": DB $00 


368 

369 

370 

371 

372 

373 

374 

376 RCPL 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 ； - 

399 #LDMP 

400 

401 

402 

403 LDLP1 

404 

405 

406 

407 

408 

409 

410 

411 

412 LDLP2 

413 

414 

415 

416 

417 

418 ； - 

419 #MDMP 

420 

421 

422 

423 MJP1 

424 

425 

426 MJP2 

427 MJP3 

428 

429 

430 

431 

432 MDMPL 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 DLYL 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 ； - 

459 #DCNT 

460 

461 

462 

463 

464 

465 

466 DCN 

467 

468 DC0 

469 

470 

471 DC1 

472 

473 

474 

475 

476 

477 

478 DCL 

479 

480 DCP 

481 

482 


LD HL.DE 
OR A 
SBC HL.BC 
PUSH HL 

LD A,(#QRPBF2) 

LD L,A 

LD H t $0O 

LD B,7 

SLA L：RL H 

DJNZ RCPL 

LD C t L 

LD B,H 

POP HL 

LD L.H 

LD H,$O0 

OR A 

ADD HL t BC 

LD A f H 

CALL IASC 

CALL 參 PRINT 

LD A V L 

CALL 参 PRTHX 

XOR A 


LD (#PLAG) V A 
LD A 


CALL IPRINT 
PUSH DE 
CALL HDCNV1 
POP DE 
RET 


； clu8ter groupe 


PUSH DE 
LD A,(#LBYT) 

LD B,A 
PUSH BC 
LD A,(DB) 

INC DE 
CALL 参 PRTHX 
CALL IPRINTS 
DJNZ LDLP1 
LD A,”/" 

CALL .PRINT 
POP BC 
POP DE 
LD A,(DE) 

INC DE 

IF A<$2e THEN LD 
CALL IPRINT 
DJNZ LDLP2 
RET 


CALL SPCUT 
JR NC.MJPl 
LD DE,(#MADR) 
JR MJP2 
CALL 参 HLHEX 
JP C t #ERR13 
EX DE V HL 
CALL ICLS 
CALL 参 PRSW 
CALL #RECP 
CALL *LTNL 
CALL #SCALE 
LD B v 16 
PUSH BC 
LD A,-：" 

CALL IPRINT 
LD HL f DB 
CALL IPRTHL 
LD A 
CALL tPRINT 
CALL #LDMP 
CALL tLTNL 
POP BC 
DJNZ MDMPL 
LD («HADR) 9 DB 
CALL #UNDRL 
CALL #LPTOF 
LD BC f (fDELAY) 
DEC BC 
CALL #GBTKY 
CP $20 
JP Z,IGETCOM 
LD A,B 
OR C 
JR* N2 f DLYL 
LD DE, ( 参 MADR} 

LD HL v $0000 
CALL #LOC 
JR MJP3 


CALL SPCUT 
JR C,DCN 
LD A,(DB) 

CP $30 
JR Z,DC0 
JR NC,DC1 
JR OCR 
LD A t $35 
JR DC1 
LD HL f $0001 
PUSH AF 
JR DCP 
CP $3A 
JR NC f DCR 
PUSH AF 
SUB $30 
LD B,A 
LD HL,$0000 
LD DE 9 $1OO0 
ADD HL f DE 
DJNZ DCL 

LD <#DELAY>,HL 

CALL IMPRNT 

DM M Delay counters' •: DB $00 


483 POP AF 

484 CALL IPRINT 

485 CALL #BBLL 

486 CALL #LTNL 

487 DCR JP fGETCOM 

488 ; - 

489 #SAVE CALL SPCUT 

490 JR C.SAVBl 


35B4 IB 

35B5 3B 30 

35B712 

35B8 CD B2IF 

35BB DA 60 3C 

35BB CD 00 32 

3501 DA 64 3C 

35C4 22 7A 3C 

35C718 06 

3509 2A 78 3C 

35CC 22 7A 3C 

35CF 3A 713C 

35D2 B7 

35D3 C2 F3 35 

3506 CD C4IF 

35D9 CD E2IF 4E 6F 20 64 

$0D：$00 

35K0 61 74 6120 74 6F 20 

35E7 77 72 69 74 65 20 21 

35EE 0D 00 

35F0 C3 C0 30 

35F3 CD C4IF 

35F6 CD B2IF 57 72 69 74 

35FD 65 20 24 00 

3601 DD 2178 3C 

3605 CD 9A 32 

3608 3E 3D 

360A CD F4IF 

360D CD 06 3C 

3610 CD E2IF 20 69 6E 20 

3617 24 00 

3619 DD 217A 3C 
3610 CD 9A 32 

3620 3E 3D 
3622 CD F4IF 

3625 AF 

3626 32 57 3C 
3629 2A 7A 3C 
362C CD OD 3C 

362F CD E2IF 3A 28 59 2F 

3636 4E 29 3F 00 

363A CD 5131 

363D CD 62 31 

3640 38IE 

3642 BD 5B 7A 3C 

3646 2A 64IF 

3649 3B 01 

364B CD 03 20 

364E DA 66 3C 

3651 CD B2IF 43 6F 6D 70 

3658 6C 65 74 65 20 21 0D 

365F 00 

3660 C3 CO 30 

3663 

3663 CD 8C 31 
3666 3810 
36681A 
366913 
366A CD B8IP 
3660 DA 60 3C 
3670 CD CA 36 
3673 DA 64 3C 
3676 32 72 3C 

3679 CD 8C 31 
367C DA 85 36 
ta RKT 

367F 2189 3C 
3682 CD 9F 31 
368516 00 
3687 3A 72 3C 
368A 32 73 3C 

3680 5F 
368E 06 07 
3690 CB 23 
3692 CB 12 
369416 FA 
3696 21 00 40 

3699 3B 80 
369B CD 00 20 
369B DA 66 3C 
36A13E 01 
36A3 32 70 3C 
36A6 CD 63 38 
36A9 CD D136 
36AC CD 19 37 
36AF CD EB IF 
36B2 3A 72 3C 
36B5 CD CA 36 
36B8 38 07 
36BA 3C 

36BB 32 72 3C 
36BE CD D6IF 
3601 2100 40 
36C4 22 7C 3C 
3607 C3 C0 30 
36CA F5 
36CB 47 
36CC 3E 09 
36CB 90 
36CF FI 
36D0 C9 
36D1 

36D1 CD E2IF 47 72 6F 75 

36D8 70 65 3D 00 

36DC 3A 73 3C 

36DF F5 

36He CD BB IF 

36E3 CD F4IF 

36E6 CD E2IF 3A 20 43 6C 

36ED 75 73 74 65 72 20 4E 

36F4 6F 2E 24 00 

36P8 06 03 

36FA FI 

36FB CB 27 

36FD 10 FC 

36FF F5 

3700 CD Cl IF 

3703 CD B2IF 2D 24 00 

3709 FI 

370A C6 07 

370C CD Cl IF 

370F CD EE IF 

3712 CD 63 37 

3715 CD EB IF 

3718 C9 

3719 

3719 01 00 80 
371C 21 00 40 
371F B5 

3720 09 
372144 4D 
3723 2189 3C 

3726 7B 

3727 El 

3728 B7 


491 

492 

493 

494 

495 

496 

497 

498 

499 

500 SAVB1 

501 

502 SAVE2 

503 

504 

505 

506 


DEC DB 
LD A v $30 
LD (DE),A 
CALL #HLHBX 
JP C V #ERR13 
CALL IRKCCK 
JP C,#BRR14 
LD (*RECN03) 9 HL 
JR SAVE2 
LD HL 9 (IRECN02) 

LD (#RECN03),HL 
LD A,(#RFLG) 

OR A 
JP NZ t SVJ 
CALL IBELL 

CALL #MPRNT:DM M No data to write !"：DB 


507 JP IGETCOM 

508 SVJ CALL IBELL 

509 CALL IMPRNT：DM w Write $DB $00 

510 LD IX,#RKCN02 

511 CALL 9RECN3 

512 LD A •": w 

513 CALL »PRINT 

514 CALL #HDCNV 

515 CALL #MPRNT：DM M in $ M :DB $00 

516 LD IX,#RBCN03 

517 CALL #RECN3 

518 LD 

519 CALL IPRINT 

520 XOR A 

521 LD (IFLAG) t A 

522 LD HL •( 参 RECN03) 

523 CALL HDCNV1 

524 CALL #MPRNT：DM M ： (Y/N)? n ：DB $00 

525 #SV? CALL 参 YNKY? 

526 CALL *PLB 

527 JR C f 8VR 

528 SVY LD DE, 《 #RECN03> 

529 LD HL,(fDTBUP) 

530 LD A»1 

531 CALL IDWTSB 

532 L JP C, 參 ERR 

533 CALL #MPRNT：DM "Complete !DB $0D:$00 


534 SVR JP IGBTCOM 

535 ； - 

536 #FCOM CALL SPCUT 

537 JR C f #FIND 

538 LD A,(DB) 

539 INC DE 

540 CALL #HEX 

541 JP C t #ERR13 

542 CALL 参 GRPCK 

543 JP C,#ERR14 

544 LD (#GRPBF),A 

545 CALL SPCUT 

546 JP C,#FIND ；if no search da 

547 LD HL t *SRCBF 

548 CALL #DTRD 

549 #FIND LD D t |0O 

550 LD A f (#ORPBF) 

551 LD (#QRPBF2) t A 

552 LD E V A 

553 LD B t 7 

554 fSFTCR SLA E 

555 RL D 

556 DJNZ 参 SFTCR ； DB=top recno 

557 FINDL LD HL,#CLWK 

558 LD A f $80 

559 CALL #DRD9B ；read 8clst $6000-$E000 

560 JP C,#BRR 

561 LD A,1 

562 LD (IPPLG) 9 A 

563 CALL 参 PRSW 

564 CALL #DISPG 

565 CALL #SRCH 

566 CALL #NL 

567 LD A,(»QRPBF) 

568 CALL IGRPCK 

569 JR C,FDLJ 

570 INC A 

571 LD (#GRPBF) f A 

572 CALL #LPTOF 

573 FDLJ LD HL V $4O00 

574 LD («MADR),HL 

575 JP IGETCOM 

576 IGRPCK PUSH AF 

577 # LD B,A 

578 LD A f 9 

579 SUB B 

580 POP AF 

581 RBT 

582 ; - 

583 iDISPG CALL IMPRNT:DM ” Groupe= ": DB $00 

584 LD A t (*GRPBF2) 

585 PUSH AF 

586 CALL IASC 

587 CALL 参 PRINT 

588 CALL IMPRNT: DM ： Cluster No • 拿”： DB $00 


589 

590 

591 SSFT 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 ； - 

604 #SRCH 

605 

606 

607 

608 

609 

610 
611 
612 


LD B t 3 
POP AF 
SLA A 
DJNZ SSFT 
PUSH AF 
CALL 參 PRTHX 

CALL #MPRNT：DH ••- $":DB $00 

POP AF 

ADD A ••07 

CALL IPRTHX 

CALL #LTNL 

CALL #PDT 

CALL »LTNL 

RBT 


LD BC»#SRCL ； ' rea Bize to search 

LD HL,#CLWK ；data buffer 

PUSH HL 
ADD HL 9 BC 

LD C,L ;end of area size 

LD HL t #SRCBF 
LD A 9 (HL) 

POP HL 
OR A 


デイスクモニタ DREAM 157 


> 僕は破鹿してしまうではないか。うちで W 段使う屯話代の2年3力月分をたった1力；】 
で使ってしまった。それも2力月半だから， 6年分を使ってしまったのだ。パソコン通信 
てなんて恐ろしいんだ。 NTT の バカ ヤロー！ 大畑利夫 U 6> 茨城 
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3729 C8 
372A 1189 3C 
372D 1A 
372E B7 
372F 28 20 

3731 BE 

3732 28 09 

3734 23 

3735 E5 

3736 B7 

3737 ED 42 

3739 El 
373A C8 
373B 18 KD 
373D 13 
373B 23 
373F E5 

3740 2189 3C 

3743 23 

3744 B7 

3745 ED 52 

3747 El 

3748 28 02 
374A 18 El 
3740 22 813C 
374F 18 DC 

3751 D5 

3752 C5 

3753 CD 9A 37 

3756 Cl 

3757 D1 

3758 CD CD IF 
375B CA C0 30 
375E 2A 813C 
376118 C7 
3763 

3763 CD E2IF 53 65 6172 

376A 63 68 20 64 6174 61 

3771 3D 20 00 

37741189 3C 

3777 D5 

37781A 

3779 B7 
377A 28 09 
377C 13 

377D CD Cl IF 

3780 CD FI IF 
378318 F3 

3785 D1 

3786 3K 2F 
3788 CD F4IF 
378B 1A 

378C B7 
378D C8 
378B 13 

378F FB 20 30 02 3E 2B 
3795 CD F4IF 
379818 FI 
379A 

379A CD C4IF 
3790 2A 813C 
37A0 2B 
37A111 00 40 
37A4 B7 
37A5 ED 52 
37A7 01 00 01 
37AA 11 00 00 
37AD 22 83 3C 
37B0 B7 
37B1 ED 42 
37B3 38 03 
37B513 
37B618 F5 
37B8 3A 72 3C 6F 
37BC 26 00 
37BE 06 07 
37C0 CB 25 

3702 CB 14 
37C410 FA 
3706 19 
3707 3E 24 
3709 CD F4IF 
37CC 7C 

37CD CD BB IF 
37D0 CD F4IF 

3703 7D 

3704 CD Cl IF 
3707 2A 83 3C 
37DA 7D 

37DB CD Cl IF 

37DE CD FI IF CD FI IF 

37B4 C9 

37E5 

37B5 CD 63 38 

37B8 CD AA 32 

37EB CD E2IF 3A 20 00 

37F1 CD 04 39 

37F4 3A 713C 

37F7 B7 

37F8 C4 C5 32 

37FB 3A 70 3C 

37FE B7 

37FF C4 D136 

3802 CD D6IF 

3805 C3 CO 30 

3808 

3808 CD F7IF 
380B 7C 
3800 FE 20 
380E 28 07 
3810 3E 01 
3812 32 6B 3C 
381518 06 
3817 2120 38 
381A 22 5310 
3810 C3 8E IF 
3820 21 FA IF 
3823 22 5310 
3826 C3 CO 30 
3829 

3829 3A 6F 3C 
382C B7 

382D 28 06 
382F AF 

3830 1158 38 
383318 OD 

3835 F5 

3836 AP 

3837 CD DC IF 
383A DA 58 3C 
3830 FI 

383E 2F 
383F 114E 38 
3842 32 6F 3C 
3845 CD C4IF 


613 


RET Z 

3848 

CD 

B5 

IF 





746 


614 

LP0 

LD DE f iSRCBF 

384B 

C3 

C0 

30 





747 


615 

LP 

LD A,(DE) 

384B 

4C 

59 

54 

20 

4F 

4E 

20 

748 

ONM 

616 


OR A 

3855 

21 

0D 

00 







617 


JR Z.IFND 

3858 

4C 

50 

54 

20 

4F 

46 

46 

749 

OFM 

618 

LP1 

CP (HL) 

385F 

26 

21 

0D 

00 






619 


JR Z t J1 

3863 








750 

• 

620 


INC HL 

3863 

3A 

6F 

3C 





751 

#PRSW 

621 


PUSH HL 

3866 

32 

7C 

IF 





752 


622 


OH A 

3869 

C9 







753 


623 


SBC HL.BC 

386A 








754 

； - 

624 


POP HL 

386A 

AP 







755 

♦RTRN 

625 


RET Z 

386B 

32 

6F 

3C 





756 


626 


JR LP0 

386E 

32 

6B 

3C 





757 


627 

J1 

INC DE 

3871 

ED 

7B 

6C 

3C 




758 


628 


INC HL 

3875 

C3 

FD 

IF 





759 


629 


PUSH HL 

3878 








760 

•_ 

630 


LD HL,#SRCBF 

3878 

13 







761 

•MBDIT 

631 


INC HL 

OR A 

3879 

CD 

B2 

IF 





762 


632 


387C 

DA 

64 

3C 





763 


633 


SBC HL,DE 

387F 

13 







764 


634 


POP HL 

3880 

CD 

9F. 31 





765 


635 


JR Z,J2 

3883 

CD 

18 

20 





766 


636 


JR LP 

3886 

3E 

06 






767 


637 

J2 

LD (IFINDBF),HL 

3888 

6F 







768 


638 


JR LP 

3889 

CD 

IE 

20 





769 


639 

#FND 

PUSH DE 

388C 

C3 

C6 

30 





770 


640 


PUSH BC 

388F 








771 

； - 

641 


CALL #FDISP 

388F 

13 







772 

♦REDIT 

642 


POP BC 

3890 

13 







773 


643 


POP DE 

3891 

13 







774 


644 


CALL #BRKEY 

3892 

CD 

B5 

IF 





775 


645 


JP Z,#GETCOM 

3895 

DA 

C0 

30 





776 


646 


LD HL,(#FINDBF) 

JR LP0 

3898 

13 







777 


647 

648 


3899 

389C 

2A 

D5 

64 

IP 





778 













649 

#PDT 

CALL #MPRNT:DM "Search data= ":DB $00 

389D 

5F 







780 





389E 

16 

00 






781 





38A0 

19 







782 


650 


LD DE,#SRCBF 

38A1 

D1 







783 


651 


PUSH DE 

38A2 

CD 

9F 

31 





784 


652 

PDLP1 

LD A,(DE) 

38A5 

CD 

18 

20 





785 


653 


OR A 

38A8 

3B 

06 






786 


654 


JR Z,PDJ1 

38AA 

6F 







787 


655 


INC DE 

38AB 

CD 

IE 

20 





788 


656 


CALL IPRTHX 

38AB 

C3 

C6 

30 





789 


657 


CALL IPRINTS 

38B1 








790 


658 


JR PDLP1 

38B1 

CD 

22 

39 





791 

#TBL? 

659 

PDJ1 

POP DE 

38B4 

CD 

49 

31 





792 


660 


LD A,"/” 

38B7 

13 

13 

13 





793 


661 


CALL #PRINT 

38BA 

13 

13 






794 


662 

PDLP2 

LD A t (DE) 

OR A 

38BC 

CD 

8C 

31 





795 


663 


38BF 

38 

10 






796 


664 


RET Z 

38C1 

IB 







797 


665 


INC DE 

38C2 

3B 

30 






798 


666 


IF A<$20 THEN LD A/ 

38C4 

12 







799 


667 


CALL #PRINT 

38C5 

CD 

B2 

IF 





800 


668 


JR PDLP2 

3808 

38CB 

DA 

22 

64 

60 

3C 

IF 





801 











670 

#FDISP 

CALL 参 BELL 

38CE 

CD 

C4 

IF 





803 


671 


LD HL,(#FINDBF) 

38D1 

CD 

2C 

39 





804 

TBLC2 

672 


DEC HL 

38D4 

CD 

49 

31 





805 


673 


LD DK,#CLWK 

OH A 

38D7 

13 

13 

13 





806 


674 


38DA 

13 

13 






807 


675 


SBC HL,DE 

38DC 

CD 

8C 

31 





808 


676 


LD BC,$01O0 

LD DE,$0000 

38DF 

38 

ID 






809 


677 


38E1 

IB 







810 


678 

FLP 

LD (IFNDBF2),HL ;relative address 

38E2 

3E 

30 






811 


679 


OR A 

38H4 

12 







812 


680 


SBC HL.BC 

38E5 

CD 

B2 

IF 





813 


681 


JR C,FJ1 

38E8 

DA 

64 

3C 





814 


682 


INC DE 

38EB 

22 

5E 

IF 





815 


683 


JR FLP 

38EE 

CD 

C4 

IF 





816 


684 

FJ1 

LD A, ( 参 GRPBF):LD L f A 

38F1 

CD 

E2 

IF 

53 

65 

74 

20 

817 


685 


LD H,$00 

38F8 

4F 

6B 

21 

20 

3A 

00 




686 


LD B f 7 

38FE 

CD 

04 

39 





818 

TBL 

687 

FLP2 

SLA L 

3901 

C3 

C0 

30 





819 

TBLH 

688 


RL H 

3904 








820 


689 


DJNZ FLP2 

3904 

CD 

22 

39 





821 

#DFTP 

690 


ADD HL V DE ;absolute recno 

3907 

DD 

21 

60 

IF 




822 


691 


LD A,"$” 

390B 

CD 

9A 

32 





823 


692 


CALL 毒 PRINT 

390E 

CD 

FI 

IF 





824 


693 


LD A t H 

3911 

CD 

FI 

IF 





825 


694 


CALL #ASC 

3914 

CD 

2C 

39 





826 


695 


CALL #PRINT 

3917 

DD 

21 

5E 

IF 




827 


696 


LD A，L 

391B 

CD 

9A 

32 





828 


697 


CALL #PRTHX 

391E 

CD 

EE 

IF 





829 


698 


LD HL f (#FNDBF2) 

LD A，L 

3921 

C9 







830 


699 


3922 








831 

;- -- 

700 


CALL #PRTHX 

3922 

CD 

E2 

IF 

44 

69 

72 

3D 

832 

.DTP 

701 


CALL #PRINTS：CALL #PRINTS 

3929 

24 

00 








702 


RET 

392B 

392C 

C9 







833 

834 













704 

#ASK 

CALL IPRSW 

392C 

CD 

E2 

IF 

46 

61 

74 

3D 

835 

#FTP 

705 


CALL #DVP 

3933 

24 

00 








706 


CALL #MPRNT:DM ": ”： DB $00 

3935 

C9 







836 


707 


CALL #DFTP 

3936 








837 

； - - 

708 


LD A,(#RFLG) 

OR A 

3936 

CD 

8C 

31 





838 

#CDV 

709 


3939 

DA 

60 

3C 





839 


710 


CALL NZ f SIDPRl 

393C 

1A 







840 


711 


LD A,(#FFLG) 

OR A 9 

393D 

FE 

41 






841 


712 


393F 

38 

13 






842 


713 


CALL NZ,#DISPG 

3941 

FE 

45 






843 


714 


CALL ILPTOF 

3943 

30 

0F 






844 


715 

716 


JP #GETCOM 

3945 

3948 

32 

CD 

5D 

IF 

32 





845 

846 










717 

#MONJ 

CALL #VER 

394B 

CD 

BE 

IF 





847 


718 


LD A，H 

394B 

CD 

C4 

IF 





848 


719 


CP $20 

3951 

C3 

C0 

30 





849 


720 


JR Z f MONJX 

3954 

C3 

64 

3C 





850 

DVE 

721 


LD A,1 

3957 








851 

; - 

722 


LD (#MPLG),A 

3957 

KD 

5B 

60 

IF 




852 

#DIRLD 

723 


JR MONJM 

395B 

21 

00 

40 





853 


724 

MONJX 

LD HL.HONJ2 

395E 

3E 

10 






854 


725 


LD (fMRJMP),HL 

3960 

CD 

00 

20 





855 


726 

HONJM 

JP #MON 

3963 

DA 

66 

3C 





856 


727 

MONJ2 

LD HL,#HOT 

3966 

AF 







857 


728 


LD (#MRJMP) f HL 

3967 

32 

70 

3C 





858 


729 

730 


JP #GBTCOM 

396A 

396B 

C9 







859 

860 











#DIRWT 

731 

#LPT 

LD A,(#LPSW2) 

396B 

ED 

5B 

60 

IF 




861 

732 


OR A 

396P 

21 

00 

50 





862 


733 


JR Z,ON 

3972 

3E 

10 






863 


734 


XOR A 

3974 

CD 

03 

20 





864 


735 


LD DE.OFM 

JR #PMS 

3977 

DA 

66 

3C 





865 


736 


397A 

C9 







866 


737 

ON 

PUSH AF 

397B 








867 

； - 

738 


XOR A 

397B 

CD 

57 

39 





868 

tCLCT 

739 


CALL #LPRNT 

397E 

21 

00 

40 





869 

•PLM 

740 


JP C,#PERR 

3981 

E5 







870 


741 


POP AF 

3982 

11 

00 

50 





871 


742 


CPL 

3985 

62 

6B 






872 


743 


LD DE.ONN 

LD (#LPSW2) f A 

3987 

B5 







873 


744 

#PMS 

3988 

13 







874 


745 


CALL 参 BELL 

3989 

01 

FF 

0F 





875 



CALL 参 MSX 

JP IGKTCOM 

DM "LPT ON ! ，.： DB $0D：$00 

DM "LPT OFF ! M ：DB $0D：$00 


LD A,(#LPSW2) 
LD (#LPSW) f A 
RET 


XOR A 

LD (#LPSW2),A 
LD (#MFLG) # A 
LD SP,(#SPBF) 
JP #COLD 


INC DE 
CALL IHLHEX 
JP C f #ERR14 
INC DE 
CALL #DTRD 
CALL #CSR ； Y=H 
LD A,$06 
LD L,A 
CALL #LOC 
JP #GCOMl 


X=L 


INC DE 
INC DE 
INC DE 
CALL #2HEX 
JP C,#GBTCOM 
INC DE 

LD HL,(IDTBUF) 
PUSH DE 
LD E, A 
LD D,$00 
ADD HL,DE 
POP DE 
CALL #DTRD 
CALL #CSR 
LD A,$06 
LD L，A 
CALL #LOC 
JP #OCOH1 


CALL #DTP 
CALL #GTKY 
INC DB：INC DB：INC DE 
INC DE：INC DE 
CALL SPCUT 
JR C.TBLC2 
DEC DE 
LD A 9 $30 
LD (DE),A 
CALL #HLHEX 
JP C f #ERR14 
LD (#DIRPS),HL 
CALL #BELL 
CALL #FTP 
CALL #OTKY 
INC DB：INC DE：INC DB 
INC DB：INC DE 
CALL SPCUT 
JR C,TBL 
DEC DE 
LD A • 拿 30 

LD (DE),A 
CALL tHLHEX 
JP C 9 #EKR14 
LD (#FATPOS),HL 
CALL *BELL 

CALL #MPRNT：DM "Set Ok! ： M ：DB 

CALL #DFTP 
JP 参 GETCOM 


CALL 参 DTP 
LD IX,#DIRPS 
CALL #RBCN3 
CALL #PRINTS 
CALL tPRINTS 
CALL #FTP 
LD IX,#FATPOS 
CALL #RECN3 
CALL #LTNL 
RET 


CALL 参 MPRNT:DM ,f Dir=$ M : DB $00 
RET 


CALL #MPRNT:DM ,f Fat=$ w ：DB $00 
RET 


CALL SPCUT 
JP C f #KRR13 
LD A 9 (DB) 

CP M A W 
JR C f DVE 
CP ” E" 

JR NC,DVE 
LD (#DSK),A 
CALL #DVP 
CALL #LTNL 
CALL «BBLL 
JP #GETCOM 
JP IERR14 


LD DE,(#DIRPS) 
LD HL,#CLWK 
LD A,$10 
CALL fDRDSB 
JP C,#ERR 
XOR A 

LD (#FFLG),A 
RET 


LD DE,(fDIRPS) 
LD HL t #CLWK2 
LD A s $10 
CALL #DWTSB 
JP C,#ERH 
RET 


CALL #DIRLD 
LD HL, 參 CLWK 
PUSH HL 


LD DE f # 
LD H t D ： 


CLWK2 
LD L 9 E 


PUSH HL 
INC DB 
LD BC,$0FFF 


$00 


158 Oh! MZ 1986.10. 


► シャープさんお願いですから 16 ビツト新型機を出すなら出す予定があると早目にいって 
ください。突然出されてもお金の都合がつきません。 鈴木満洲男 （37) 愛知県 



















3980 

398E 

3990 

3992 

3994 

3997 

3999 

3990 

399B 

39A0 

39A1 

39A3 

39A4 

39A5 

39A6 

39A7 

39A9 

39AA 

39AC 

39AD 

39AF 

39B0 

WBl 

39B3 

39B5 

39B7 

39BA 

39BD 

3901 

3904 

39C7 

39CE 

39D5 

39DC 

39DD 

39E4 

39EA 

39ED 

39F0 

39F2 

39F3 

39F6 

39F7 

39FA 

39FA 

39FD 

39FD 

39FD 

39FD 

39FD 

39PD 

39FD 

39FD 

39FD 

3AO0 

3A07 

3A0A 

3A0D 

3A10 

3A12 

3A14 

3A15 

3A16 

3A18 

3A1A 

3A1D 

3A1E 

3A1F 

3A22 

3A24 

3A26 

3A29 

3A2A 

3A2B 

3A2D 

3A2D 

3A2E 

3A2F 

3A30 

3A31 

3A32 

3A34 

3A35 

3A38 

3A3B 

3A3B 

3A3^ 

3A41 

3A44 

3A49 

3A4B 

3A4C 

3A4D 

3A4E 

3A51 

3A52 

3A53 

3A55 

3A57 

3A5A 

3A5C 

3A5D 

3A5E 

3A5F 

3A62 

3A63 

3A64 

3A66 

3A69 

3A6A 

3A6C 

3A6E 

3A6F 

3A71 

3A74 

3A75 

3A78 

3A7A 

3A7D 

3A81 

3A84 

3A85 

3A87 

3A88 

3A8F 

3A91 

3A98 

3A9A 

3AA1 

3AA4 

3AA7 

3AA9 

3AAB 

3AAD 

3AAF 


THE SENTINEL 



36 FF 
ED B0 
FD El 
DD B1 
1120 00 
06 7F 
DD 7E 00 
FB FF 
2817 
B7 

2810 

C5 

D5 

D5 

Cl 

FD B5 
D1 

DD E5 
El 

ED B0 

D1 

Cl 

FD 19 
DD 19 
10 E2 
CD C4IF 
CD 22 39 
DD 2160 IF 
CD 9A 32 
CD E2IF 

2D 20 43 6F 6C 6C 65 

63 74 69 6F 6E 20 66 

69 6B 69 73 68 20 21 

0D 

57 72 69 74 65 20 28 
59 2F 4E 29 3F 00 
CD 5131 
CD 62 31 
38 05 
F5 

CD 6B 39 
PI 

C3 C0 30 

CD 63 38 


CD E2IF 

46 69 6C 65 73 0D 00 
CD 57 39 
21 00 40 
1120 00 
0E 01 
06 7F 
B5 
7E 

FB FF 
2810 
CD 2D 3A 
El 

19 

CD C7IF 
26 3A 

10 EE 

CD D6IF 

C9 

B1 

18 F9 

D5 

7B 

23 

B7 

P5 

28 0D 
79 

CD Cl IP 
CD E2IF 

29 20 00 
0C 

18 08 

CD K2IP 

78 78 78 20 00 

16 0D 

7B 

23 

15 

CD F4IF 

7A 

B7 

20 F6 
3E 2E 

CD F4IF 

16 03 
7B 

23 

15 

CD F4IF 

7A 

B7 

20 F6 
CD FI IF 
7E 

FB 20 
28 0C 
F5 

3E 3B 
CD F4IF 
FI 

CD Cl IF 
18 07 
CD E2IF 
6E 70 77 00 
CD FI IF 
FI 

CB 47 
B5 

28 0511 CA 3A 1815 
CB 4F 

28 0511 CB 3A 18 0C 
CB 57 

28 0511 D2 3A 18 03 

11 D6 3A 
CD B5IF 
CB 77 

28 04 
3B 2A 
18 02 
3E 20 


876 

877 

878 

879 

880 
881 

882 CLRL 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 CLRJ 

900 

901 #WRT 

902 

903 

904 

905 

906 


LD iHL),|FF 
LDIB 
POP 
POP 


OR 

JR 

PUSH 

PUSH 

PUSH 

POP 

PUSH 

POP 

PUSH 

POP 

LDIR 

POP 

POP 

ADD 

ADD 

DJNZ 

CALL 

CALL 

LD 


IY 

IX 

DB,$0O20 
B,$7F 
A,(IX+0) 
$FF 

Z,#WHT 


； ICLWK2 
；#CLWK 


； IY=IY+$C020 

； IX=IX+$0020 


DE 
BC 

IY.DE 
IX，DE 
CLRL 
tBELL 
#DTP 

IX # #DIRPS 

#RECN3 

#MPRNT 

.Collection finish 


907 

908 ' 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 
96,7 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 


WRTJ 


DM "Write {Y/N)? H :DB $00 

CALL #YNKY? 

CALL #PLB 
JR C.WHTJ 
PUSH AP 
CALL 参 DIRWT 
POP AF 
JP #GBTCOM 


CALL IPRSW 
LD DB v $0000 
LD HL,(fFATBF) 

LD A,1 
CALL #DRDSB 
CALL #MPRNT 
DM M SyBtom M ：DB $0D:$0O 
LD C 9 $00 
CALL DRP1 
CALL IMPRNT 
DM "Files":DB $0D:$00 
CALL #DIRLD 
IDIRP2 LD HL V #CLWK 
LD DE V $0020 
LD C t $01 
LD B,$7F 
DRPL PUSH HL 

LD A,(HL) 

CP IFF 
JR Z.DRPR1 
CALL DRP1 
DRPL1 POP HL 

ADD HL 9 DB 
CALL #PAUSE 
DW DSPR 
DJNZ DRPL 
DRPR CALL #LPTOF 

DRPR1 POP HL 

JR DRPR 


DRP1 


DRP3 

DPL1 


PUSH DB 
LD A,(HL) 

INC HL 
OR A 
PUSH AF 

Z.DRP2 
A,C 
CALL #PHTHX 
,#MPRNT 
n ：DB $00 

INC C 
JR DRP3 
CALL #MPRNT 
DM "xxx ” ：DB $00 
LD 0,13 
LD A»(HL) 

INC HL 
DEC D 
CALL IPRINT 
LD A f D 


JR 

LD 


CALL < 
DM M ) 


OR 

JR 

LD 


DPL1 


LD 

LD 


CALL 参 PRINT 
D f 3 
A,(HL) 
INC HL 
DEC D 
CALL #PRINT 
A,D 


OR 


A 


NPW 

DPL3 


N2,DPL2 
CALL #PRINTS 
LD A,(HL) 

CP 拿 20 
JR Z.NPW 
PUSH AF 
LD A,";" 

CALL iPRINT 
POP AF 
CALL tPRTHX 
JR DPL3 
CALL IMPRNT 
DM M npw H :DB $00 
CALL #PRINTS 
POP AP 
BIT 0，A 
PUSH HL 

NZ THEN LD DE V «BIN：JR ATR 
BIT l t A 

NZ THEN LD DB f 9BAS：JR ATR 
BIT 2 f A 

NZ THEN LD DB 9 «ASC：JR ATR 
LD DB.8? 

CALL #MSX 
BIT 6,A 
JR Z.ATRl 


ATR2 

A •… 


3AB1 CD 
3AB4 CD 
3AB7 3E 
3AB9 CD 
3ABC El 
3ABD 11 
3AC0 19 
3AC17B 
3AC2 CD 
3AC5 CD 
3AC8 D1 
3AC9 C9 
3ACA 42 
3ACE 42 
3AD2 41 
3AD6 3F 
3ADA 
3ADA 
3ADA CD 
3ADD DA 
3AE0 2A 
3AE3 E5 
3AB4 CD 
3AE7 06 
3AE9 El 
3AEA 
3ABA 4E 
3AEB 0C 
3AEC 0D 
3ABD 28 
3AEF 04 
3AF0 23 
3AP1 E5 
3AF2 7E 
3AF3 B7 
3AF4 28 
3AF6 B9 
3AF7 CA 
3AFA 23 
3AFB 18 
3AFD 
3AFD El 
3AFE 18 
3B00 
3BO0 78 
3B0132 
3B04 CO 
3B07 21 
3B0A B5 
3B0B 11 
3B0E 01 
3B11 ED 
3B13 06 
3B15 El 
3B1611 
3B19 
3B19 7B 
3B1A 19 
3B1B FE 
3D1D 28 
3B1F FE 
3B21 CA 
3B24 04 
3D2518 
3B27 
3B27 78 
3B28 32 
3B2B 21 
3B2B 3A 
3B31 BE 
3B32 28 
3B34 D2 
3B37 
3B37 BO 
3B3B D5 
3B3C 
3B3C IA 
3B3D 13 
3B3B B7 
3B3F 28 
3B41 BE 
3B42 28 
3B44 38 
3B46 C3 
3B49 
3B4911 
3B4C DD 
3B4E 
3B4B 21 
3B51 DD 
3B54 DD 
3B56 B7 
3B57 28 
3B59 3D 
3B5A D6 
3B5B 28 
3B5D 47 
3B5E 11 
3B61 
3B6119 
3B6210 
3B64 
3B64 01 
3B67 D1 
3B68 E5 
3B69 ED 
3B6B El 
3B6C AF 
3B6D 77 
3B6E 18 
3B70 
3B70 21 
3B73 
3B73 01 
3B76 7E 
3B77 B7 
3B78 28 
3B7A FE 
3B7C 28 
3B7E ED 
3B8018 
3B82 
3B82 09 
3B8318 
3B85 
3B8511 
3B88 21 
3B8B 01 
3B8E ED 
3B90 CD 
3B93 CD 
3B96 CD 
3B99 57 
3BA0 59 
3BA6 


F4IF 
FI IF 
24 

F4IF 
0D 00 


Cl IF 
EE IF 


69 6E 00 
6173 00 
73 63 00 
3F 3F 00 


8C 31 
60 3C 
76IF 

9F 31 
00 


11 


07 

64 3C 
F5 


EA 


85 3C 
57 39 
00 40 

00 50 
00 10 
BO 
00 

20 00 


FF 

08 

00 

C4 3B 
F2 


86 3C 
86 3C 
85 3C 

03 

64 3C 
5B 76IF 


08 

F8 

P6 

64 3C 

00 50 
El 

00 40 
7B 00 
23 

17 


07 

20 00 


FD 

20 00 


B0 


DE 

00 40 
20 00 


08 

FF 

07 

B0 

FI 


EE 

00 40 
00 50 
00 10 
B0 

C4IF 
0A 3A 
E2IF 
72 69 74 
4E 29 


65 20 28 
3F 00 


1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
01 
02 


CALL iPRINT 
CALL #PRINTS 
LD 


A /. 窜” 
♦PRINT 


#BIN 
礞 BAS 
«ASC 


CALL 
POP HL 
LD DE t S00eD 
ADD HL f DE 
LD A,(HL) 
CALL #PRTHX 
CALL #LTNL 
POP DE 
RKT 

M Bin M ：DB $00 
>M ”Ba8，.：DB $00 
*M "Abc":DB )00 
IM "???":DB $00 


JP 

LD 


♦ INST 

CALL SPCUT 

C f IERR13 
HL f (IKBFAD) 
PUSH HL 
CALL 参 DTRD 
LD B,$00 
POP HL 
ICJ1 

LD C v (HL) 

INC C 
DHC C 
JR Z.1CJ4 
INC B 
INC HL 
PUSH HL 

ILP1 LD A,(HL) 


LD 

LD 


OR 

JR Z f ICJ 
CP C 
JP Z f #BR 
INC HL 
JR ILP1 
ICJ2 

POP HL 
JR ICJ1 
ICJ4 

A,B 

(HN) t A 
CALL *DIRLD 
LD HL 9 #CLWK 
PUSH HL 
LD DB V #CLWK2 
ld Bc v $ieee 

LDIR 

LD B t $$0 
POP HL 
LD DE,$0e2d 
IDL1 

LD A v (HL) 

ADD HL f DB 
拿 FP 


JR 

CP 


参 ALM 


JP 
INC B 
JR I0L1 
IDJ1 

LD A 9 B 
LD (#DH) r A 
LD HL,#DN 
IN) 


CP 


A •(参 I ; 

(HL) 

Z.IDJ 


IDJ2 

NC V #BRR14 

IDJ2 

LD DB,(«KBFAD) 
PUSH DE 
IDLP 

LD A f (DE) 

INC DB 
OR A 
JR Z,IDJ3 
CP (HL) 

JR Z.IDLP 
JR C,IDLP 
JP 睿 ERR14 
IDJ3 

LD DE,#CLWK2 
POP IX 

.3 

HL,*CLWK 


IDL3 


LD 

LD 

INC 

OR 

JR 


A , < 
IX 


IX 刪 


LD 

JR 


Z f ITJ22 
DEC A 
PUSH DB 
JR Z.ITJl 
LD B V A 
LD DB v $O02e 

ITL 

ADD HL 9 DE 
DJNZ ITL 
ITJ1 

LD BC 9 $O020 
POP DE 
PUSH HL 
LDIR 
POP HL 
XOR A 

(HL),A 
IDL3 

ITJ22 

LD HL V #CLWK 
ITLP2 

LD BC f $0020 
LD A,(HL) 

OR A 
JR Z,ITLPJ 
CP $FF 
JR Z,ITB 
LDIR 

JR ITLP2 
ITLPJ 

ADD HL,BC 
JR ITLP2 

ITB 

LD DB,ICLWK 
LD HL f #CLWK2 
LD BC t $10e0 
LDIR 

CALL tBELL 
CALL IDIRP2 
CALL #MPRNT 

DM "Write (Y/N)? M ：DB $00 


► この秋から年末にかけてシャープ vs NEC の戦いがありそうです。シャープは噂によると 
XI turbo の新機種が発売されるそうですし， NEC では88シリーズの新機種が？グラフィ 
ックが今までの88の32倍のスピードで価格は少I高くなるかも。楽しみですね。 

高橋治人（15> 山形 IU 


デイスクモニタ DREAM 1^9 









#HDCNV XOR A 

LD (#FLAG) f A 
LD HL,(*RBCN02) 
HDCNV1 PUSH HL 
LD B ,1 

LD A,H 

OR L 

JR Z f JMP1 

LD IX,#TBL 

LD B,5 

LOOP POP HL 


XOR 

LD 

LD 

INC 

INC 

OR 


E f (IX+O) 
D f (IX+1) 
IX 
IX 


PUSH HL 
SBC HL 9 DE 
JR C,JMP 
INC SP 
INC SP 
INC A 
JR LOOP1 


OR 

JR 


NZ,JMP1 
PUSH AF 
LD A v («FLAG) 
OR A 
JR Z,JMP3 
POP AF 
ADD A,$30 
CALL #PRINT 


LD 

LD 


( 参 FLAG)•A 
DJNZ LOOP 
POP HL 
RET 

POP AF 
JR JMP2 

DW 10000:1000:100 


1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 


#FLAG 


DS 


#PKRR LD SP,(#SPBF) 

LD A f 2 

JR *ERR 

#ERR13 LD A,13 

JR #ERR 

#ERR14 LD A,14 

#ERR CALL #ERROR 

JP fGBTCOM 

#SPBF DS 2 
#MFLG DS 1 
#LPSW2 DS 1 
#FFLG DS 1 
IRFLG DS 1 
#GRPBF DS 1 
#GRPBF2 DS 2 
#CLST2 DS 1 
#RECNO DS 2 
#RECN02 DS 2 
#RECN03 DS 2 
#MADR DS 2 
#LBYT DS 1 
#DTBUF2 DS 2 
#FINDBF DS 2 
#FNDBF2 DS 2 
#IN DS 1 

#DN DS 1 

♦DELAY DW $5000 
tSRCBF DS $60 


：10：1 



1141 CALL #YNKY? 

1142 CALL #PLB 

1143 JR C.ITR 

1144 ITY 

1145 CALL IDIRWT 

1146 CALL #MPRNT 

1147 DM .Arrange Ok!":DB $0D:$00 

1148 ITR 

1149 JP #GETCOM 

1150 ； - 

1151 #ALM 

1152 CALL #BELL 

1153 CALL #MPRNT 

1154 DM "Collect garbage ! DB $0D:$00 


1253 #SRCL EQU $8000 

1254 #MRJMP EQU $1053 

1255 #CLWK EQU $4000 

1256 #CLWK2 EQU $5000 

1257 ; - 


THE SENTINEL 


3D00 
3D00 
3D00 CD 
3D03 CD 
3D06 4C 
$0D 

3D0D A5 
3D14 64 
3D1B 70 
3D22 64 
3D29 68 
3D2B 24 
3D32 A5 
3D39 74 
3D40 65 
3D47 6F 
3D4D 44 
3D54 20 
3D5B 70 
3D62 79 
3069 68 
306B 43 
3D75 A5 
3D7C 70 
3D83 20 
3D8A 72 
3D90 46 
$0D 

3D97 20 
3D9E 68 
3DA5 20 
3DAC 61 
3DB3 73 
3DB6 26 
$0D 

3DBD A5 
3DC4 65 
3DCB 67 
3DD2 20 
3DD9 74 
3DDB 41 
3DE2 A5 
3DE9 61 
3DF0 72 
3DF7 0D 
3DF8 56 
3DFF A5 
3B06 69 
3E0D 74 
3B1154 
$0D 

3E18 A5 
3E1F 6E 
3K26 2B 
3E2D 20 
3E34 6F 
3K37 3F 
$0D 

3E3E A5 
3E45 69 
3B4C 75 
3E53 70 
3E5A 65 
3E5D 50 
3B64 A5 
3E6B 6E 
3B72 69 
3E79 2F 
3B7E 4D 
3K85 A5 
3K8C 69 
3B93 6C 
3E96 51 
3E9D A5 
3EA4 74 
3EAB 74 
3EB0 57 
3EB7 A5 
3EBE 74 
3BC5 63 
3BCC 30 
3ECE 48 
A5 


6E 31 
K2IF 
28 68 68 

A5 A5 20 
20 26 20 
20 72 65 
20 4E 6F 
0D 

28 68 68 
A5 A5 20 
65 20 69 
63 6F 72 
2E 68 68 
28 68 68 
A5 A5 20 
20 6D 65 
20 6164 
68 68 68 
28 6B 29 
A5 A5 20 
20 64 65 
63 6F 75 
20 73 65 
28 6E 20 


68 29 20 

72 65 61 
64 75 6D 

63 6F 72 
2B 68 68 

68 29 20 
77 72 69 
6E 20 72 

64 20 4E 
68 0D 

68 68 29 
64 75 6D 
6D 6F 72 
72 73 20 
0D 

20 A5 A5 
64 75 60 
6C 6179 
6E 74 65 
74 0D 
28 68 68 


1258 ORG START*f$D00 

1259 

1260 #HELP CALL 参 C し S 

1261 CALL #MPRNT 

1262 DM ” L<hhh) ••• read k dump record No.hhh" : DB 


1263 DM “$(hhh} ••• write in record No.hhh r, : DB $0D 


1264 DM "D(hhhh) •• dump memory adrs hhhh":DB $0D 


1265 DM ” C(n} . dump delay counter set" : DB $0D 


1266 DM M F(n (hh or ;+Chr...)) … search disk N :DB 


6F 72 20 3B 2B 43 
72 2E 2E 2E 29 29 
A5 A5 A5 20 73 65 
72 63 68 20 64 69 
6B 0D 

20 A5 A5 A5 A5 A5 1267 DM ••& 


directory garbage collect" : DB 


A5 A5 20 
63 74 6F 
6172 62 
63 6F 6C 
0D 

20 68 68 
A5 A5 20 
6E 67 65 
65 63 74 


64 69 72 
72 79 20 
6167 65 
6C 65 63 

2E 2E 2E 
6172 72 
20 64 69 
6F 72 79 


1268 DM "A hh... •• arrange directory":DB $0D 


1269 DM "V A-D - device switch":DB $0D 


20 412D 44 20 A5 
A5 A5 20 64 65 76 
63 65 20 73 77 69 
63 68 0D 

20 A5 A5 A5 A5 A5 1270 DM . change Dir•& Fat. position" : DB 


A5 A5 20 
67 65 20 
26 20 46 
70 6F 73 
6E 0D 

20 A5 A5 A5 A5 A5 


63 68 61 
44 69 72 
6174 2E 
69 74 69 


6D 


3BD5 
3EDC 
3EE3 73 
3EE6 21 
3EED A5 
3EF4 75 
3EFB 53 
3F012A 
0D 

3F08 20 
3F0F 75 
3F16 A5 
3F1D 30 
3F24 0D 
3F25 2A 
3F2C 64 
3F33 62 
3F3A A5 
3F3F 2A 
3F45 CD 
3F4B 11 
3F4B 19 
3F52 CD 
3F55 CD 
3F58 2A 
3F5F 28 
3F66 3D 
3F6D 43 
3F74 61 
3F7A 2A 
3F8169 
3F88 79 
3F8F 68 
3F92 2A 
3F99 6E 
3FA0 69 
3FA7 73 
3FAE 64 
3FB3 2A 
3FBA 5D 
3FC12B 
3FC8 64 
3FCF 61 
3FD4 2A 
0D：$00 
3FDB 6E 
3FE2 6D 
3FE9 3A 
3FF0 30 
3FF7 0D 
3FF9 C3 
3FFC 


A5 A5 20 

63 6174 
72 72 65 
6172 61 
72 0D 

20 A5 A5 
A5 A5 20 
74 65 72 
74 63 68 
6F 66 66 
20 A5 A5 
A5 A5 20 
74 6F 72 
6C 0D 
20 A5 A5 
A5 A5 20 
20 64 69 
6F 72 79 
20 A5 A5 
A5 A5 20 
68 20 73 
68 20 34 
0D 

20 A5 A5 
A5 A5 20 
616E 64 

74 0D 

20 A5 A5 
A5 A5 20 
72 6E 20 
2D 4F 53 
20 62 6C 

64 6174 
66 66 65 
A5 20 24 
2D 24 42 

20 72 65 
20 64 61 

75 66 66 
A5 20 24 
64IF CD 
E2IF 2D 
FF 00 

CD BE IF 
EE IF 
E2IF 
20 68 3D 
30 2D 46 
28 30 2D 
68 72 3D 

63 74 65 
20 64 69 
72 65 63 
20 74 6F 
68 0D 

2C 24 30 

65 66 66 

76 65 20 
65 6172 
6174 61 
20 5B 5B 
3D 63 6C 
68 5D 3D 
2E 2B 68 

64 72 73 
20 72 65 

20 66 72 
6F 6E 69 
4D 5A 3D 
30 2C 58 
00 

C0 30 


69 6E 64 
65 20 63 
6E 74 20 
6D 65 74 

A5 A5 A5 

70 72 69 
20 73 77 
20 6F 6E 
0D 

A5 A5 A5 
6D 6F 6E 
20 63 61 

A5 A5 A5 
6C 69 73 
72 65 63 
0D 

A5 A5 A5 
77 69 64 
77 69 74 
30 2F 38 

A5 A5 A5 
63 6F 6D 
20 6C 69 

A5 A5 A5 
72 65 74 
74 6F 20 
0D 0D 
6F 63 6B 

6120 62 
72 20 A5 
34 30 30 
46 46 46 

63 6F 72 
74 6120 
65 72 20 
00 

BE IF 
24 00 


1271 DM ••? 


1272 DM "P 


1273 DM ”M 


1274 DM "Q 


1275 DM "W 


1276 DM "H 


1277 DM ••! 


indicate current parameter*' : DB 


printer switch on/off’’：DB $0D 


call ••: DB $0D 


list directory":DB $0D 


width switch 40/80 M :DB $0D 


command list'* : DB $0D 


return to S-OS"：DB $OD ： $0D 


1278 DM M < block data buffer ••• $4000-$BFFF M :DB ! 


1279 DM ••拿 record data buffer •• $ f, :DB $00 


1280 

1281 

1282 

1283 

1284 

1285 


LD HL,(#DTBUF) : CALL #PRTHL 
CALL #MPRNT：DM DB $00 

LD DE.IOOFF 
ADD HL f DE：CALL IPRTHL 
CALL #LTNL 
CALL #MPRNT 


68 65 78 

29 2C 6E 
39 29 2C 
63 68 72 
72 0D 

72 3D 64 
74 6F 72 
70 20 68 

30 3D 69 
65 63 74 
6173 20 
63 68 20 
0D 

5B 68 68 

73 74 2E 
72 63 72 
68 5D 3D 
0D 

74 75 72 1290 DM "拿 return from monitor:MZ=J3000,X1=H H : DB ! 

6F 6D 20 
74 6F 72 
4A 33 30 
313D 52 

1291 JP #GETCOM 

1292 ; - - - 


1286 DM ••拿 h=hex(0-F) ,n=(0-9) .Chr^chracter" :DB $0D 

1287 DM ••拿 dir=directory top hhh":DB $0D 

1288 DM ••拿 $00 = inef fective as search data* 1 : DB $0D 

1289 DM ”* [[[hh]=cl»t.+h]=rcrd.+hh]=adrs -: DB $0D 


3BA6 CD 5131 
3BA9 CD 62 31 
3BAC 3813 
3BAE 

3BAE CD 6B 39 

3BB1 CD E2IF 

3BB4 4172 72 616E 67 65 

3BBB 20 4F 6B 21 0D 00 

3BC1 

3BC1 C3 C0 30 

3BC4 

3BC4 

3BC4 CD C4IF 

3BC7 CD E2IF 

3BCA 43 6F 6C 6C 65 63 74 

3BD120 67 6172 62 6167 

3BD8 65 20 21 0D 00 

3BDD 18 E2 

3BDF 

3BDF 

3BDF 3A 5C IF 
3BE2 FE 28 
3BE4 28 0D 
3BE6 FE 50 
3BB8 28 03 
3BEA C3 64 3C 
3BED 

3BED 06 08 
3BEF 3E 28 
3BF128 04 
3BF3 

3BF3 0610 

3BF5 3E 50 

3BF7 

3BF7 C5 

3BF8 CD 30 20 

3BFB Cl 

3BFC 78 

3BFD 32 7B 3C 

3C00 CD C4IF 

3003 C3 C0 30 

3C06 

3C06 AF 

3C07 32 57 3C 

3C0A 2A 78 3C 

3C0D E5 

3C0E 06 01 

3C10 7C 

3011 B5 

3C12 28 28 

3C14 DD 214D 3C 

3C18 06 05 

3C1A El 

3C1B AF 

3C1C DD 5E 00 

3C1F DD 56 01 

3022 DD 23 

3C24 DD 23 

3026 B7 

3C27 E5 

3C28 ED 52 

3C2A 38 05 

3C2C 33 

3C2D 33 

3C2B 3C 

3C2F 18 F5 

3C31 B7 

3032 20 08 

3C34 F5 

3C35 3A 57 3C 

3C38 B7 

3039 28 0F 

3C3B FI 

3C3C C6 30 

3C3E CD F4IF 

3C413E 01 

3043 32 57 3C 

3C4610 D2 

3C48 B1 

3049 C9 

3C4A FI 

3C4B 18 F9 

3C4D 

3C4D 10 27 E8 03 64 00 0A 
3054 00 01 00 

3057 00 
3C58 

3058 ED 7B 6C 3C 
3C5C 3K 02 

3C5E 18 06 
3060 3E 0D 
3C6218 02 
3C64 3E 0E 
3C66 CD 33 20 
3C69 C3 C0 30 
3C6C 

3C6C 00 00 
3C6E 00 
3C6F 00 
3070 00 
3C71 00 
3C72 00 
3C73 00 00 
3C75 00 
3C76 00 00 
3C78 00 00 
3C7A 00 00 
3C7C 00 00 
3C7E 00 
3C7F 00 00 
3081 00 00 
3C83 00 00 
3085 00 
3C86 00 
3C87 00 50 

3C89 00 00 00 00 00 00 00 

3090 00 00 00 00 00 00 00 

3C97 00 00 00 00 00 00 00 

3C9E 00 00 00 00 00 00 00 

3CA5 00 00 00 00 00 00 00 

3CAC 00 00 00 00 00 00 00 

3CB3 00 00 00 00 00 00 00 

3cba oo ee 00 00 00 00 00 

3CC1 00 00 00 00 00 00 00 

3CC8 00 00 00 00 00 00 00 

3CCF 00 00 00 00 00 00 00 

3CD6 00 00 00 00 00 00 00 

3CDD 00 00 00 00 00 00 00 

3CB4 00 00 CO 00 00 

3CE9 

3CE9 

3CE9 

3CE9 

3CB9 


5678901234567890123456789012345678 

5555566666666667777777777888888888 



01234567890123456789012345678901 

99999999990000000000111111111122 

11111111112222222222222222222222 

11111111111111111111111111111111 


160 Oh! MZ 1986.10. 


















THE SENTINEL 



Fuzzy BASIC 料理法〈 1 〉 


Fuzzy BASIC はマシン語/システム操作 
から構造化プログラミングまでサボートした 
風変わりな巳 ASIC ですから，これまでにな 
い料理法が考えられますね。とい5わけで今 
月からスタートの，制作者自身による Fuzzy 
BASIC 入門〜応用講座です。 


匕ブロクラミンクべの招待 


Takiyama Takashi 

瀧山孝 


今月から3回にわたり Fuzzy BASIC に 
ついて書かせていただくことになりました。 
マニュアルの補足や各命令の使用例といっ 
たことから，機能の強化，インタプリタの 
内部構造の説明，そしてできることならば 
オリジナル言語の作成方法ぐらいまで進め 
たらいいなあ，と考えていますので最後ま 
でおつきあい願います。今回のテーマは， 
「構造化」です。 

■ 

ブログラムを 
読みやすくする方法 


構造化されたプログラムが書けないのは 
BASIC 最大の弱点でした。構造化というの 
はプログラムを読みやすくする方法（とい 
うより概念）でして，具体的に並べてみる 
と GOTO 文を使わない， プログラムを モジ 
ユール化するといったことなどがあげられ 
ます。 

GOTO 文を使わないのは，処理があっち 
こっち飛んで俗にいう スパゲッティ になら 
ないようにするという意味があります。こ 
れを一般の BASIC で試みるのはやさしいこ 
とではなく，プログラムによっては不可能 
に近い場合さえあります。最;近やっと REPE 
AT 〜 UNTIL や WHILE 〜 WEND といった 
構造化ループ文やブロック IF 文 ( MZ -2500 
ぐらいにしかない）を持つ BASIC が現れて 
きていますが，あまり使われていないのが 
現状ではないでしょうか。 

REPEAT 〜 UNTIL や WHILE 〜 WEND ， 

ブロック IF 文なんてよくわからない，とい 
う人もいると思いますのでここでちょっと 
説明しておきましょう。 

REPEAT 〜 UNTIL と WHILE 〜 WEND 


はともにループを組むのに使う命令です。 
REPEAT と WHILE がループの始まりを示 
し， UNTIL と WEND はそれぞれループの終 
わりを示します0ループ文というと FOR 
〜 NEXT がありますが，使われ方としては 
似ているといってもよいでしよう。 

両ループの機能は日本語にしてみるとよ 
くわかります。 

REPEAT 〜 UNTIL は「ある条件が満た 
されるまで繰り返す」で， UNTIL の後ろに 
書かれた条件式力”真”であればループを抜 
けて次の处理に移り，“偽”であれば REPEAT 
の直後の命令に戻ります。つまり, REPEAT 
〜 UNTIL はループの終わりで条件判断をし 
ますから，最低でも1回はループ内を実行 
します。 

WHILE 〜 WEND は「ある条件が満たさ 
れている間繰り返す」で， WHILE の後ろに 
書かれた条件式が“真”ならばループのなか 
を実行し，“偽”であればループを抜け WEND 
の後ろの命令から実行します。ループの頭 
の WHILE のところで条件判断をしますか 
ら，条件によっては一度もループの中身を 
実行せずにスキップすることになります。 

ブロック IF 文は普通の IF 文を拡張した 
もので，処理を複数行にわたって記述でき 
ます。条件式が“真”であれば次の行からの 
命令を実行し，“偽”の場合は ELSE のあと 
の命令を実行します （ 1 行で書く IF 文と変 
わりありませんね）。 

通常の IF 文の影響範囲は1行に限られて 
いるわけです力 ? ，ブロック IF 文だとどこま 
でが範囲かわかりませんので最後に END 
IF 文を置きます。そうすると IF 文と END 
IF 文とで囲まれた部分がブロック構造にな 
りますから，プログラムが読みやすくなる 


のです。 

REPEAT 〜 UNTIL , WHILE 〜 WEND ， 
ブロック IF 文は Fuzzy BASIC にも装備さ 
れていますので，十分使いこなしてみてく 
ださい。 


BASIC の 
覇点を考える 

■ 

プログラムを モジュール 化するのは，た 
だ単に読みやすさを向上させる以外に（も 
ちろんそれも重要ですが)，あるプログラム 
の一部をほかのプログラムに流用できると 
いう利点があります。これは非常に便利な 
ことで，プログラム開発期間の短縮にもつ 
ながります。 

ほかの言語を見てみると， FORTRAN に 
しろ PASCAL にしろモジュール化（また 
は構造化）されたプログラムを書くことに 
重点が置かれているのがわかります。 

これに対して BASIC はといいますと，悲 
しいことにモジュール化をまるで考えてい 
ない文法になっています。せいぜい，まと 
まった処理を サブルーチン にするぐらいし 
か手がありません。しかも， サブルーチン 
をほかのプログラムに流用しようとすると， 
ほとんどの場合，変数名を付け換えなけれ 
ばならなくなるのです。 PASCAL にはまっ 
たく不要な手間です。 

これは，構造化する上でのもっとも重要な 
概念が BASIC には抜け落ちているからなの 
です。それは「局所変数」という概念です。 

BASIC では，すべての変数は グローバル 
なもので，あるモジュール内だけで有効な 
ローカル 変数が持てません。そのために引 
き起こされる数々の欠点は，特に少し大き’ 
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リスト 1 キャラクタによる BOX FULL 
(PROC 文を使わない場合） 


10 * 

20 h ラク？ - 二 B0XFULL 1 
30 * 

40 . 

50 cls ： X0-0 ： Y0-0 ： Xl-10 ： Yl-10 ： CH-A 

60 g 〇 s u b r BOX j 

各 0 end 


なプログラムを書こうとしたときに，煩雑 
な「変数管理」という形で姿を現します。 
FORTRAN 時代からの伝統とでもいいまし 
よう力、私たちはループ変数に I や J を多 
用します。サブルーチン内で変数 I を使って 
ループを組んでやったとしましよう。そし 
てこのサブルーチンは単独で使う限り正常 
に動作するとします。ところがメインルー 
チン側にも変数 I を使ったループがあり， 
その中でサブルーチンを呼び出すとすれば， 
見事に誤動作してくれることになってしま 
います。皆さんも何度か経験があることで 
しょラ。 

BASIC プログラムのなかで，唯一まとま 
った処理単位であるサブルーチンがこのよ 
うな状況では，構造化なんて最初から無理 
なのです。 

サブルーチンに対する不満はまだありま 
す。それは，サブルーチンに値を渡したり， 
逆にサブルーチンから値を受け取ったりが 
非常に面倒であるということです。これら 
を行うためには変数を介さなければなりま 
せん。 

例として任意の大きさ，任意のキャラク 
夕による BOX FUUL を4亍うサブルーチン 
を考えてみましよう。このサブルーチンへ 
は左上の座標と右下の座標とキャラクタの 
5つのパラメータを与えてやることになり 
ます。これは，サブルーチンを呼び出すた 
びに5つの変数へ値を代入してやる必要が 
あることを意味します（面倒くさいことで 
すね)。 

また，サブルーチンから値を受け取れな 
いということは，関数を記述できないこと 
と同義です。無理に関数を記述しようとす 
ると，やはり変数に値を入れてリターンし, 
メインルーチン側で再度変数を参照するよ 
うな形になります。 

このようなことを重ねると，プログラム 
が非常に見ずらいものとなり，デバッグや 
保守がたいへんです。 BASIC 最大の弱点が 
露見したといえるでしよう。 
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リスト2 キャラクタによる BOX FULL 
(PROC 文を使った場合） 

10 • 林訪林 ## 杯翁 #### 杯訪林########杯 
20 ' キャラク？ーニ 3 ル B0XFULL 2 

30 杯 ## 林 # 林 # 林林 ##### 林#林 

40 . 

50 c I s 

60 proc rBOXj, 0,8,10,18, "A" 

70 end 

80 . 

90 「BOXj 

100 for K-J to L 

110 locate I f N 

120 print string (H,K-I + 1) 

130 next 

140 ret proc 


主役 品盟 数文と 


さて，これら力す Fuzzy BASIC でどのよう 
に改善されているかに話を移しましょう（や 
っと出てきた)。 

この BASIC の立役者は，やはり PROC 文 
と FUNC 関数です。 

PROC 文は GOSUB 文を拡張したもので， 
サブルーチンへ 引数を与える こ とができま 
す0また， PROC 文で呼び出した サブルー 
チン 内で6っまでに限って局所変数を使う 
こともできます。 T . T 丄•の“：=”文と同じ 
機能ですから， T . T 丄.をご存じの方にはも 
うおわかりでしょう力 ? ，念のために ここで 
PROC 文の働きを説明しておきましょう。 

リスト1と2を見比べてみてください0 
先ほどのキャラクタによる BOX FULL を 
PROC を使わずに書いたものと，使って書 
いたものの違いがおわかりでしょう力、。 

リスト1の50行で行っている5つの代入 
文力 ? ，リスト2のほうではなくなっていま 
すね。これらは60行の PROC 文中に引数と 
して記述されています。プログラムがずい 
ぶんと見やすくなっているのがおわかりで 
しょう力、。これは PROC 文を使う利点のそ 
の1です。 

60行の PROC 文の動作を細かく見てみる 
ことにしましょう。 

最初にラベル 「 BOX 」 があり，対応する 
サブルーチンを呼び出すことを示していま 
す。このとき，局所変数に指定されている 
6っの変数（例では無指定ですのでデフォ 
ルトの I , J ， …… ， N ) の値は一時的に変数ス 
タックへ退避します。退避した値は，サブ 
ルーチンの終わりの RET PROC 文によっ 
てもとの変数に再び代入されます。これら 
6つの変数はサブルーチン内で値が変わっ 
てしまっても，リターンしたときにもとの 
値に戻ってくれるわけで，メインルーチン 
で使っていても構わないことになります。 



例ではサブルーチンのなかの変数 N がル 
ープ変数で使われていますが，実行終了後, 
値を見てみると0，つまりサブルーチンを 
呼び出す前の値になり，きちんと値が保存 
されていたのがわかります。これが利点の 
その2です。 

PROC 文中ラベルの後ろに5 つの 引数が 
記述されています（前述の利点その1です)。 
これらの値はサブルーチンを呼び出す前に 
局所変数に与えられます。例では U ……， 
M の5変数に，順に0,0,10，10,65 (“ A ” の 
アスキーコード） を与えています0 
PROC 文の働きをまとめると以下のよう 
になります。 

1) 局所変数に指定されている変数の値を 
変数スタックへ退避する。 

2) 引数が与えられていれば，その値を順 
次，局所変数へ代入する。 

3) サブルーチンを呼び出す0 

4) RET PROC 文でリターンし，先に退 
避した値を元の変数へ戻す。 


FUNCR 数を 
使ってみよ5 

■ 

FUNC 関数は PROC 文を関数にしたもの 
で式のなかで用いられます。 PROC 文同様- 
に変数を退避したあと サブルーチンを呼び 
出し， RET FUNC 文です旨定された値を取 
ることになります。 

一般の BASIC で関数を定義するのには 
DEF FN 文を使いますが，この命令は1行 
で書ききれる関数だけにしか用いることが 
できません。シャープ系の BASIC の場合だ 
と引数もひとっに制限されています。 

1行に書ききれないような関数を記述し 
たい場合には，サブルーチンにして変数を 
使って値の受け渡しを行うことになります。 
しかし，この方法だとプログラムが複雑に 
なってしまい，あとから読み返してみても 
なにをしているのかさっぱりわからないと 
いうことになってしまいます。 

FuzzyBASIC の FUNC 関数は，これらの 
欠点を極力補うように作ってみました。簡 
単な例をあげてみましょう。 

リスト3 2数の自乗和を求めるプログラム 

10 

20 * 2 スウノシウ 

30 

40 . 

59 c I s 

69 print func ( 「 X*2 + Y*2j, 10, 20) 

70 end 

8 0 

99 rxmj 

10 0 ret f unc I 零 I + J 本 J 


Y 0 r 
X t 

o s 

t t 
0 a n 

Y c *1 
lor n 
l I p r 

t u 
r X t 
o e e 


8 9 0 12 3 4 
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# 杯林#林####林#林# 
キー ニ 3 ウリ S ク 



C I S 

on func (TKEYj) gosab 「 UPj,「D 


リスト 3 は 2 数の自乗和を求めるもので 
す（本当は FUNC 関数を使うまでもないの 
ですが)。 

60行の PRINT 文中で FUNC 関数を使っ 
ています。2つの引数（ここでは10と 20) 
を与えて関数ルーチンを呼び出し，返って 
きた値を表示しているのです。説明が重複 
しますが，返す値を指定するのが RET F 
UNC 文で，例では IXI + JXJ ， つまり与え 
た2数の自乗和を指定しています。 

もうひとつ例をあげてみましよう。よく 
ゲームなどでテンキーを用いてキャラクタ 
を動かします。リスト4を見てください。 
これは2,4,6,8 のい ずれかのキーが押され 
るまで待ち，押されたキーによって1から 
4の値を返す関数ルーチンです 0 このよう 
にすると値が返された時点で ON 〜 GOTO 
なり GOSUB なりで处理を振り分けるのに 
便利です。 

再帰を用いた関数も記述できます。 


y 


f ( x )= 


スト 5 は〇から n までの自乗和 (2 i 2 、 

を求める関数の例です。0から10までのそ 
れぞれ について 自乗和を求めて出力 してい 
ます。 

この再帰を使う利点は，漸化式をそのま 
まプログラムにでき，結果として簡潔な表 
現になることにあります。この例の場合， 
漸化式は 

1 0 if x =0 

\f ( x —1)+ x 2 if x >0 
となり，プログラムと見比べてみると，そ 
っくり同じ形になっているのがわかるでし 
ょラ〇 

簡単にまとめてみると， FUNC 関数の動 
作は次のようになります。 

1) 局所変数に指定されている変数の値を 
変数スタックへ退避する。 

2) 引数が与えられていれば，その値を局 
所変数に与える。 

3) 関数ルーチンを呼び出す。ここまでは 
PROC 文とほ同じ。 

リスト 4 


4) RET FUNC 文によりす旨定された値を 
持ってリターンし，先に退避した値をも 
との変数へ戻す。 

ここで， PROC 文と FUNC 関数を使う上 
で理解しておいたほうがよいと思われる， 
変数スタックについて説明しておきましよ 
ラ0 


変数スタックを 
理解しよ5 


変数スタックは VSTACK コマンドによ 
って任意のアドレスに任意の大きさで取る 
ことができます。起動時には 5 F 00 h 〜 620 Oh 
の 768 バイトが確保されています。 

PROC 文， FUNC 関数において変数の値 
を退避させるのがこのエリアです。1変数 
あたり2バイトで6変数分ですから ， PROC 
文， FUNC 関数を実行するごとに12バイト 
が使用されることになります。 

また，このとき変数 VS (変数スタックの 
スタックポインタ）の値が，自動的に12減 
らされます。マシン語の SP レジスタを思 
い浮かべてもらえればよいでしょう 。 RET 
PROC 文 ， RET FUNC 文の実行にょり退 
避していた値が復帰されるわけで，スタッ 
クポインタに12が加えられることになりま 
す。 

変数スタックは PROC 文， FUNC 関数で 
使われる以外に，ユーザースタックとして 
自由に使うこともできます。そのときに使 
われるのが PUSH 文（マシン語の PUSH に 
刘■応）， PULL 文 （ POP に対応）の2命令と， 
POP 関数（というよりシステム変数です>， 
TOP 関数（これもシステム変数）です0 

PUSH 文は任意の式の値をスタックに積 
む命令， PULL 文はスタックに積まれた値 
を変数に取り出す命令です。 POP 関数は， 
やはりスタックから値を取り出すものです 
が，取り出した値を変数に代入せずに，た 
だ単に値を返します。 TOP 関数はスタック 
のいちばん上に積まれている値を返すもの 
グラム リスト5 


]e 
20 
36 
40 
50 
60 
70 
80 
90 
100 
110 
128 
] 39 


で， POP 関数との違いはスタックボインタ 
が変化しない点です。 

POP 関数と TOP 関数は式のなかで用い 
られることになりますが，ひとつ注意しな 
ければならないことがあります。 TOP 関数 
について はなんの問題もありません 力す， PO 
P 関数をひとつの式のなかで複数回使う場 
合には演算の優先順位を考えて使わないと 
誤動作の原因となります（その理由は考え 
てみてください）。 

それからあとひとつだけ，先に変数スタ 
ックはデフオルト時768バイトあると述べ 
ました。また，1回の PROC 文実行につき， 
12バイトが使用されるとも書きました。す 
ると， PROC 文や FUNC 文のネステイング、 
レベルが64重 （768 + 12) に制限されている 
ことになります0ところが マニュアルには 
GOSUB 文のネステイングと合わせて127 
重まで許すと書いてあるので，矛盾がある 
ように思えませんか。 

察しのいい方でしたらもうぉ気付きでし 
ようが，ここで先ほどちよこっと出てきた 
VSTACK コマンドを用いて，変数スタック 
をほかのアドレスへ動かしてしまえばよい 
のです。たとえば LIMIT $7 FFF を実行の 
あとに VSTACK $8000， $8600とて’もす 
れば，変数スタックの大きさが1536パ、イト 
となり，127重までのネスティングも可能と 
なります。 

もともと変数スタックが置かれていたア 
ドレスのメモリが無駄になるような気もす 
るでしようが，このアドレスは今度はマシ 
ンスタックの一部として使用されることに 
なります0マシンスタックは始めは256バ 
イトしか（なぜしかなのかは後述）確保さ 
れていないのです力す，これが 1 K バイトと 
なります。 

1 K バイトも マシン スタックに必要ない 
んじゃないのかな，と思った方もいるでし 
よう。普通に使う場合にはそのとぉりで， 
マシン スタックに数10バイトも取ってあれ 
ば十分ことたります。唯一の例外が FUNC 関 
0から n までの自乗和を求めるプログラム 例 


0カラ10 77 " > ゾジ、勹 n 

c I s 

for 1*0 to10 

print deci (I ； func (T SQUSUMj,I))/ 

next 

end 

「SQUSUMj 

if I ~ 8 then ret func 0 

ret func fune ( 「 SQUSUMj,I-1)+ I * I 


a y 2 4 6 8 


•• • f f f f : 


V 0 0 0 < 
12 3 4 1 
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数のネステイングを深くした場合なのです。 
ここでひとつ実験してみましよう。 

先ほどのサンプル（リスト 5) において， 
60行のループの終値を10から13に変更して 
実行してみてください。どうなりましたか？ 
スタックが オーバー フローしたというエラ 
ーメッセージが出たでしよう。これは ， FU 
NC 関数が実行されるときに変数スタックだ 
けではなく，マシンスタックをも大量に使 
用しているからなのです。 

再帰的に式を評価することにより，演算 
を優先順位を付けたり，カッコの処理をし 
たりしているので， FUNC 関数ひとつにつ 
き最低でも12バイトのマシンスタックを使 
います。 

256バイトしかマシンスタックを用意して 
いないと先に述べたのは，こういう理由か 
らなのです。 

変数スタックをずらし，マシンスタック 
を大きく取ることによって，最大100数重 
までネステイングレベルを深くすることも 
できるので，試してみてください。100重ま 
で使えれば，深く再帰をかけるような場合 
にも十分でしょう。 


3□迷路で 
楽しも5 


ちょっと話題がシステム寄りにずれ込ん 
でしまいました。今月の最長にして最後の 
サンプル プログラムは3 D 迷路です0 
最近，やけに迷路づいてる Oh ! MZ です 
が，私もウヶをねらって書いてみました。 
しかも今回の テーマ にのっとり，なるべく 
構造化してあります。もちろん GOTO 文は 
一度も使っていません。共通システム上で 
すからグラフ イ ックではなく オールキヤ ラ 
クタによる3 D 迷路です。 

走らせると，まず迷路を作成し（先々月 
の「試験に出る XI 」のアルゴリズムです0 
当然キャラクタですよ），作り終わると数秒 
間をおいて（データをメモリに落としてい 
るのです） 3 D 迷路が表示されます。 
テンキーの2,4,6,8か， カーソルキー か， 


1 e '林訪篇 k お# ttt (货鉢钵货搞货林#«鉢#»»»##$ 

20 • 3D MAZE for Fuzzy BASIC 
30 • 

40 • 

50 rSTARTj 
60 Iiait S7FFF 

70 If I -40 ： * 40 or 86 

80 gosub rMAKEj 

90 gosub rMAIN j 

100 end 

110 • 

120 - メイン 


メインキーの I ， J ， K , M で移動したり向きを 
変えたりします。出口があるわけでもなく， 
宝物が落ちていたりモンスターが出てきた 
りするわけでもないのです力す，雰囲気を楽 
しんでいただきたいと思います。 

横80文字表示のできる機種では，70行の 
変数 WI に代入している部分を40から80に 
変更すれば，倍の大きさの迷路を作れます。 
また，プログラムの見やすさを優先させた 
ため，分岐先の指定にはラベルを用いてあ 
りますので，実行速度が非常に遅くなって 
います。分岐先をラベルから行番号に変更 
すればそれなりのスピードになります。 

プログラムの 解説を少しだけして今月は 
おしまいにしましよう。 PR 0 C 文 ， FUNC 
関数をけっこう多用していますので，復習 
のつ もりで見てください。 

970行からが先ほどの例の四角を描く手続 
き ルーチンです。 以下，三角形を描く ルー 
チンが 4種類続いています（もう少しまと 
まるのです力 5 ')。少し戻って430行からが， 
これ も先ほどの例で使った （テンキー だけ 
でな く， カーソルキー，メインキーのすべ 
てに対応するように拡張してあります） キ 
一入力に用いる関数 ルーチンです0 

次に2440行からの迷路データを読んでく 
る関数ルーチンを見てください。 

ヒントを書いておきますから，各自解析 
していただきたいと思います。 

ヒント1 迷路は壁か通路かの2通りしか 
ありません。このプログラムでは壁を1， 
通路を0とし，1ビットで表しています。 
この閉数ルーチンは0か1を返すのです。 
ヒント2 変数 X と Y は，現在位置の座標 
を示し，変数 D は向き（どちらを向いてい 
るのか，真上を0とし，時計回りに増えて 
いきます）を表します。 

ヒント3この関数は2つの引数を与えて 
呼び出します。すると，変数 I と J が与え 
られた値ですね。 

ヒント4 与える引数は距離（現在位置か 
ら何マス離れたマスを読むか）と，正面， 
右，左のどのマスを読むか（正面なら0, 
右なら1，左なら一1 ) の2つです。図1 


を見てください。 

ひとまずこんなところでしようか。ヒン 
卜と称して，答を書いてしまったようでも 
ありますが。 

この関数ルーチンは，このプログラムの 
キーとなる部分ですので，迷路 ゲームな ど 
を作ろうと思っている方は，理解できるま 
でじっくりと何度でも見直していただきた 
いと思います0あと2つ閨数ルーチンがあ 
りますが，たいへん短いものなので説明の 
必要もないでしょう。念のために書き添え 
ますと，3150行からのルーチンは画面から 
のキャラクタ読み込み，続く 3190行からの 
ルーチンは2を n 乗するもの（力づく！） 
です。 

というわけで，次回の予告です。 

次回は ， Fuzzy BASIC のもうひとつの特 
徴であるメモリ操作， システム 操作と いっ 
た話題にからめて， BASIC のテキスト構造 
なんかの話をしていきます。 

Fuzzy BASIC はメモリ上に複数のテキス 
卜を置くことができるので，ほかのテキス 
卜に刘•して处理を行うような変なことも可 
能なのです。そのあたりを攻めてみましょ 
1 〇 

最後にひとこと，じつは懐かしの 「PIT 
MAN j の Fuzzy BASIC 版を用意している 
ので，読者の方から広くオリジナルの面を 
募集したいと思います。 

一応 PITMAN プラスにも対応しています 
ので，ひとつでも2つでも結構ですから， 
あなたの自信作をお送りください。待って 
ます！ 

図1迷路を考える（ヒント 4) 


1 = 3 


1 = 2 


1=1 
1 = 0 

J = I 


リスト 6 -A 3 


D 迷路プロ 


グラム 


130 


140 

rilAlNj 

158 

e 1 

160 

X- 

170 

pr < 

180 

re: 

190 


200 


210 

u n 

220 


238 

•• イト•ウ 

240 



s •• ， i d t h 4 0 
1 ： Y-1 : D-3 ： W- W * ** : 
oc rB0Xj,H ， e,38, 24，-JT 
peat 

gosub r HAPj 
gosub r MOVEj 
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250 

268 

270 

280 

290 

300 

310 

320 

338 

340 

350 

360 

370 

386 

390 

400 

410 

420 

430 

440 

459 

460 

478 

480 

490 

509 

510 

520 

538 

548 

550 

569 

570 

580 

598 

600 

610 

628 

630 

640 

656 

660 

670 

680 

690 

7ee 

710 

720 

730 

740 

759 

768 

770 

780 

790 

800 

816 

828 

839 

840 

859 

860 

870 

880 

899 

900 

910 

920 

930 

940 

950 

960 

970 

988 

990 

ieee 

1010 

1026 

1030 

me 

iese 

1060 

1670 

1680 

1099 

1180 

me 

1128 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1208 

1210 

1220 

1230 

1240 

1259 

1260 

1270 

1280 

1290 

1300 


(I-S1E) 
(I = $1C) 
(I-$1F) 
(I-$1D) 


メイ d ヒ 3 ウ / 

「MAPj 

C-0 

proc rBOXj,15,1,37,23, * " 
gosub 「MAPSUBj 
return 
rMAPSUBj 

for 1-0 to 3 
gosub r LEFT j 
gosub「RIGHT j 
gosub 「FRONTj 
I-I + C 
next 
return 

「 LEFT 」 

if func ひ BIT 』， 1,-1) 
then 

on 1 + 1 gosub 「 L0ff j ， r L11f j , 「 L2Wj ， r L3Wj 
else 

on 1 + 1 gosub 「 L0P_u 「 LIPj, 「 L2Pj,CL3Pj 
end i ( 
return 

「BIGHTj 

if func (TBITj,I, 1) 
t b e n 

on 1 + 1 gosub 「 R0 胃 j , 「 R 1If j ， r R2W j ， r R31? j 
else 

on 1+1 gosub 「 RflPj, 「 RIPj, 「 R2Pj, 「 R3Pj 
end if 
return 

「 FRONT 』 

if func ( 「 BITj, 1 + 1 ， 0) 
then 

on 1+1 gosub 「 Fllfj, 「 F4Wj 
end if 
return 

； シカクヲカク 

rBOXj 

for J-J to L 
cursor I,J 

print string (M,K-I + 1) 
next 

ret proc 
• サンヵク 1 
「TRLHj 

for N - 0 to 3 
cursor し J + N 
print string (K,N+ 1) 
next 

ret proc 
# サンカク 2 
「TRRHj 

for N » 0 to 3 

cursor I+3-N,J+N 
print string (K ， N+1) 
next 

ret proc 
# サンカク 3 

「TRLLj 

for N a 0 to 3 
cursor し J+N 
print string (K t 4-N) 
next 

ret proc 



「MOVEj 

on func (^KEYj) gosub 「 MOVEFj 〆 TR j , 「 TBj, 「 TL j 
return 

rMOVEFj 

if func( r BITj,1,0) return 「MOVEj 
X = X+ (D-l)-(D-3) 

Y-Y+ (D-2) - (D-0) 


「TBj 

「TLj 

E 

「TRj 


gosub 「TL j 


i n (D-1, 3) : return 
D- (D+ 1)* (D<3) : return 
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1316 

1320 

1339 

1340 
1350 
1380 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1478 
1480 
1490 
1568 
1516 
1520 
1530 
1548 
1550 
1560 
1570 
1580 
1590 
1660 
1610 
1626 
1630 
1640 
1650 
1660 
1670 
1686 
1690 
1700 
1710 
1720 
1736 
1740 
1750 
1760 
1778 
1780 
1790 
1808 
1810 
1820 
1830 
1840 
1850 
1866 
1870 
1880 
1899 
1906 
1910 
1920 
1939 

1949 

1950 
1960 
1970 
1986 
1996 
2600 

2019 

2020 
2030 
2040 
2650 
2060 
2870 
2880 
2090 
2100 

2119 

2120 
2130 
2140 
2156 
2160 
2170 
2180 
2190 
2200 
2216 
2226 
2236 
2240 
2250 
2260 
2270 
2286 
2290 
2306 
2310 
2320 
2330 
2340 
2350 
2360 


「TRRLj 

for K* 0 to 3 
cursor I+H,J+H 
print string(K,4-N) 
next 

ret proc 

「 L0Wj 

proc 「 TRLHj,15,1,W 
proc rBOXj,15,5,18,19,ff 
proc r TRLL j,15, 20,1? 
return 
「LlWj 

proc 「 TRLHj,19,5 , 胃 
proc rBOXj,19,9,22,15,W 
proc fTRLLj,19, 16,1? 
return 
TL2W j 

cursor 23,9：prin t chr$ (W) 
proc rfiOXj,23,18,24,14,W 
cursor 23,15：print chrS (W) 
return 
TL3W j 

cursor 25,11 

print chr$ (V) ； <DL> ； chr$(W) ； <DL> ； chr$(W) 
return 

. 匕 ？* m フウ 

「 L0Pj 

if func (TBITj, 1,-1) 
then 

proc rBOXj,IS,5,18,19,P 
else 

proc rBOXj,15,5,18,19,* * 
end i ! 
return 
「LIPj 

proc rBOXj,19,9,22,15,P 
return 
TL2Pj 

proc rBOXj,23,11,24,13,P 
return 
TL3Pj 

cursor 25,12:print chr$ (P) 
return 

.t ぐ 

rROWj 

proe r TBRHj, 34, 1 ，丨 
proc rBOXj,34,5,37, 19,1 
proc 「 TRRLj ， 34, 20 ，胃 
return 
TRlWj 

proc TTRRHj,30,5,W 
proc fBOXj, 30, 9, 33, 15,1? 
proc 「 TRRLj, 30 ， 18，” 
return 
「 B2ff j 

cursor 29,9:print ch r $ (W) 
proc fBOXj, 28,18, 29. 14,1! 
cursor 29,15：print c h r $ (W) 
return 
「 B3Wj 

cursor 27,11 

print chr$ (V) : <DL> ； chr$ (W) ； <DL> ： chr$ (W) 


* フゥ n 

「 R0Pj 

if func (TBITj,1,1) 
then 

proc 「 B0Xj ， 34, 5,37 ,19，P 
else 

proc rBOXj, 34, S, 37, 19, 
end if 
return 
TRlPj 

proc rgOXj,38,9,33,15,P 
return 
「 B2Pj 

proc rBOXj,28, 11,29, 13,P 
return 
TR3Pj 

cursor 27,12：print c K r $ (P) 
return 

* シ i ウメン t ぐ 

TFlff j 

proc rBOXj,19,5,33,19,P 
C-100 
return 
TF2Wj 

proc rBOXj,23,9,29,15,P 
C-100 
return 
rF3Wj 

proc fBOXj, 25,1 1 , 27,13,P 
C-100 


I K M J 

* - l * 

■ m •零 

r r r r 
0 0 0 0 

»#t 巋讀 

8 6 2 4 


J ? 

E 

K 




12 3 4 

II 霉 .■ 

J J J J 

D n n n 
e 6 e 6 
h h h h 
t t t t 
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2800 

2880 

2960 

3040 

3120 

3200 

3288 


590 
670 
750 
830 
910 
990 
1070 
1150 
1230 
1310 
1390 
1470 
1550 
1630 
1710 
1790 
1870 
1950 
20 30 
2110 
2198 
2270 
2350 
24 30 
2510 
2590 
2670 
2750 
283d 
2910 
2990 
30 70 
3150 
3230 
3310 


46 

69 

EF 

70 

2F 

27 

140 

DD 

150 

El 

B5 

220 

27 

230 

4E 

35 

300 

25 

310 

4D 

FD 

380 

5E 

390 

64 

84 

460 

1C 

470 

F7 

27 

540 

8C 

550 

27 

80 

620 

E 入 

630 

6C 

27 

700 

E3 

710 

F2 

8A 

780 

27 

790 

36 

91 

860 

8A 

870 

27 

8A 

940 

27 

950 

A5 

83 

1920 

8C 

1030 

27 

68 

nee 

83 

1110 

8C 

BC 

1180 

68 

1190 

83 

EF 

1260 

E3 

1270 

6D 

FC 

1340 

EF 

1350 

5C 

27 

1420 

8B 

1430 

EF 

CC 

1500 

2D 

1510 

8A 

8E 

1580 

A0 

1590 

87 

DA 

1660 

8F 

1670 

C6 

C5 

1740 

8A 

1750 

86 

27 

1820 

9D 

1830 

27 

92 

1900 

F6 

1910 

C7 

73 

1980 

8A 

1990 

94 

27 

2060 

8A 

2070 

AD 

8A 

2140 

8B 

2150 

C0 

67 

2228 

8A 

2230 

27 

8A 

2300 

87 

2310 

C7 

8A 

2380 

89 

2390 

66 

27 

2460 

68 

2479 

29 

D6 

2540 

B3 

2550 

84 

2A 

2620 

ID 

2630 

8B 

C3 

2 700 

8B 

2710 

8A 

84 

2780 

7B 

2790 

94 

98 

2860 

05 

2870 

8F 

90 

2940 

05 

2950 

8F 

91 

30 20 

91 

3030 

91 

AC 

3168 

5D 

3110 

97 

ID 

3180 

27 

3190 

A8 

9A 

3260 

27 

3270 

97 

83 

3340 

8A 

3350 

27 
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2370 
2380 
2390 
2486 
2410 
2420 
2430 
244 6 
2456 
2460 
2470 
2480 
2496 
2580 
2510 
2520 
2538 
2548 
2556 
2560 
2570 
2586 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2696 
2780 
2710 
2720 
2730 
2740 
2750 
2766 
2770 
2780 
2790 
2800 
2810 
2820 
2836 
2846 
2858 


「Mffj 


cursor 26,12 ： pr i n t chr$ (P) 


] メモ * Ws ウノ メイ o デ - 9 ヲ 3 ム 

「BITj 

K-X+ ((D-1)-(D-3))*I+ ((D-e)-(D- 2 ))*J 

if K>ff I - 2 then ret func 1 

L-Y+ ( (D-2) - (D-0) ) *1+ ( (D-l) - (D-3) ) *J 

if L>24 then ret func 1 

ret func bit ($8000,K + L*W I) 

:フク a 

CHAKEj 

gosub rjiAKE IHITj 
repet t 

gosub ruAKE SUBj 
until DONE 
gosub r||EMj 


「MAKE INITj 

cls：width ffl 
X8-0 ： Y0-0 ： Xl-WI-2 ： Yl-24 
X-13+ (WI-80)*28 ： Y-l1 ： D0NE-6 
proc rBOXj,Xe,Y8,Xl,Yl, '#• 


「MAKE SUBj 
V-8 

f func (fCH8j,X-2,Y)then V-V or 1 
f func (fCHBj,X+2,Y)then V-V or 2 
f func (fCHRj,X,Y-2)then V-V or 4 
I func (rCHBj,X,Y+2)--JT then V-V or 8 
ocate X,Y 
f V 
then 
repeat 
R-rnd (4) 

until (func ( 「 2U) and V) 
on R+l gosub 「 LEj, 「 RI 」，「 UPj, 「 D0j 
else 

if func (rCHRj,X-l,Y) - 
then 

print <LL>；* * ： X-X-2 


2S60 

2870 

2880 

2890 

2909 

2910 
2920 
2936 
2940 
2956 
2968 
2978 
2988 
2990 

3009 

3010 
3020 
3030 
3849 
3050 
3860 
3870 
3986 
3096 


if func(rCBRj,X+l,Y) _ 
then 

print * •: X-X+2 

else 

if func (rCHRj,X f Y-l) - 
then 

print <UU>5" - ； <LD>r く LD>; - - ： Y-Y- 


t b e a 
print 
else 
DONE- 
e n d if 


: (rCHRj,X,Y+l)• 


• ； <LD>； - " ； <LD> 


3106 

3110 

3126 

3130 

3U6 

3150 

S160 

3170 

sue 

3196 

3280 

3210 

3220 

3230 

3240 

3258 

3260 

3270 

3280 

3290 

3398 

3310 

3329 

3330 
3340 
3358 


TLEj 

pr 

TRI j 

pr 

ruPj 

pr 

「 D0j 

pr 

rCHRj 


「 2‘Xj 


く LL>{*•••*:X-X-2: return 
"..."5X-X+2! return 
<UU>r. * ； <LD>：'. ■ ： <LD>；*. ** ： Y-Y-2 ： 
", - ； <LD> ； *.• ： <LD> ； -.- ： Y-Y+2 ： reta 


(I>X1) or (J>Y1) then 
L func ehtra (I, j) 


I - 0 then 
I -1 then 
I - 2 then 
func 8 


* メイ〇ヲ *_ タヲ才トス 
THEM j 

A-$8000 ： A[0]-SPF ： Idir A,A+l,25*WI/8 
for J-0 to 24 
for 1-0 to WI-2 

i f chtr »(I, J) then reset A,J*WI + 


I スト 6 -B 


BASIC チェックサム （ CHECK コマンドで出力） 


27 

4D 

27 

F6 

96 

BF 

8F 

C5 

41 

27 

9E 

27 

8C 

83 

6D 

CD 

8D 

8A 

90 
E9 

91 
2C 
A2 
8F 
SA 
94 
11 
8A 
D0 
69 
45 
8E 
8C 
BE 
48 
8A 
4B 
96 
ID 


D0 

40 

27 

120 

IF 

200 

8A 

280 

El 

360 

A1 

440 

CF 

520 

09 

606 

83 

680 

55 

760 

90 

840 

5D 

920 

6A 

1000 

EF 

1880 

F8 

1160 

27 

1240 

A1 

1320 

27 

1400 

8C 

1480 

6D 

1560 

27 

1640 

8A 

1720 

65 

1800 

2B 

1880 

46 

1960 

27 

2040 

DC 

2120 

SA 

2200 

C7 

2280 

EE 

2360 

27 

2440 

BF 

2520 

8A 

266 0 

27 

2686 

E4 

2760 

8F 

2848 

8F 

2920 

91 

300 0 

FB 

3080 

95 

3160 

CA 

324 0 

E8 

3320 


10 

90 

170 

250 

330 

410 

490 

570 

650 

730 

810 

890 

970 

1050 

1130 

1210 

1290 

1370 

1450 

1530 

1610 

1690 

1770 

1850 

1930 

2616 

2690 

2170 

2250 

2338 

2410 

2490 

2570 

2650 

2730 

2810 

2890 

2970 

3050 

3130 

3210 

3290 


00 00000000000000000000000000000000 
86 42086420864208642086420864208642 
123445678890122345667890012344567 
1111111111112222222222 


0 0 0 0 0 0 0 
3 19 7 5 3 1 
112 3 4 5 


53 19753197531975319753197 
122345667890012344567889 

1J 1 n 11* il 1J 4J 11 11 n tx 


0 0 0 ( 

53197531975319753 

01223456678900123 

22222222222233333 


2A725BD0000969DEEF27FOOOOOOOOOOFOO 900 • 


JEOO0A 955200 


CA42E762D09FE 2707 CA 00017 F3A 03600270 AD 77497 B6 
7900442 FD 3900001 F2A 2000 OF 690 0C989FO0O0 02200 入 009429 B 


208642086420864208642086420864208642086420 

11234556789901233456778901123455678990123 

11111111111122222222222223333 


06DFAFOO0A1F 017 F7C3407AA6A7OOC7A70BB 0000760 OE 
D63E00AFBC 7002 A 292008242 DOOFOOOOCOO 2002 FA F 99992391 
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1500/700 USERS’ BULLETIN No. W 

256 色ノ \。レツトボード翻乍 


秋の気配が感じられる季節となりました 
が，読者の皆さんいかがお過ごしでしょう 
か。学生の方は新学期がすでに始まってし 
まい，いままで遊んでしまった分，なんに 
もしない夏休みに終わってしまった方もい 
るのではないでしょ うか0 

そこでなにかこの秋にやっておかなけれ 
ばとアセっているあなた。このような症状 
をわれわれは「課題症候群」と呼んでいま 
す。この治療法としては次の2つが考えら 
れるのです。 

1) 1日も早く題材を決め，なにがなんで 
もなにかを完成させる。 

2) 「課題ってナーニ!？ J と左うちわで毎日 
を送る。 

Oh ! MZ の読者の皆さんのなかには 2) を選 
んでしまうような人間はいないと信じ， 1) 
を選ぶものとして話を進めたいと思います。 

まず題材を決めなければ始まらないので， 
これは安易に 「 MZ -1500/700 用パレットボ 
ード j と決めてください。夏休みにな一ん 
にもしなかったあなたは，いまさら迷って 
いる時間などないのです。 

|パレットボードの説明 

というわけで，題材は「パレットボード」 
に決まったわけですが，「パレットボードっ 
てなに」とあっけにとられている人のため 
に少し説明しようと思います。 

パレット ボードと聞くと，誰もがまず絵 
の具で“絵を描くときに使う小さな板きれ” 
を思い浮かべることでしょう。 コン ピュー 
夕で使う「パレット」という言葉もこ こか 
ら由来しており，おおまかにいえば機能も 
目的も同じようなものです。絵を描〈とき 
は，パレットに絵の具を乗せて，自分の好 
みの色を作ってそれをおもむろに筆に付け， 
画用紙にべットリと塗りたくるわけですが， 
エレガント な絵を描くためにはそれなりの 
美しい色を思いどおりに作り出さなければ 


籲 MZH500 の周辺アプリを考える会# 

Yuge Ryoichi 

湯下良一 

いけません。コンピュータで絵を描く場合 
もまったく同じこと力 U 、 えるわけで， MZ - 
1500/700の8色だけではいくら有能な人で 
もエレガントな絵を描くのは至難の技とな 
ります。 

そこでコンピュータにも パレッ トを持た 
せて，さまざまな色を作り出せるようにす 
るわけですが，ここで注意しなければなら 
ないのはコンピュータが1画面上に表現で 
きる色の数には限りがあるということです。 
MZ - 1500/700の場合はどうがんばっても8 
種類の色しか表現できないので，本来の色 
(赤，青，緑，黄，マゼンタ，水色，白，黒）を別 
の好きな色に置き換えることを可能にする 
のが 「パレット ボード」なのです。 

MZ -1500 にはもともとパレットが内蔵さ 
れているではないかという方もいると思 
いますが，内蔵しているパレットは8色中 
8色というもので，これでは好きな色に置 
き換えるなんてことは逆立ちしてもできま 
せん。これではなんのためのパレットかわ 
かりませんよネ。 

今回のパレットでは，なるべく多くの色 

•図1 バレツトボード概念図 



パレットボード使用画面 

を表現できないかと部品点数，値段，手間 
などを考えて検討した結果，256色程度が相 
応ではないかということになり，256色中 
8色のパレットボードを製作することにし 
ました。256色パレットを作るということ 
は，256色以上表現できるテレビを用意し 
なければならないわけですが，最近の AV 
テレビには 「 RGB マルチ」という端子が付 
いているものが多いようなので 「 RGB マル 
チ j に接続するという前提で話を進めます 
(当然ケーブルの違いだけで，アナログ RG 
B デイスプレイにもつなげます 

製作に入る前にまずパレットボードの簡 


セレクト借号 



パレット 
レジスタ出力 
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単な原理について説明します（図1)。 

ご存じのようにコンピュータからは，映 
像信号として RGB の信号が出力されていて， 
デイスプレイ装置はこの情報に従って画像 
をブラウン管に表示しています。この情報 
は各画素ごとに区切って出力されており， 
MZ -1500 の場合だと，水平方向の解像度は 
320ドットなので320個の RGB 信号がドット 
クロックに同期して順次出力されています。 

この RGB という信号は“ 0 ”か“1”かの信 
号であり，この3本の信号によって表せ 
る色は“ 2 3 = 8”により8種類になります。 

いま，この信号を色情報としてではなく， 
8色の中から1色を選び出すための信号と 
考えて，色情報は別のところに8色分用意 
しておき，1画素ごとに対応する色が選択 
され出力するようにすれば，用意したデー 
夕によって微妙な色合いが表現できること 
になります。別のところに色のデータを用 
意するというのは，データを備えるもの， 
すなわちレジスタに表現したい色のデータ 
を書き込んでおくということで，これは C 
PU から書き込むことになります。 

このレジスタのことをパレットレジスタ 
といい，本数は RGB の場合，“ 2 3 = 8 ”より 
8本， RGBI の場合は“2 4 =16” より16本必 
要です。今回の場合は RGB なので8本とな 
ります。次にこのレジスタのビット幅です 
•図2 256色バレツトフロック図 


が，これはどれだけの色数を表現するかに 
よって決まります。今回は256色を表現す 
るということですので8ビット（2 8 =256) 
必要になります。この8ビット分を RGB に 
割り付けなければならないのですが，8と 
いう数は3で割り切れないので， R : G : B = 
3:3:2という配分にしました。これでも十分 
使えるようです。 

以上の説明で各ドットの RGB に対応した 
パレットレジスタの内容が出力されるよう 
にすればよい，ということはご理解いただ 
けたと思いますが，今度はこのようにして 
得られる8ビットの色情報を，テレビが映 
し出せるような信号にしなければいけませ 
ん〇そこで登場するのが“ RGB マルチ”です〇 

卜 B マルチ 

RGB マルチとは，パソコン用デイスプレ 
イのほとんど力 ? RGB を TTL レベル （0 V と 
5 V ) の論理信号として入力するようになっ 
ているのに対して， RGB の明るさに応じて 
〇〜 0.7 V のアナログ信号で入力するように 
設計してあるものです。論理信号で入力す 
る場合はドットを表示するかしないかの2 
つの状態しかないので，ドットの明るさを 
表現することができません。同じ赤でも明 
るい赤から暗い赤まであり，これを表現す 


るには論理信号よりもアナログ信号のほう 
が適しているわけです。この色の明暗を表 
すことを「階調を付ける」といいます。 

アナ ログ信号を出力するためにはデジタ 
ル信号をアナログ信号に変換 ( D / A 変換）し 
なければいけないわけですが，これは先ほ 
ど R : G:B = 3:3:2 に配分したので 「 R :2 3 = 
8階調， G :2 3 =8 階調， B :2 2 =4 階調」に 
それぞれ変換するわけです。 

変換するというのはたとえば， R の3ビ 
ットがすべて“1”の場合はいちばん明るく 
高い電圧 (0.7 V )， すべて“ 0”の場合はいち 
ばん暗く低い電圧 (0 V )， その間はなるべく 
明るさが等間隔になる電圧が出力されるよ 
うにすることです。 

以上の原理で実際の回路を設計するわけ 
ですが，図2のブロック図のように主な回 
路はパレットレジスタ，パレットレジスタ 
書き込み制御回路，パレットレジスタ選択回 
路， D / A 変換回路となります。 

パレットレジスタは前述のとおり8ビッ 
卜幅のレジスタを8本用意しておき，入力 
は CPU のデータバスに，出力は D / A 変換回 
路にそれぞれ接続します。 

パレットレジスタ書き込み制御回路は， 
CPU から ハ 0 レッ トレジスタにデータを書き 
込むためのアドレスデコードタイミング信 
号作成を行うもので，今回のボードでは$00 


パレットレジスタ選択回路(表示用） 



ブランク制御回路 


CSYNC' 


168 Oh! MZ 1986.10. 




























































































修図 3 パレツトボードタイミング図 



番地から$07番地の I / O 空間にパレットレ 
ジスタ8本をそれぞれ割り付けて， CPU か 
らアクセスできるようにしています。 

パレット レジスタ選択回路は， マシ 
ら出力されている RGB 信号を デコ 
作った8本の信号を，各パレットレジ 
の出カ コントロール 端子に接続し RGB 信号 
に対応したパレットレジスタの内容が出力 
されるようにしたものです。 

D / A 変換回路は，パレットレジスタの出 
力をアナログ信号に変換するもので，今回 
の回路はトランジスタを利用しており，入 
力抵抗を各ビットごとに変えることにより， 
ビットごとに重みを付け，対応した電圧に 
なるようにします。 

タイ ミングは図 3 のよ うになります。マ 
シン本体からの RGB 信号をデコードして S 
EL 0 〜7という信号を作り， SEL 0 〜7で選 
択 された パレットレジスタの データが出力 
されます 0 ハ。レットレジスタの 出力は ドッ 
卜とドッ ト ヵ 5 '切り換わる瞬間に不安定とな 
る期間が 生じ るため， この 出力をフリ ップ 
フロ ップに入力し，ドット クロ ッ クの 立ち 
上がりで同期をかけ，画面上に筋などが出 
ないようにしています。また， この フリッ 
プ フロップの 亡に ブランキング 信号を入 
力し，表示期間以外の間，出カデータをす 
ベて“〇”にして余計なデータが表示されな 
いようにしています。 

しかし，タイミング図を見てもわかるよ 
うに，320番目のドットを表示し終わったあ 
とでもブランキング信号がゲート遅延のた 
めすぐに“ 0”にならず，画面の右端に細い 
筋が出ることが考えられます。これの解決 
策としては同期クリア付きというフリップ 
フロップを用いてブランキング信号のタイ 
ミンダを若干変更する，またはフリップフ 
ロップの前段に8ビットのゲートを入れる 


などの方法が考えられますが，実際にはそ 
れほど問題にならないようなので，ここで 
はこのような対策は行いませんでした。 


ンンカ> 

ドして I ノ（レツトボードの製作 

ゾスタ 


それでは，いよいよ製作に入りたいと思 
います。まずは部品集めですが，部品表(表 
1) を見ていただければおわかりのとおり， 
特に珍しい部品はありません。あえてい 
うならば8ピン DIN コネクタ， RGB マルチ 
ケーブルぐらいかと思いますがどちらも結 
構よく使うものなのでパーツ屋さんにない 


もしもない場合は互換表(表 2) にあるもの 
のなかから探してください。 

基板はガラスエポキシのものが実験室の 
片隅にころがっていたので，それを失敬 
してしまいました。これは，両面カードエ 
ッジ (2.540 ピッチ）さえ付いていれば紙エ 
ポキシでも十分だと思います。 MZ -1500 で 
少しくらい贅沢をしてもよいという人には， 
スロットにピッタリの基板がサンハヤトか 
ら発売さむています （ MZ _ 2 000用ユニバー 
サルカード MCC -157: 約3,500円)〇 

コンデンサはタンタル，アルミ電解，セ 
ラミックを使っていますが，容量さえ合っ 
ていれば耐圧は6 V 以上のもので結構です。 
これらもそう珍しくないものですし ， TTL 
は 74 LS シリーズの汎用的なもの，抵抗も％ 
W の普通のものなのですぐ手に入ることで 
しょラ〇 

というわけで，パーツ屋さんへさっそく 
出かけてみてください。わからないことが 
あれば自分で悩むよりまず店員さんに聞い 
てみるのがよいようです。しつこく聞いて 
確かな部品を買ってきてください。 

部品がそろったところでいよいよパレッ 
トボードの製作です（図5,6)。 

手に入りやすい汎用部品を多く使用した 
ために，配線が若干込み入っていますが， 
皆さんのファイトをここで見せてくれるつ 
もりでがんばってください。 


場合は，なんとか頼んで取 
り寄せてもらえばよいと思 
います。それでも入手でき 
ない場合は，コネクタなん 
か使わずに勇気を持って直 
接ハンダ付けしてください 0 
トランジスタは NEC 製の 
2 SC 945 を使用しましたが， 

mm 4 


瘳表1バレツトボード部品表 



項目 

デバイス 

個数 

参考価格(円） 

TTL 

74 LS 00 

1 

40 


7417 

2 

75 


74 LS 27 

1 

50 


74 LS 74 

1 

70 


74 LSI 38 

2 

85 


74 LS 244 

1 

200 


74 LS 273 

1 

220 


74 LS 374 

8 

240 

抵抗 

68 Q 

4 

10 

(% w ) 

I 80 Q 

4 

10 

±5% 

220 Q 

8 

10 


680 Q 

3 

10 


I .0 KQ 

3 

10 


I .2 KQ 

3 

10 


2.0 KQ 

3 

10 


3.9 KQ 

2 

10 

コンデンサ 

タンタルコンデンサ 47// F /6.3 V 

4 

25 


アルミ 電解 コンデンサ I 00^ F / I 6 V 

1 

25 


セラミックコンデンサ 0. I // F / I 2 V 

5 

20 

トランジスタ 

2 SC 945 

4 

20 

コネクタ 

8 ピン DIN 〔 CRT 用〕 

1 

80 

ケーブル 

8 ピン DIN—RGB マルチ 

1 

5,000~6,000 

基板 

ユニバーサル 基板 ( I / O スロット 用） 

/ MZ - 2000用 \ 

サンハヤ ト 

\ MCC - I 57； 

3,500円程度 

1 

3,000~4,000 


籲表2 トランジスタ互換表 


メーカー 

NEC 

三洋 

ソ ニー 

東芝 

日立 

富士通 

型名 

2 SC 945 

2 SC 536 

2 SCI 363 

2 SCI 8 I 5 

2 SC 2308 

2 SC 725 


1500/700 USERS，BULLETIN lb9 











































































複雑な配線も根気よく順序立ててやればな 
んてことはありません。実体配線図を載せ 
てぉきますので参考にしてください。つな 
いだ線には色鉛筆や マーカーで 印を付けて 
いくといいと思います。この配線図は部品 
面から見た図なので注意してください。配 
線には次の手順を參考にしてください。 

1) 部品を基板に並べてみる（レイアウト 
決定)。 

2) レイアウトが決まれば 1 C をハンダで固 
定する。 

3) 0.1 //F のセラミックコンデンサを 1 C 3 
〜4個に1個の割合で付ける。 

4) 100# F のアルミ電解コンデンサを電源 
ラインに付ける（極性に注意)。 

5) パレットレジスタ ( LS 374) のま わりが 
いちばん配線が多いのでここから配線す 
る。 

6) ハンダは多めにして1本1本確実につ 
なぐよう心、が'ける。 

7) 1 C の配線が終わったら次にトランジス 
夕，抵抗，コンデンサの配線に取りかか 
る。トランジスタの足，タンタルコンデ 
ンサの極を間違えないように。 

8) コネクタを基板に取り付け配線する。 

この基板の配線が完了したら次は MZ -15 

00/ 7 〇0との接続です。1500の場合はアドレ 

スバス， データ バス， コント ロー ルバ、ス， 
電源は内蔵 ス ロットのカードエッ ジ コネク 
夕に出力されていますが VIDEO 信号など 
出力されていない信号が いくつか あり，結 

⑩表3 MZ -1500 •表4 

I / O ス□ット端子 MZ - 700外部端子表 


•表5 MZ -700 

ジョイスティック端子 

1 [ 5V 

2 VBLK 

3 JAI 

4 JA2 

5 GND 


局は1500/700どちらの場合も本体の上ブタ 
をはずして直接ハンダ付けしなければいけ 
ません。このとき MZ -700 の場合は，外部出 
力端子に接続しますが，外部出力端子には 
電源が出力されていないので電源はジョイ 
ステイック端子より取ることになります。 

出力されていない信号は R ， G ， B，HSYN 
C ： VSYNC ， CSYNC ， BLANK , DOTC 
IK の8本で，接続先は図7，8を見てくだ 
さい。クリップのようなものがあれば使い 
たいところですが，直接ハンダ付けしても 
そう簡単には壊れないので，軽い気持ちで 
付けてしまいましよう。ただし，ピンを間 
違えたり，隣のピンとショートさせないよ 
うに気を付けてください。内部信号との接 
続が終わったところで I/O スロット にパレ 
ットボードを差し込みます。 

これであなたのマシンは，256色パレッ 
卜という.素晴しい機能を持ったマシンに変 
身したわけですが，電源を入れる前にもう 
一度だけ配線が合っているかチェックして 
〈ださい。くれぐれも間違いのないように。 
チェックが完了したところでいよいよ電源 
投入となるわけですが，ここで少し冷静に 
なって考えてみてください。 

•図 7 MZ -700 バレットボード接続図 


外部出力端子には電源が 
出力されていないため . 
ジョイスティック端子を利用する。 


•図8 MZ -700 フランク制御回路 

MZ-700 CPU ポード 


いま， パレット ボードの出力にテレビを つ 
ないで電源を入れたところで， パレットレ 
ジスタにはなにも設定されていないので画 
面はまっ黒，なにも映りません。というこ 
とは パレット ボードを使う前にまず，初期 
設定するプログラムを作って実行させなけ 
ればならないのであります。 

はやる気持ちを抑えて，いままで使って 
きたデイスプレイをもとどおり本体に接続 
します。そして QD (カセット）に BASIC の 
デイスタを入れて電源 ON ! 。 ここで QD が 
動かなかったり BASIC がうまく起動しなけ 
れば配線のどこかが間違っているというこ 
となので電源を切り，もう一度チェックし 
てください。この場合カードエッジコネク 
夕への接続が最も怪しいと思われます。 

|プログラムの入力 

BASIC が起動して初期画面が出たら，プ 
ログラムを入力します。入力するプログラ 
ムは，パレットレジスタの初期設定をする 
ための“ PAL - SET ” とパレットに好みの色を 
設定する“ PALETTE ” の2本です。各機種 
用のリスト（1， 2) を見て入力してください < 


MZ-700 本体 


ジョイステイック 
端子 


外部出力端子 




LS273 

^ CLR 端子へ （ 丨番ビン） 



バレットポード 


49 

A| 5 

NlSF 

50 

47 

Al4 

exint" 

48 

45 

An 

GND 

46 

43 

Al2 

MREQ 

44 

41 

Aii 

GND 

42 

39 

Aio 

I0RQ 

40 

37 

A9 

GND 

38 

35 

Aa 

RD 

36 

33 

A7 

GND 

34 

31 

A6 

WR 

32 

29 

As 

EXWAIT 

30 

27 

Ai 

Ml 

28 

25 

A3 

GND 

26 

23 

A2 

HALT 

24 

21 

Ai 

EXRESET 

22 

19 

Ao 

RESET 

20 

17 

BUS0 

GND 

18 

15 

D? 

GND 

16 

13 

D6 

GND 

14 

II 

Ds 

GND 

12 

9 

D4 

GND 

10 

7 

D3 

GND 

8 

5 

t>2 

GND 

6 

3 

Di 

GND 

4 

1 

Do 

GND 

2 


部品面 


ハン ダ面 

5V 

1 

5V 

D2B 

2 

D3B 

DIB 

3 

D4B 

DOB 

4 

D5B 

GND 

5 

D6B 

AI5B 

6 

D7B 

AI4B 

7 

BUS0B 

AI3B 

8 

W 

AI2B 

9 

mB~ 

AI IB 

10 

RDB" 

AI0B 

II 

iORQB* 

A9B 

12 

MREQB 

A8B 

13 

GND 

A7B 

14 

HALTB 

A6B 

15 

IEI 

A5B 

16 

IE0 

A4B 

17 

RSTB 

A3B 

18 

EXRSTB 

A2B 

19 

INTB" 

AIB 

20 

EXWAITB 

A0B 

21 

NMIB" 

GND 

22 

GND 


170 Oh! MZ 1986.10. 



























































































































•図 9 MZ -1 500内部信号 


⑩図10 MZ - 700内部信号 


1_/ 


MZ - I 500 
CPU BOARD 





BLANK 

I8H 


t >74 LS 74] 

pin 


[ Key コネクタ | 


手前側 


(部品面より見た図） 


MZ -700 
CPU BOARD 


\_/ 


CSYNC 

[T 

1 

HSYNC^ 

O 

-o 


VSYNC 

o 


6 bH 



R 

o 

12 


RF エンコーダ 


BLANK 

nnnnAnn ■ 

[74 LS 08^ カスタム 

uiiUbiiiili LSI 


8D 



DOTCLK 


手前側 


(部品面より見た図） 


入力が終わりましたら一応2本ともセー 
ブしてください。そして実行させてみて， 
エラーが出ないかどうか確認してください。 
“ PAL - SET ” はすぐ Ready に戻り ， “PALET 
TE ” は 「LOAD DATA ? Y/Nj と聞いて 
きますので“ N ” を入力してください。パレ 
ットを設定するための画面が現れるはずで 
す。 

“ PAL - SET ” は今後マシンを使うたびに 
実行しなければならないので ， “AUTO RU 
N ” の最後の行の 「 NEWj を 「RUN “ PAL-S 
ET ” j と変更して自動的に実行するように 
しておくと便利です。それでは，本体の電 
源を切ってパレットレジスタの出力に RG 
B マルチテレビ（またはアナログ RGB ディ 
スフ。 レイ）をつないで再び電源を ON ! B 
ASIC が起動して AUTO RUN で“ PAL-SE 
丁”が実行されるといつもの BASIC 初期画 
面が出るはずです。出なかったらもう一度 
チェック。出ましたらこれで第一の難関を 
突破です。 

次に“ PALETTE ” を実行させてください。 
まず ， 「LOAD DATA ? Y / N 」 と聞いてき 
ますが，これは「色のデータを QD から口 
ードしますか？」ということで，今はまだ 
データを作っていませんので“ N ” を入力し 
ます。今後作ったデータをロードしたいと 
いうときは，データディスクをセットして 
“ Y ” を入力すると以前に作ったデータがセ 
ットされ，それをもとに新しい色を作るこ 
とができます。 

この ソフト は カーソルの mm で r ， g，b 
の 選択，日日で R ， G ， B の明るさを設定で 
きるようになっており， サンプルカラーを 
見ながら好みの色を設定します。「これだ!」 
という色ができれば， スペースキーを 押し 


•図 118ピン DIN コネクタ端子図 



ハンダ面より見た図 


正面より見た図 


1 

YS 

2 

GND 

3 

CSYNC 

4 

HSYNC 

5 

VSYNC 

6 

R 

7 

G 

8 

B 


て次の色に進みます。マシンの本来の色が 
右上に表示されていますので，本来青の色 
をピンクに，赤を黄色にというように設定 
します。 

8色の設定が終わると 「SAVE THIS D 
ATA ? Y / N 」 と聞いてきますので，設定し 
た色情報をセーブしたい場合は“ Y ”， しな 
い場合は“ N ” と入力してください。ここで 
注意しなければならないのはデータをセー 
ブする際にディスタをイニシャライズして 
いるという点です。これはいつも同じファ 
イル名でセーブしているためなのですが， 
せっかく入れたプログラムが消されてしま 
うことのないようにデータ用ディスク（テー 
プ）は必ず別に用意して“ PALETTE ” を実 
行したあとはデータ用のほうに入れ換えて 
ください。またプログラムをセーブしたメ 
ディアには，誤って消してしまうことのな 
いように必ずライトプロテクトをかけてお 
くように。設定が終わると，その設定され 
た8個の色を表示してこのプログラムは終 
了します。 

パレットボードにはリセット信号が入力 
されていないので，リセットボタンを押し 
てほかのソフト（ゲームなど）を走らせても， 
設定した色で表示されます。色を変えると 


いつものゲームが また違った雰囲気で味わ 
えますよ。 

自分でソフトを作りたいという人のため 
に，設定方法をここで簡単に述べておきま 
す。パレットレジスタは I / O 空間$00〜$ 
07に割り付けていますので，色情報をこの 
番地に OUT 命令で出力すると設定できま 
す。ビットの並びは表6，7を参考にしてく 
ださい。 

駆け足で説明したのでなにかとわかりに 
〈い点が多かったと思います力 ? ，とにかく 
トライしてみてください。完成したときの 
感激といったらもう「言葉にできない」ほ 
どのものなのですから。 

•表6パレツトレジスタビツトマップ 


D7 

D « 

Ds 

〇 4 

D3 

Dz 

Di 

Do 

Bi 

Bo 

G 2 

Gi 

Go 

R ? 

Ri 

Ro 


•表 7本来の色とバレットレジスタの_ 


カラーコード 

G 

R 

B 

本来の色 

パレツトレジスタ 
I/O アドレス 

0 

0 

0 

0 

黒 

S 0 0 

1 

0 

0 

1 

n 

$ 0 1 

2 

0 

1 

0 

赤 

$ 0 2 

3 

0 

1 

1 

マゼンタ 

$03 

4 

1 

0 

0 

綠 

$ 0 4 

5 

1 

0 

1 

水色 

S 0 5 

6 

1 

1 

0 

黄 

$ 0 6 

7 

1 

1 

1 

白 

S 0 7 
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OUT@ 

$0, 

e 

OUT® 

$1, 

see 

OUT@ 

S2, 

$7 

OUT® 

$3, 

$C7 

OUT® 

$4, 

S38 

OUT® 

$5, 

SF8 

OUT© 

$6, 

$3F 

OUT® 

END 

$7, 

$FF 


X-B ： Y-G 
>• THEM X-X 
THEN X-X 
THEN 
THEN 

THEM Y-Y 
(D-A(I)^B 
COTO 528 

EXT I 


(D-e 

F X-2 
P X-l 


F Y ベ 


リスト 2-1 MZ-70 晒 PAL-SET 


10 OUT#0,0 
20 0UT#l. f 192 
30 0UT#2,7 
40 OUT 林 3,199 
50 0UT«4,56 
60 OUT# 5,248 
70 0UT#6,63 
80 OUT# 7,255 
90 END 


U スト 3 AU 


TO 


RUN 


10 DEF KEY (1)•-RUN -+CHRS (13) 
20 DEF KEY ( 2)--LIST" 

30 DEF KEY( 3)-"AUTO- 

40 DEF KEY ( 4) バ RENUIT 

5¢) DET KEY ( 5) -~DIR •- 

60 DEF KEY( 6) -"CHR$ (** 

70 DEF KEY ( 7) -**DEF KEY T 

80 DEF KEY( 8)- - COHT" 

98 DEF KEY( 9)-"SAVE - 

100 DEF KEY (10)-*LOAD " 

116 PRINTS BT 

120 RUN "PAL-SET- 


OX[l.»] 1*,132,218.148 
URS08 3,17 ： PB!KT 'SAVE THIS DATA T Y/K* 
CET A*：IF A*-** THEN 117* 

F A *- 丁 THEM 121* 

F AS-'K* THEK 1270 ELSE 117* 

NIT -QD ： Y* 

OPBNC1,-QD ： PAL- 
OR 1-1 TO 8 
RIKT SI.A (!) : NEXT I 
LOSE 囂 1 

LS 3 

1-1 TO 7 
CIRCLE [! v «] 1M, <• 

AIHT [1.(] 3lati4t. 161. 1 
EXT I 

FOB !-l TO 8 

OUT* I-l.AU) : NEXT 1 

END 


41 CURSOR 

4,10 ： PR!NT[I,7] 

T 

-c- 

5« CURSOR 

4,12 ： PRIMT[7,0] 

6» CUBSOH 

4,14:PBINT[7 • 會】 

•it - goto 700 

1% IP CL<>2 THEK 92¢ 


89 CURSOR 

if 18 ： PR!NT[7,I) 

•R* 

99 CURSOR 

4,12 ： PRIHT(0,7J 

•G- 

•• CURSOR 

4, U ： PB!HT[7,I] 

*B" : GOTO 708 

21 CURSOR 

4,ie ： PHINT[7 # l) 

T 

39 CURSOR 

4,12 ： PHIHT[7.e) 

•c* 

B-：COTO 796 

48 CURSOR 

4, U ： PH!MT[« # 7] 


GET - 
IP A ； 


：i 


IF A$ 

C い CU1 

IF CL-4 THEK CL- 
GOTO S38 
L-CL-1 

r CL-0 TH£N CL- 
F CL<> 


AS-- THEN 7" 
THEM 
THEN 

TREN 960 
THEN 19 
THEN 11 


CL- 
CL- 
C い 

OTO10 
CL- 
CL- 
CL 


THEN R-BM ： 
THEN G-GHt 
THEN B-B^1 ： 

9 

THEM B-H-l 
THEK C-G-J 
THEN E-B-l 


R-« THEN R-7 
C-S THEK C-7 
B-4 THEM B-3 

F R<0 THEN H-0 
F C<0 THEN G-8 
F B<l THEK B-8 


OUT# S 6，0 
OUT# SI,$C0 
OUT# S2.S7 
OUT# $B,$C7 
OUT# S4 # $3S 
OUTt $5,SF8 
OUT ， $6,S3F 
OUT# S7 f $FF 
* 

OIU A (8) 

IN1T -CRT ： CR-：CLS 1 

CURSOR 5,19：PRIHT *LOAD DATA ? Y/H* 

GET AS：IF AS-*" THEN 139 

if At--y thkk ire 

IF AS--H- THEK 225 ELSE 139 
• 

ON ERROR GOTO 225 
ROPEH#l,-QDsPAL- 
FOR !•! TO S 
INPUT #1 ， A ⑴: NEXT 1 
CLOSE t\ 

CLS 1 

BOX ie,48 9 21d 9 132 

LINE 10 r 70 # 2!8,70 

BOX [I • 看】 162, 53 t 194,65 # 5 

BOX 【 7,01 13S 9 8t, 129,4 

CURSOR 吣 7:PRINT •PALETTE HO. - 

CURSOR 3. I •: PRINT • [• ; : PR I NT [• パ ] T;:PIUNT .J 

CURSOR 3,12:PRINT •[G】• 

CURSOR 3 # 14:MIICT • |BJ • 

. 

CL-1 

FOR 1-1 TO 8 
CURSOR 17 # 7 ： PR!NT 1-1 
IF l-I THEM OUTt SS,8 
IP 1-2 THEN OUT 書 S5 V SC« 

IF 1-3 THEN OUTt «5 # $7 
IF 1-4 THEM OUTt S5 # SC7 
IF 1-5 THEN OUTt S5 t S38 
IF 1-6 THEK OUTt S5.SF8 
IF 1-7 THEM OUT§ SS»S3F 

IF 1-8 THEN OUT# *5 t SPP 

• 

R ••: G ••: B-e:X-A ⑴ 

IF X-128->6 THEN X-X-12S ： B-B+2 
IF X-64->l TBEK X-X-84 ： B-B^1 
IP X-32->t THEN X-X-32 ： C-C>4 
IF X-16->« THEM X-X-16 ： C-C42 
IF X-8->l THEN X-X-8 ： G-C*1 
R-X 


リスト 2-2 MZ-700 用 PALETTE 


OUTae,8 
OUTC1.192 
0UT#2,7 
0UT#3. 199 
0UT»4,56 
0UT85.24S 
0UT#6,63 
0UT» 7.255 

DIM A (8) 

COLOR .,7 f 0：PRIHT B 

CURSOR 5,ie：PRIHT ‘LOAD DATA » Y/N 

GET AS：IF AS- - THEN 136 

if a$--y* then ue 

IF AS»~K* THEN 246 
GOTO 136 

ON ERROR GOTO 240 

CURSOR 5.1!：PRINT CHBS (127) :* PLAY •: HOPEN -PAL* 
FOR 卜 1 TO d 
IKPUT/T A (!) : NEXT I 
CLOSE 

PRIKT 
CURSOR 22 
CURSOR 22 
CURSOR 21 
CURSOR 21 
CURSOR 21 
CURSOR 21 
CURSOB 21 
CURSOR 6, 

CURSOR 3. 

CURSOR 3, 

CURSOB 3, 


PRIMT[5.t] 
PR1NT[5,0J 
' ： PH!KT[ 

一 - 1NT| 

IHTf 
IHT[ 

INTI 
PHIHT ? 
PRIKT •. 
PRINT - |C] - 
PRIKT - [B] - 


•】 _ 

• ••1 H 

.•] •■■■■ 

• •i •■■■ 


LETTE HO. 

: PRINT[e,7j -R-：：PBIMT 


CL-1 

FOR 1-1 TO g 
CURSOR ]7 # 7 ： PR!)IT 
IF I-l THEM OUT#5 
IF 1-2 THEN OUT 霧 S 
IF 1-3 THEK OUT8S 
IF 1-4 THEN OUT«5 
IP !-5 THEN OUT 囂 S 
IF !-6 THEN OUT#5 
IF 1-7 THEM OUTS5 
IP 1-8 TBEN 0UTS5 


519 IF X-84->9 THEN X-X-64 ： B-BM 

528 IF X-32->9 THEN X-X-32 ： G-C44 

536 IF X-16->0 THEN X-X-1« ： G-Ct2 

540 IF X-8-># THEN X-X-8 ： C-C^1 
S5I R-X 
560 - 

578 CURSOR 6 # 10 

580 PRINT SPC(7) : CUHSOK 6,10 

590 IF THEN 82 翁 

666 FOR i-1 TO R 

610 PRINT ••: : HEXT i 

628 CURSOR 8, 12 

630 PRIKT SPC (7) : CUKS08 6 9 12 

849 IF G-l THEN 871 

659 FOR J-l TO C 

66¢ PRINT -#-5：KEXT J 

671 CURSOR 6,14 

681 PRINT SPC (7) : CUKSOK 6 # 14 

690 IF B-l THEN 738 

708 FOB J-l TO B 

71% PRINT #• ； : MEXT J 

720 

739 OUTi4 v A(l) 

746 • 

750 GET AS ： IP AS-— THEK 7SI 
768 IF AS-D" THEN 836 

770 IF AS- THEN 661 

788 IP AS-'D* THEK 1921 

796 IF AS-*B* THEN 1061 

see IF AS-- - THEN 1190 

SI0 GOTO 7SI 
d2t • 

S3! CL-CLM 

840 IP CL-4 THEM CL-1 

656 GOTO S9I 

866 CL-CL-1 

870 IF CL • 會 THEN CL-3 

S80 

898 IF CL<>1 THEN 936 
9M CURSOR 4 # IlrPIIMTtl, 7) *R- 

911 CUBSOX 4 # 12 ： ?RINT[7.«] 'C* 

921 CURSOR i. 14 ： PBIKT(7 # I] -B'.GOTO 751 

930 IP CL<>2 THEN 9SI 
940 CURSOR 4„ 16 ： PR I NT [ 7 f I] 

95$ CURSOR 4^ 12 :PR I NT [ _•7] 

960 CURSOR 4,14 ： PHIMT[7 f •] .B'-GOTO 75# 


*8- 

•G. 



リスト 1-1 MZ-1500 用 PAL-SET 


リスト 1-2 MZ-1500 用 PALETTE 


000000000 

123456789 






R 2 
u 6 




-T T - T T - T T 

ox ox ox 
G E c E c E 

0 N •• 2 K : 4 N •• 

1 E o ••1 c o ••1 E o ; 

• HT* • H T . • ht* 

6 T 0 6 T #6 T • 

R 0 . 8 I . on 0 - 

OT - JTOT - JTOT - JT 
s K R NSNG N s N B H 
K I RIOS! R 1 R ! R I 
URPORURFOBURFOR 
CPIFPCPIFFCPIFP* 

2 3 4 5 6 7 
5 5 5 5 5 K 


95566666 R 


060066911 #)234567§99I234567S9$ 123456 789112345678 
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鑤図 5 実体配線図 
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illiilliz 質間箱 


今度 Xlturbo を買おうと思って 
いるのですが，ディスブレイを 
買ろとちよっときびしいので， 
本体のみを買って本体から出ているビデオ 
出力から普通の T V につなごろと思ろので 
すが，200ライン/400ラインそれぞれにお 
いて，字がほとんど見わけられないとか見 
づらいなどの問題は起こりませんか？ XI 
G のカタ□クを見だかぎり200ラインでは 
ゲームなどがきれいに映っているよラです 
が。 東京都錦織信幸 

XiG / turbo / turbon には 
標準でビデオ出力端子か付いて 
33*0, 必ずしも RGB ディスブ 
レイは必要ではな<, TV かあれば使用可 
能なのですが，実際には制約があります。 

1 ) turbo , turbo n では高解像度(4〇〇ラ 
イン）モードで使用できない。 

2) 解像度が悪い。横320ドツト （40 桁）の 
場合ならばなんとか使用に耐えるか，横 
640ドツト (80 桁)では実用にならない。 

3) 本体から出ているのは RF 出力ではな 
<「ビデオ出力」なので， TV にビデオ 
入力かない場合は，間に VTR などをは 
さむ必要がある。この場合はさらに解 
像度が低下するので320ドツトでも実用 
性は保証できない。 

これらのことから考えると， X 1 G でな 
0) まだしも turbo で RGB デイスブレイを 
買わすにすませよラとい^のは問題がある 
でしよろ。そこで，ますは電器店で映り 
ぐあいを見てそれから決定することをおす 
すめします。もっとち，最悪の場合でちデ 
イスブレイを買えばすむことですが。 

B XIturbo model 30のユーザー 
で , turbo BASIC を使用してい 
ます。日本語文字関数 KACNV 



ます。私の turbo BASIC だけでしようか？ 


また修正法がありましだら紹介願います。 

愛知県久米勝巳 


□ 結論か先にいつてしまろと， 
それは BASIC ©/ \ # ブではな< 
マニユアルの誤植です 。 KAC 
NV $ などのように，ほかの BASIC には 
見あたらない命令，関数の場合だと ， BA 


SIC ガ間違つているのかフニユア J しが間違 


つているのか簡単には判断かつさかねるこ 


とがあ 1 0ますが，週去の例からしてもマニ 


ユアルの間違いであることかほとんどです。 


0 XI F のユーザーです。 CZ -8 PC 
1を使用するためにアプリケー 
シヨンソフトの"フリンタ C 0 


NFIG 2. Uty ” で CZ -8 PC 1 を登録しよう 


としだのですがでぎないのです。マニユア 
ルどおりにいかないのです。フ□クラムが 


おかしいのでしよ〇か7 メニューが出て 


「 [Z] …… OTHER 」 を選び， データを 設 
定しようとすると 「 A -1) Printer Nam 


e :」 になります。ここで入力しよろとすると 
1文字押しだだけで0 K と表示されプ□ヴ 
ラ厶が終わるのです。ちちろん 「 NEW 0 N 
には4以上を入れてます。どろもわかり 
ません。助けて<ださい。それから，その 
あとの データ もど 〇 入れればよいのかもよ 


<わかりません。 岡山県森川守 


このほど CZ -8 PC 1 を買つたの 
ですが，“ブリンタ CONFIG.Ut 
y ” の使い方がよくわかりませ 


ん。少な<とも漢字を打ち出せるようにし 
だいと思〇のですけれども，プリンタのマ 


ニユアルを見てもあまりよ<わかりません。 
どうぞよろし<ぉ願いします。私の使って 


いる機種は XI F の model 20です。 

鹿兜島県秋山広信 


$は，フニユアルによると“ A さん”が“ A 
さん”になるとのことですが(〈文例〉)，試 
しだところでは “ A さん”になつてしまい 


□ NEW BASIC や turbo 巳 AS 
1 C で CZ -8 PC 1 を使いだいと 
いろことな5, メニューの中の 


「 CZ -8 PN 1 」を選択するだけで十分です。 
CZ -8 PC 1 は，カラーが使えるようになつ 
たこと以外 CZ -8 PN 1 と同等の機能だか5 
です。もし 「[ Z ] …… OTHER 」 を選んで 
わざわざ新しいブ U ンタとして登録したと 
しても，カラーか使えるようになるわけで 
はあ 1 0ませんから，結局は無駄手間になる 
だけでしよラ。 

さて，そこで次は森川さんの質問にある 
フリンタ C 0 NFIG 2. Utv " の動作につ 
いてですが，もし質問にあるとおりの症状 
だとするとあきらかに異常だといえます。 
おそいつのまにか“プ 1 J ンタ CON 
FIG 2. Ut ゾを書き換えてしまつていだ 
のではないかと思われます（最悪の可能性 
としてはディスケツトの FAT などが懐れ 
ている場合もあります X きつと BASIC の 
マスターディスクはライトプ□テクトの銀 
紙を貼つだまま保存してあるでしようから, 
そちらのほろからコピーして実行してみて 
<ださい。 

なお，念のためにいつておきますか，プ 


リンタ CONFIGZUt ゾというのは NEW 
BASIC に付属するユーティリティです。 

(高野庸一 ) 

mmrng mz - 2500と MZ -1 P 17 を使つて 
|01おります。プリンタの□ール 
hh ! 紙ホルターを購入して長いブロ 
グラムをブリントするのに便利になりまし 
だが ， A 4サイズごとにページ送りができ 
れば保管の際にもつと便利になるのです。 
そのよろにしてブリントする方法がないも 
のでしようか。 東京都山□努 


□ 私たちが巳 ASIC のリストを打 
ち出すときにいちばん気をつか 
ラのがフアンフオールド紙の S 
シン目に文字がかか5ないよろにすること 
です。これは本当に面倒な作業で,「ページ 
ンブ機能をなぜ最初から LUST に盛り込 
んでおかなかつたんだ1」と怒 1 0だ<ちな 
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ります。 

山□さんは□ール紙をお使いだとい^こ 
とですか，きつと同じよラな思いをなさつ 
だのでしよラ。これはちよつとしだツール 
を自作すれば簡単に解決できます。 

リスト1は私が作つだプリントアウトツ 
—ルです。ブ 1 J ントアウトするプ□ブラム 
はあらかじめアスキーセーブしておいて< 
ださい。最初に 1070 行〜 1140 行のパラメー 
夕を設定します。 PAGEUN というのは1 
ページ当たりに納まる行数のことで，ファ 
ンフオールド紙な 566 行， A 4 の紙なら 69 
行です。上 • 下空白行数を〇にするとペー 
ジングなし，つまり BASIC で LUS 丁した 
のと同じ結果になります。 

このブ□ブラムは1ページ66行のろち何 
行を I 」スト出力に使い，何行を空送りする 


Paging llis い . ..Page 1 


かを設定することによりミシン目にかから 
ないようにするもので， ZEDA のアセンブ 
ル 1 」スト出力もこれと同じことをやつてい 
ます。 

漢字を使うことのできる機種では漢字が 
2行にまたがるとおかしな文字がブ IJ ント 
アウトされてしまいますので， KFLAG を 
設け 1540 〜 1620 行でこのよ^な事態を防止 
しています。 

ページングを行ラよう指定をしだときに 
表示されるメッセージは 1830 行で出力して 
います。気にいらない方はど〇ぞ自由に書 
き換えてください。 

なお，このブ□ブラムは アスキーセーブ 
が可能ならどんな BASIC でも使用できま 
す。 MZ - 2500 専用ではありませんので皆 
さん使つてみて < ださい。 （泉大介） 

リスト1 ページング付きリスト出力 


質問にお答えします 

日ごろ疑問に思っていること，どんなこ 
とでも結構です。どんどんお便りください。 
難問，奇問，編集室が総力をあげてお答え 
いたします。ただし，お寄せいただいてい 
るものの中には，マニュアルを読めばすぐ 
に回答が得られるようなものも多々ありま 
す。最低限，マニュアルは熟読しておきま 
しょう。質問はなるべく具体的に機種名， 
システム 構成，必要なら図も入れてこと細 
かに害いてください。また，返信用切手同封 
の質問をよく受けますが，原則として，質 
問には本誌上でお答えすることになってい 
ますのでご了承ください。なお，質問の内 
容について，直接問い合わせることもあり 
ますので,電話番号も明記してくださいね。 

宛先：〒102東京都千代田区四番町 2- 丨 
(株）日本ソフトバンク 
「0 h ! MZ 質問箱」係 
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000 
0 I 0 
020 
030 
940 
050 
068 
070 
080 
090 
100 
11 0 
120 
130 
140 
150 
160 
170 
180 
190 
200 

219 

220 
236 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
41 0 
420 
430 
440 
450 
460 


グ付きリスト出力 
by 泉大 > 


* 以下のバラメータを設定してください 


FILKAM $» TESTr 

LPTC 0 L -80 

PAGELIM-66 

GYOMOJI-80 

UPPERLIN-3 

L 0 WERLIN =3 

PAGE$-"Y' 

KFLAG=1 


プリントアウトするファイル名 
プリンタの 1 行桁数 
1 ページの行数 
出力する 1 行の文字数 
上部空白行数 
下部空白行数 

タイトル，ページを表示 （ Y/N) 
漠字フラグ （ 1/0) 


‘ ♦数値チヱック 

IF GYOMOJI>LPTC0L THEN 1180 ELSE 1230 
PRINT " これでは印刷できません 。“ 

PRINT "LPTC0L と GY0M0JI を設定し直してください 
END 

'END IF 


〃初期 
OPEN 
PGN- 
G0SUB 1800 


FILNAMS 
♦頁頭処理 


WHILE EOF(#1)»0 
LINE INPUT #1,LN$ 
COSUB1380 ’* 行アリン 
WEND 

CLOSE tn 

LPRINT CHR$ (12 )； 

END 


* 行プリント 

IF LEK (LNS) =LPTC0L THEN 1 4 00 ELSE 1430 
LPRINT LNS; 

G0SUB 1 680 .*CNTR./ ンクリ y ント 
GOTO 1650 
ELSE 

IF LEK (LNS)=<GY0M0JI THEN 1 4 5 0 ELSE 1490 
LPRINT LNS 

G0SUB 1680 *CNTR インク，;ノント 


1470 * END IF 

1480 GOTO 1650 

1490 * ELSE 
1500 0RGLN$-LN$ 

1510 FOR 1-0 TO IKT (LEN (0RCLNS)/CY0M0JI) 

1 520 LK$-M1D$ (0RGLN$,1,CY0M0JI) 

1 530 0RGLN$-MID$(0RGLN$ f GY0M0JI^-l) 

1540 IF KFLAG-1 THEN 1550 ELSE 1620 

15 50 TST-ASC (RICHT$ (LK$,1)) 

1560 FLAG-TST>&H 80 AND TST<&HA0 

1570 FLAG-FLAG OR (TST>&HBF AND TST<&HEB) 

1580 IF FLAG THEN 1590 ELSE 1610 

1 590 LNS-LEFTS (LN$,CY0M0JI-1) 

1 600 0RCLN$«CHR$ (TST)+0RGLNS 

1610 • EKD IF 

1620 ’ END IF 

1 630 G0SUB 1 380 •* 行プリント 

1640 NEXT 

1650 ' END IF 
1660 RETURN 
1 6 70 • 

1680 *CNTR インクリメント 
1690 CNTR CNTR+1 

1 700 IF CKTR = PAGELIN-L0WERLIN THEN 1 730 ，♦頁末処理 
1710 RETURN 
1 720 ' 

1730、頁末処理 

1740 IF LOWERLIN>0 THEN 1750 ELSE 1780 

1 750 FOR 卜 1 TO L0WERLIH 

1760 LPRINT 

1770 NEXT 

1780 • END IF 

1 790 • 

1800、頁頭処理 

1819 IF UPPERLIN-0 THEN 1920 

1829 IF PAGE$，Y"_ THEN 1 830 ELSE 1850 

1830 LPRINT FILNAMS； •* - Page"* ；PGN 

1840 GOTO 1870 

1850 • ELSE 

1860 LPRINT 

1870 - END IF 

1880 PGN-PGN+1 : CNTR-1 

1890 FOR 1-2 TO UPPERLIN 

1900 LPRINT : CNTR-CNTR+1 

1910 NEXT 

1920 RETURN 
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愛読具ゼント 


プレゼントの応募方法 

とじ込みのアンケートはがきの該当項目をすべてご記入のうえ，希望のプレゼン 
卜番号をはがき右上のスペースにひとつ記入してお申し込みください。締め切り 
は10月15日の到着分までとします。なお，当選者の発表は12月号で行います。 



►シャーブ 


turbo Z f s STAFF 


Xlturbo 用 

3 名 


5 D 版 （2 枚組） 
19,800円 




• シャープ 

Super MZ ランゲージシ U 


IP-1213 


FORTRAN 

IP-1214 

COBOL IP-1E15 

LISP IP-1216 

PROLOG IP-1217 
MZ - 2500用 各 3 名 

3.5D 版各13,800円 



ライフボートの a シリーズが， MZ- 
2500用 （P-CP/M 版）のランゲージシ 
リーズとして登場した。発売を記念 
してそれぞれ3本ずつ（合計15本） 
をドーンとプレゼント。 


優れた操作性と豊かな表現力が魅力のグラフィック 
ツール， turbo Z’s STAFF をプレゼント。X丨 turbo の 
機能と君のセンスを最大限に発揮できます。 


4 


•パック•イン•ビデオ S03 (226) 9591 

ランボー T シャツ 



あのスーパーランボーのパック•イン • ビデオから， 
ランポーの T シャツをプレゼント。サイズはフリー 
サイズです。 


6 


•ホット•ビイ 003(360)3623 

チューガの 

キーホルダー 


3 

參ボーステック 303(407)4230 


レリクス 5 名! 



XI/XI turbo 用 



5 D 版 （2 枚組） 7,200円 



謎と神秘のグラフィックで人気のレリクスを 



5名の方にプレゼント。こいつはちょっとや 
められませんよ。 

1____ 1 ——— 





5 •パーソナルメディア S03 (495)6241 

ビジネス 
パソコン入門 


5名 


ピーター • A •マクウィリアムス著那野比古訳 

1,500円 


ビジネス 

パソコン 

入門 



先月号の FILES Oh!MZ でご紹介した『ビジネスパソコン入門』をプレゼント。 
書名はちよつと地味だが，みんなに読んでもらいたい内容だ。 


BaHnWBHHBRHHBRMBIIIHIBRnaiHHRnMKHanmHMaHRH 



発.汗•惑•星のマスコット，チューガ君のキーホルダ 
一をプレゼントします。かわいがってください。 


8月号プレゼント当選者 




msound Gal (東京都)鈴木登司男（沖縄県）安達哲也（大阪府）前川光一 （13 ばってん夕 
ヌキの大冒険（長崎県）中村浩司（兵庫県)斉藤典孝固三国志（神奈川県）岡田英之（広 
島県）山下晃弘（埼玉県）中村光司郎 0MZ-I5OO 活用研究（愛媛県)織田国高（滋賀県） 
宇野康司（愛知県)高橋大介（大阪府)松本宏（東京都)増田秀樹 [I3MZ-I500 クイックデ 
イスク活用研究（青森県）西修（三重県）山田員己（徳島県）足立知正（長崎県)杉本健 
(栃木県）柴山悦四郎固美の世界（大阪府)上田大輔（群馬県）岩崎利一（滋賀県)伊藤 
喜人（沖縄県)上間厚志（大阪府)高田勝 

以上の方々が当選されました。おめでとうございます。なお、賞品は順次発送いたしま 
すが，入荷の状況によって多少遅れる場合もございますのでご了承ください。 


1 lb Oh! MZ 1986.10. 
















































NEW PRODUCT 

官製はがきから巳 4 サイズまで印字可能 

ミニ書院 WD -80/85 

シャープ 

最近，商品群がますます充実してきたハ 
ンデイワープロの世界だが，シャープから 
発売されている「ミニ書院シリーズ」に新 
たなラインアップとして WD -80/85 (62,0 
00円）が8月に新登場した。 

この WD -80 ( JIS 配列キーボード）/85 
(50 音配列キーボード）は，官製はがきか 
ら B 4 サイズまでの用紙への印字が可能で， 
液晶表示が23桁 X 2行，また，66桁 X 32 行 
ドットのレイアウト表示も可能で，約5万 
語（固有名詞2万語含む）の辞書とともに， 
この価格帯のワープロとしては実用的な機 
能を備えている。 

それらに加えて，星座や十二支、食べ物 
などの絵記号が160種類も印字可能なほか， 
イラスト作成機能により縦2〜4文字分 (96 
ドット），横8〜12文字分 （288 ドット）の 
スペースを使ってロゴやイラストを作成す 
ることもできるようになっている。 

さらに，原稿用紙やレポート用紙などの 
フォーマットの決まった用紙への印字もで 
きるフリーピッチ機能や，印字位置指定の 
できる狙い打ち機能も備えているために， 
契約書や履歴書などの指定位置への印字が 
できるほか，英，独，仏，スペイン語の4 
力国語の欧文作成機能や数式，化学式の上 
付き文字や下付き文字の使用もできるため 
に，学校のレポートや業務用報告書などの 


使用には最適の機種といえそうだ。また， 
作成した文書は本体内のメモリに A 4 サイ 
ズで約4ページ分 （4000 文字）の記録が可 
能で，そのほかにもカセットインタフヱイ 
スを使ってカセットテープへの保存が可能 
となっている。 

く問い合わせ先〉 

シャープ ㈱ 006(621)1221， 03(260)1161 

A 3 漢字プロッタ 

DXY ■明5/的0 

ローランドディージー 

パーソナル CAD の図形出力や，大型 CAD 
のサブプロッタとして最もニーズの高い A 3 
プロッタに求められている，機能，性能， 
価格などの数多くの条件を満たした新製品 
「 DXY シリーズ」2タイプが9月10日よ 
り発売された。 

今回発売された DXY -855 (155, 000円） 

と990 (258, 000円）は，それぞれこのクラ 
ス最高速の3001 mn / 秒の高速作図機能を持 
ち，ペン先乾燥を防ぐオートペンキャップ 
機構，メカニカル•ソフトランデイング機 
構による製図用インクペン対応，ヒューレ 
ット•パッカード社 HP 7475/7470 の HP-GL 
と互換性を考慮した 「 RD - GL 1」 コマンド 
装備，セントロニクス仕様と RS -232 C 仕様 
の2つのインタフェイスを標準装備してい 
るなど，豊富な機能を備えている。 

また，上位機種である DXY -990 には JIS 
第1水準漢字 ROM を標準装備し （855 は才 
プシヨン），漢字が使用できるほか，ペン速 
度変更や8方向移動キー， P 1/ P 2 などの各 
種設定など操作性に優れた新型スイッチパ 



DXY -990 


ネル， XY 座標がひと目でわかる座標表示 
器を装備するなど実用性を重視し，また， 

ハイコス トパフ オー マンスを 実現している ( 
く問い合わせ先〉 

ローランドディージー ㈱ 00534 (37) 2333 

メカトロトレーニングシステムの新製品 

パシフィック自動制御シミュレータ 

太平洋工業 

メカ トロト レーニングシステム教材の新 
製品として自動制御シミュレータ 「 PTS - 
10」（700,000円）が発売された。 

この自動制御シミュレータは，現在の電 
気，機械，計測，プラントなどの数多くの 
分野で重要な役割を果たしている温度，圧 
力，速度などのアナログ量（連続変化量） 

を目標値に一致させるためのフィードバッ 
ク型制御回路を構成する制御要素をモデル 
化し，各モデルの組み合わせによりシステ 
ムを図式化できるように工夫したもので， 
難解だと思われている自動制御理論を基礎 
学習から高度な数値制御のシミュレーシヨ 
ンまで幅広い利用が可能となっている。 

PTS -10 の主な特徴としては，基礎工学 
上の必要条件がすべて組み込まれているた 
めに， パネルの ブロック図に従って パッチ 
コードで回路を構成することにより，目的 
とする系の シ ミュレー シヨ ンが自由にでき 
る。入力信号として内部ステップ入力以外 
に外部入力端子から，オシレータ（発振器） 
や市販パソコンに接続した D / A 変換器から 
の出力などの入力が可能である。 X - Y ペン 
レコーダやストレージスコープなどの各種 
計測機器を接続することにより，結果を目 
で確認しながら作業ができるなどがこの自 
動制御シミュレータの大きな特徴である0 

また M 社では，同じく電子回路自動検査 
装置 PZ - CT 1 (76, 000円），多芯ケーブル 
自動検査装置 PZ - HT 1 (84, 000円），プリ 
ント基板自動検査装置 PZ - PT 1(98, 000円） 

3機種も同時に発売し，製造にかかわって 
いる技術者自らそのハードウエアとソフト 
ウヱアのノウハウを解説し，実際にこの自 
動検査装置を使って自分の目で学べる仕組 
みになっている。 



: 

ミニ窨院 WD -80 
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このメカトレーニングシステムでは，そ 
れぞれの学習レベルに合わせた活用が可能 
であり，各種学校での教材として，また企 
業内での実用テスト用として，これからの 
技術者の養成のためにその果たす役割は極 
めて大きいといえる。 


く問い合わせ先〉 
太平洋工業 ㈱ 


©0584(81)5300 



自動制御シミュレータ PTS-IO 


信頼性を向上させた3 . 5/5インチ FD 

XR シリーズ 

小西六写真工業 

職場や学校などにパソコンやワープロが 
普及するにつれ，フロッピーディスクの需 
要は広がり，フロッピーディスク自体にお 
ける耐久性，信頼性はこれまで以上に高い 
ものが求められている。そのような状況の 
なかで9月11日から発売を開始された 「XR 
シリーズ」は， 3. 5/5インチともに最も負荷 
のかかりやすいセンター ホール 部に，独自 
の アルミ 蒸着 シルバー メタリツ クハ ブリン 
ダを施し，耐久性の向上を図っている。 




タイプと5インチ5タイプで，それぞれの I 



タイプの価格構成は次のようになっている。 



1) 3. 5インチ 



MF /1 D (10 枚組）11,500円 


1986-10 

MF /1 DD (10 枚組）13,500円 


9月の空 • 3題 

(1 枚）1，350_ 


I ■icon 

もう9月を過ぎた。 f 虫たちは冬仕度をし， 
木の葉は散り，私は今年に限り世の人々と 
同じように冬休みをどう有意義に使おう力、 
と思案をめぐらせ始める。そうだ，思い切 

ってスキーに でも 誘って みよう か . 。話 

が横道にそれてしまった。パソコン業界に 
とっての秋は年末商戦前の重要な時期だ。 
今年は特に ハード， ソフト，通信 サービス 
の3市場でめまぐるしい展開があり，予断 
を許さない。 


HARDWARE 

ちと思い出して頂きたい。今年登場した 
パソコンの 新製品にはどのようなものがあ 
ったか。 ビジネス 用はこれまでの i 8086 を i 
80286に交換した‘‘改装’’型の高級“ワークス 
テーシヨンタイプ” （？） の製品が5月前後 
に続々と発売された。しかし，家庭•個人 
用では？ X 1 G があった。 PC -9801 UV 2 が 
あった。主なところではたったこの2機種 
しかなかったのだ。あとは MSX および MS 
X 2 が日本楽器製造や松下電器産業などか 
ら ポロポロと 出てきただけ。いずれにせよ， 
全部含めても2ケタには達しなかった。し 
かもこの新製品群，厳密な意味での新機種 


MF /2 D 
MF /2 DD 

2) 5インチ 

MD /2 HD 256 
MD /1 D 
MD /1 DD 
MD /2 D 
MD /2 DD 

また，この フロ 
先だって，今年の 

フロッ ピー デイス 
をスター トさせ， 

ーサービスも 充実 させ，ディスク ともども 
よりいっそう信頼度を高めている。 
〈問い合わせ先〉 

小西六写真工業 ㈱ S 03 (349) 5251 


(10 枚組）13,500円 
(10 枚組）17,500円 
(1 枚） 1，750円 

(10 枚組) 23,000円 
(10 枚組）13,000円 
(10 枚組)17,500円 
(10 枚組）17,000円 
(10 枚組）21,000円 
ッ ピー デイ スタの 発売に 
7月から同社は破損した 
クの データ修復 サービス 
ユーザー に対するアフタ 



:つたりともなか 
つた0すべて パ、 リエー 
シヨンマシンである。 
こんなことは ハ。ソコン 

市場開拓以来，初のケ 
ースである。 

この理由はいくつかある。列記すると， 

1) 春夏はバソコンの需要が低迷すること 
が，“恒例”になっているため， メーカーが 
意識してニューマシンを避ける。 

2) 昨年秋に全メーカーが一斉に新機種を 
投入したため，「お休み」になっている。 

3) なかでも特に MSX に限れば，新機種も 
旧機種も同じになってしまうため，メー 
力一が旧機種の在庫を抱えている間は様 
子をみている。 

などがあげられる。つまりメーカーは完全 
に端境期を決め込んでいたのである。 

ところが4〜6月期のパソコン総出荷台 
数をみると，合計では前年同期比横ばいの 
42万5千台だったが，国内だけをみると， 

26万台で同7 %増。企業が円高で購入を控 
えているにもかかわらず，この値になった 
ということは家庭用パソコンは目玉商品が 
不在であったのにもかかわらず，そこそこ 
売れていたのだ。もし目玉商品があればと， 


卜- 1 ， ' . 3 ご 


コニカ FD XR シリーズ 

あとで話していた担当者もいた。 

で，上半期のこうした反省を受けての秋 
商戦および年末年始商戦。恐らく例年，秋 
に有力機種が投入されているだけに，今年 
もこのパターンになることが予想される。 
噂では400ラインで4096色が使える FM と力、， 
周辺機器群やオプシヨンボードをあらかじ 
め内蔵した最強の8ビット MZ とか，よう 
やく他機種なみになる88とかなどである。 

この種の情報の真相は私はまだつかんでい 
ない。つかんでいるのは横80字表示が可能 
になる MSX の新モードが出てくる，とい 
うことだけなのである。とにかくまた魅力 
的な家庭用パソコンがいくつか出荷されれ 
ば，市場はいくぶんにぎわいそうな感触は 
残している。ただし，売り場がワープロ専 
用機や電話機に侵食され，狭くなっている 
ことは見逃せない。 

SOFTWARE 

この秋は簡易言語に断然，注目だ。簡易 
言語，それも表計算ソフトだ。いよいよ米 
国 ベストセラー製品「ロータス 1-2-3」 

の日本語版 「ロータス リリース 2 J 」 の出荷 
が始まったからだ。これに負けじと日本市 
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INFORMATION 

新しい「名人 j 誕生 

ツインファミコン名人位争奪戦 

さる8月4日，東京•市ヶ谷にあるシャ 
—プ ㈱ 東京支社にぉいて，文化放送主催， 
シャープ提供，ハドソン協賛による「ツイ 
ンファミコン 名人位争奪戦」が開催された。 
当日はあいにくの雨にもかかわらず会場に 
は抽選により選ばれた84名の ファミコ ン少 
年たちが集った。新製品紹介，クイズ大会の 
あとはいよいよ名人位決定戦だ。予選では 
会場に設置された8台のツイ ンファミコン 
を使ってひとり3分間の制限時間内での得 
点を競う。今回使用されたゲームは 「STAR 
SOLDIER 」 で，隠された3種類の ボーナス 



場での先発勢がはりきっている。この競争 
原理が簡易言語，ひいてはビジネスソフト 
市場全般を盛り上げると期待する向きは多 

い0 

具体的にこの簡易言語商戦にエントリー 
している製品をみると，ロータスジャパン 
の「1-2-3」が挑戦者。これを受ける王 
者はマイクロソフト社の 「 Multiplan2.0 」 。 
この一騎打ちに割り込みをかけるのがハド 
ソンの 「 HuCAL 16」 と MSA の「スーパー 
カルク3シリーズ」，大塚商会の 「POCAL 
Cjo そして乱入するのがソードの 「Sup 
erPIPS 」 （98，5550用）である 0 

この顔ぶれをみると，やはり ロータス 1 
-2-3 が話題の面で一歩リードしているこ 
とは否めない。 

しかし，ここで改めて考えてみたい。今 
回発売されたロータス 1-2-3 は3年前に 
米国で販売開始された製品を，ただ日本語 
化したものであるに過ぎない。いずれ日本 
に来ることはわかり過ぎるほどわかってい 
た。それが「ようやく」やってきたにもか 
かわらず，早くも市場をリードしようとし 
ている のだ。その間，日本のソフトハウス 
がやってきたことはビジネスソフト市場に 
限れば，明けても暮れても日本語ワープロ 


を確実に取ること力镐得点の鍵となったようだ。 
なかには このゲームは 初めてと い う者や48 
万点ものスコアを上げる猛者などさまざま。 

予選後，ぉ待ちかねの高橋名人が登場し， 
必勝講座や名人主演の新作ゲームでの模範 
演技などが行われた。続いて予選上位8名 
による決勝戦，名人の実況解説も入り会場 
は大いに盛り上がり，4分間の激闘の末， 
東京*目黒区の島村茂登司君 （11) がファミ 
コン名人位を勝ち取った。 

FORESIGHT ， きまこんクラブ共催 

第4回ホビーマイコンショウ開催 

ともに長い歴史を誇る2つのマイコンサ 
ークルが，これまでそれぞれの会員が蓄積 
したハード， ソフトの 成果を発表す る 「第 
4回ホビー マイコンショウ」 （入場無料）が， 
10月12日（日）11: 00-17 : 00に東京 • 秋葉 
原にある秋葉原ラジオ会館8階大ホールで 
開催される。 

このショーを企画した 「 FORESIGHT 」 と 
「きまこんクラブ」は，それぞれ昭和55年 
と53年に創立され， PC - 800 UTK -80 を起 

点としてこれまでパソコンをホビーライフ 
として楽しもうと活動を続けてきたサーク 
ルで，ショー当日には通信シミュレーシヨ 


ンや動く人形が出展され，懐かしい TK -80 
や MZ ， PC を使った楽しい催しが用意され 
る予定である。特に FORESIGHT には本誌 
「パソコン千夜一夜」を連載中の峰岸順二 
氏が参加しており，豊富な知識を生かした 
氏の作品には大いに期待できそうだ。 

く問い合わせ先〉 

FORESIGHT 事務局 0045 (591) 3638 

実用ソフト1000本を展示，即売 

BUSINESS SOFT フェア 

東京 • 神田神保町にある書泉ダランデで 
は，9月20日〜11月20日までの2力月間， 
簡易言語，教育，システム，グラフィック 
ツールな ど1000本の実用ソフトを一堂に集 
めて展示，即売する 「BUSINESS SOFT フ 
ェア」 を， ソフトハウスや関連図書出版社 
18社の協賛で開催する。 

この フヱア では，秋葉原でも手に入れる 
ことができない珍しいソフトが用意される 
ほか，期間中にこれらソフトが特別販売価 
格で提供されることになっており，ハ。ソコ 
ンフアンに 興味深い内容の フェア となりそ 
うだ。 

く問い合わせ先〉 

書泉グランデ 003(295)0011 


と オフコン 用業務 ソフ トの焼き直しばかり 
だったのである（極論だが)。いずれ各種の 
ビジネス ソフト がワープロなみに販売に加 
速がかかる時期が来るのがわかりきってい 
て，むざむざと ロータス 社にトップの座を 
譲ろうとしているのだ。このあたりにビジ 
ネス ソフ ト業界の抱える問題が凝縮されて 
いるのではないだろうか。 

通信 サービス 

まず大規模 パソコン 通信 サービスの 現状 
をみると8月時点では 
有料=テレスター， EYENET ， JALNET ， 
LINKS 

無料二 PC - VAN ， アスキーネット， J & P - 
HOTLINE 

待機中 = NIF (日商岩井+富士通)，日立情 
報ネットワーク 

となっている。そして，報道によれば10月 
前後には無料組はすべて有料組に移行し， 

侍機組も有料組に入る。しかし状況が変わ 
っているのだ。私の情報を列記する。 

1) PC - VAN は9月末の時期で「10月有料 
化」か「1月有料化」かを決定する。 

2) アスキーネットは予定どおり10月中に 


有料化する。 

3) J & P は来年まで有料化を延期する。 

4) NIF は来年4月までスタートを遅らせ 
る。 

5) 日立は11月までにはスタートするもの 
の，サービス内容はとりあえず基本最小 
限にとどめる。 

アスキー ネットを除いては，すべて予定 
を繰り下げようとしているのである。その 
理由は簡単で，有料化したとたんに利用者 
が激減することが目に見えているからだ。 
どこもかしこも，電子メールと BBS と内 
容の貧弱な（これは事実）情報提供 サービ 
ス ばかりの現状で，無料 サービスの 会社が 
あれば，そちらに動くのは当然なのである。 

しかし，各社とも慈善事業ではない。1 
年以上も無料サービスを続けることは不可 
能なのである。従って私の情報どぉりだと 
すれば，この10月から年末までの間にこれ 
までのサービス内容を強化し，有料化に耐 
えるシステムとせざるを得ない。この駆け 
引きは非常に面白く，当の企業側にとって 
は厳しい。 

どちらにせよ有料会員の潜在数は今のと 
ころ5万人にははるか及ばないのである。 

( K . T ) 
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悪いマ シンほど 

裕福にな5 



純金の1円玉の行方 

今月は「悪貨は良貨を駆逐する」という 
トーマス•グレシャムの 法則から始めよう。 

この言葉の本当の意味はさておき，悪い 
物が良い物をおしのけて蔓延するという事 
実はなんにしても面白い。このため，話の調 
味料としてしばしば引き合いに出されるよ 
ぅだ。- 

この法則は，まだダイアナ妃もサツチャ 
一首相もいなかったころ，女王エリザベス 
•世の治めるイギリスで，貿易商人であっ 
た トーマス. グレシャムが提唱したとされ 
ている。しかし実際には，グレシャムが唱 
える以前から一般的に知られていた事実で 
あり，彼自身の創見とはいえないようであ 
る。とはいえ，最近は世のなかいたるところ 
に悪者が住みついているとみえて，この言 
葉を耳にする機会は非常に多い。 

教養を深めるために，「悪貨は良貨を駆逐 
する」の本来の意味を説明しておこう。す 
でにご存じの場合は笑っていただきたい。 
まず，良貨とは高価な材料で作られた貨幣 
のことであり，悪貨とは安い材料で作られ 
た貨幣のことである。たとえば，現在の1 
円玉は アルミニウム 製で，その外見からは 
いかにも安っぽいという印象を受ける。こ 
こでもし仮に，純金製の1円玉が並行して 
発行されたとしよう。この場合，金のほう 
がア ルミニウム に比べてはるかに高価であ 
るから， アルミニウムの 1円玉が悪貨で， 
純金製の1円玉が良貨ということになる。 

良貨が駆逐されるメカニズムはいたって 
簡単である。誰もが純金製の1円玉を欲し 
がり，ひとたび手に入れるとふところにし 
まい込んでしまうからである。ひどい人に 
なると，純金製の1円玉を溶かして金の地 
金にしてしまうかもしれない。その結果，悪 
貨であるアルミニウム製の1円玉が多く流 
通し，良貨である純金製の1円玉は金庫の 
奥深くで眠っていたり，溶かされてなくな 
ったりしてしまう。純金製の1円玉など発 
行されるはずがない，と最初から決めてか 
かっている諸氏もおられるかもしれない。 
しかし現実はなかなか奇抜である。 

たとえば，数年-前に新500円玉が発行さ 
れた当初，多くの人が珍しがって手に入っ 
たばかりの新しい500円玉を財布のなかに 
しまい込んだためなかなか出回らなかった 


ことは記惊に新しい。珍しさというフアク 
ターでさえこれだけの現象を引き起こすの 
であるから，実際に記念硬貨として金貨や 
銀貨を発行するときは，額面と材質の関係 
に対して当局はずいぶんと気をつかうそう 
である。 

良機を追い払ろ競争原理 

さて，国内のパソコン界にも「悪機は良 
機を駆逐する」という法則が成り立ってい 
る。この場合の悪機とはソフトウェアや周 
辺機器などが十分に揃わないまま発売され 
たマシンである。一方，良機とはこれらの 
サポートがハードメーカーによって，発売 
時点ですでに行われているマシンを指す。 
装備に欠ける悪機がいかにして一見優勢に 
みえる良機を駆逐してしまうの力、そのメ 
カニズムを以下に述べてみよう。 

まず， 悪 機である ニューマシンを 購入し 
た ユーザーの 手元には， アプリケーション 
ソフトウェアも周辺機器もなにもない。手 
元にあるのは BASIC インタ プリ タ だけ力、 
運がいい場合でも OS くらいである。ユーザ 
一のうち，ある者は自力でこれら アプリケ 
ー ションや周辺機器を制作するであろう し， 
また，ほかの多くの者はそのやりようのな 
い憤りを声高に訴えるだろう。 

すると， パソコン 関係の雑誌がそれらの 
製作記私や解説記事を意欲的に掲載する一 
方， ニューマシンの 不備な点を追及し議論 
を 重ねる。そして， ユーザー+マスコミの 
動きが大きくなり表面化してくると，需要 
のあるところ商売あり，というわけで サー 
ドパーティが アプリ ケーションや 周辺機器 
を 発売してくれる。ここで サードパーティ 
とは， マシンを 販売して いるメーカー以外 
の会社のことである。 

このサードパーティの参入によって，悪 
機の環境は急激に活気を帯びてくる。ハー 
ドウェア メーカー による マシン 本体の宣伝 
に加え，サードパーティによるアプリケー 
ションと周辺機器の宣伝が行われるため， 
マシンの名前は巷にあふれ，いかにもその 
マシンが売れているかのような印象を一般 
の人々に対して与える。このため，さらに 
多くのマシンが売れ， マシンが 売れればア 
プリケーションぉよび周辺機器市場は拡大 
し，参入してくるサードパーティの数も相 
乘効果的に増える。サードパーティの数が 
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増えれば，それらの間に競争が起こる。よ 
り安く，より高性能な製品でないと売れな 
くなる。すなわち競争原理が働くのである。 

結果として，悪機のユーザーは増え，安 
価で優秀なアプリケーシヨンや周辺機器が 
揃うことになる0悪機のマニュアルも不備 
かつわかりにくいほど状況はよくなる。 
メーカーの供給するシステムソフトウェア 
も使いにくいほどよい。出版社は喜んで解 
説書や入門書を出すだろう。 

我慢は進歩を妨げる 

さて一方，良機のほうはといえば，発売 
当初からソフトウェアや周辺機器がきちん 
とサポートされている。このため，ユーザ 
一は購入後ただちにマシンを使って自分の 
仕事に取りかかることができる。仕事とい 
ってもビジネスに限ったことではない。ジ 
ヨイステイツクを片手にゼビウス村でタケ 
ノコ掘りに夢中になったり，マリオ山でキ 
ノコ狩りを楽しむのも風情があってよろし 
い。通信を楽しむのもよい。なんといって 
も良機であるから，音響カブラなどではな 
く，たとえ300ボーではあるにしろメーカ 
一純正のモデムボードが用意されているは 
ずだ。 ゲームにホビーにと，とにかく自分 
のやりたいことをただちに始められるので 
ある。そんなわけだから，多少使いづらい 
ところやもの足りない点があっても，ユー 
ザーが我慢してしまうのである。 

この「我慢」というやつがくせものなの 
だ。「我慢」は世のなかの進歩を妨げる。 

人々が現状に満足せず，不満をこぼすとこ 
ろから世のなかの進歩は起こるのだ。現状 
を受け入れてしまったらあとは没落するの 
みである。良機が駆逐されてい〈原因の根 
源はここにある。「コマンドの数は少ないけ 
れどフリーェリアが広いからいいや」と 力*， 
「スピードは遅いけれど信頼性が高いから 
いい」，「機能は少ないが構成がシンプルだ 
からよい」など，小さな欠点に目をつぶっ 
てしまうところから良機城は崩れていくの 
だ。 

今日は小さかった問題点も明日には心の 
なかでムクムタと大きくなっており，次第 
に耐えがたいものとなっていく。 ユーザー 
がそれに気づき， 騒ぎ始めるころには手遅 
れである。天下はすでに悪機のものとなっ 
ており，良機のためにソフトウェアを生産 



してくれるサードパーティはほとんどいな 
くなっているからだ。 

悪機を買って金持ち気分 

では，メーカーサポートの薄い悪機のほ 
うがよいのかというと，そうでもないよう 
だ。 

悪機を取り巻く環境は，全体としてみれ 
ば素晴しいものであるが，マシンを購入し 
たユーザー1人ひとりに対しては，大きな 
危険性と負担とを要求しているからである。 
先に述べたように，悪機の環境が整備され 
ていくためには，多くのサードパーティ間 
の競争が不可欠である。競争こそが，安価 
で性能のよいソフトウエアと周辺機器を生 
み出す原動力なのだ。競争なくしては，2 
M バイトの披張メモリボードや全2重1200 
ボー対応のモデムが5万円を切ることはな 
かったであろう（この原稿を書いている時 
点で，5万円以下の2 M バイトメモリボー 
ドがついに現実のものとなった。もちろん， 
典型的な悪機 PC -9801 シリーズ用であるが)。 

日本語入カフロントプロセッサのうち， 
VJE と ATOK と松茸のなかでどれがいちば 
んいいか，などという楽しい（ばかばかし 
いけれど）議論も，悪機のユーザーなれば 
こそ許されるものである。 

競争のあるところには勝者と敗者が生ま 
れる。勝つ者がいれば負ける者がいるのが 
この世の定めというものである。競争の結 
果，安くて高性能な製品が生まれてきたの 
であれば，競争の過程にぉいて，高くて性 
能の悪い製品をつかまされた，みじめなユ 
ーザーが必ずいるはずである。10万円の300 
ボーモデムフォン，8万円の 256 K バイトの 
拡張メモリ，ソフトウヱアがなんにもない 


68000カードなどなど，思い出すときりがな 
い。悪機の環境は，このようなスケープゴ 
—卜の上に成り立っているといってよいだ 
ろう。 

もちろん，スケープゴートはユーザーだ 
けではない。サードパーティのなかにも落 
ちこぼれが出てくる。競争力を失ったサー 
ドパーティを待っているのは会社更生法で 
ある。しかもそれだけでは済まされなぃ。 
悪機のユーザーは マシン 購入後，必要な ソ 
フトウェアと周辺機器を揃えていくための 
膨大な出费を覚悟しなければならない。本 
体と バン ドルソフトウヱアだけでは使い物 
にならないからである。だから，悪機を買 
えば誰でも金持ちになれる。巷には星の数 
ほどソフトウェアと周辺機器があふれてい 
るから，あたかもそのなかから自分に似合 
う宝石（中身はともかく値段は宝石に近ぃ） 
を選ぶという，金持ちになったような雰囲 
気を味わえる。 

ここまでは，物量的な面から悪機と良機 
について議論を行ってきたが，問題点はさ 
らに広がる傾向にあるようだ。最後にちよ 
っとだけ触れておこう。マシンの使い勝手 
に関しても，悪機良機の関係が成り立って 
しまうのである。ここでも， 使いに 〈いマ 
シンが使いやすいマシンを駆逐する。 

マシンが使いに くければ，「コンピュータ 
は難しい」という評判が 立つ。 人々には「勉 
強しておかなければ」という気持ちが起こ 
り，出版社は解説書を出そうとぃう気にな 
り，しまいには， パソコン スクール なんて 
いうのができたりして，結果的にブームと 
なる。最初の評判が良いか悪いかなどとい 
うことは関係ないのだ。とにかく，人の Pf 
にのぼるということが問題なのだ。 

この現象は昨今のワープロブームにもた 
いへんよく当てはまる。いまワープロがブ 
ームになっているのは，決して「知的生産 
効率を高める」ためだとか， 「 OA 化を推進 
する」ためではない。単にワープロの使い 
方が難しいからである。難しいからこそ， 
人々の心に「とり残されるのではない 力。 
とぃう不安を呼び起こし，幅広ぃ関心を集 
めているのである。悪機万歳。 

次回は，これらワープロについて正面か 
ら迫ってみる。題して，「ワープロは脳波を 
刺激する」。果たして人間は6,000字を上回 
る漢字コードを暗記できるか。 
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♦ OS の記事には感動しました。なにしろこれか 
ら 0 S について勉強しようかなと思っていた矢先 
ですから0 Oh ! MZ はえらい！ 私はうれしい。 

高屋信久 （22) 愛媛県 
お役に立ててなによりです。 

♦0 S っていろいろあるんですね。私も使ってい 
ますが家の turbo では turbo CP / M , 学校の16/?で 
は CP / M -86 と MS - DOS が動いています。どれをと 
っても可愛いヤツです。荒谷勝彦 （21) 福岡県 
いろいろ使っていらっしゃるようでうらやま 
しいです。 


0 S は排他的であってはいけないのです。愛機 MZ - 
2500で作ったブログラムが88で走るなんて考えた 
だけでも楽しいことです。 

越野満至 （16) 島根県 
機種の壁を越えるというのが S - OS の原点で 
す。せっかく Z 80 という「共通機種」を持っ 
ているんですから。 

♦88 版“ SWQRD ” を出したのは正解です。皆さん 
88ユーザーをコケにできないなどとミクロなこと 
をいうのはやめましよう。 PC ユーザーはしよせん 
ゲームばっかりやってる奴の集まりですが，その 
なかで「オレはゲーム中心じゃない j とムネをは 
れる人はその例外でありそれなりにマシンを使っ 
ている人が多い。そういう人とともに S -0 S とい 



FIROM READERS TO THli EDITOR 


こんなゲームを待っている——これが今 誌へのご意見なども大歓迎丨特にイラ 
月のテーマです。みなさんのゲームに対 ストは重点的に歓迎します 。 STUDIO 
する思いをお送りください。もちろん小 MZ はあなたが作るページです。 


♦今回の os の特集は，自分では半分ぐらいしか 


理解できなかったが，コンピュータの奥の深さを 
かいま見たようでたいへん面白かった。もっと普 


う RPG を楽しもうじゃないですか。ゲームばつか 
りやってる奴には S -0 S のよさはわからんのです。 


♦ど一でもいいことなんですが，アルファのクリ 
スという可愛い女の子はなんの必要があってあん 


及機にも 0 S の考え方が浸透し，純粋な道具とし 
て使えるような環境にならないものだろうか。以 
前 NHK 特集で TR 0 N を見たことがあるがなにや 
らオレンジ色のディスプレイがつながっていて， 
マックのようなマルチウィンドウをデジタイザを 
ペンで置き換えたようなもので操作していた。な 
るほどあれならマウスのように斜めに移動してし 
まうこともないだろうし，端から端への移動も楽 
そうである。別にマウスとマルチウィンドウでな 
くてもいいわけで，要はいかに使いやすいかの問 
題ですね。 山口健史 （17) 静岡県 

そうですね。いくら使いやすくても困ること 
はありませんからね。 

♦ Oh ! FM のバトルロイヤルの記事の写真見まし 
た。私はズバリいってしまいます。「われらが祝氏 
の右手は右から3本目のヤツだ！ j 当たってたら 
ブレゼントの「三国志」ちょ一だい。 

藤井研 （16) 神奈川県 
ズバリいってハズレです。残念でした。 

♦ MZ - 2500を使っていますが，最近「棋太平 j を 

動かしていたら画面がまっ黄色になって長い間も 
とに戻らなくなり，それ以来，突然画面がまっ黄 
色になっては忘れたころに戻るという情けないパ 
ソコンになってしまいました。誰か助けてくださ 
い。 中川千絵（け）神奈川県 

早目に入院させたほうが愛機のためですよ。 
♦いつも楽しみに読ませていただいてます。女性 
で Oh ! MZ を買うのはちょっと勇気がいるんです 
けど，メゲずに買わせていただいてます。これか 
らもよろしく。 浜崎聡子 (26) 大阪府 

輿敢な女性読者，大歓迎です。 

♦88 版の S -0 S が出たのがそんなにいけなかった 
のですか。 S -0 S は対応機種が多ければ多いほど 
発展するんじゃないですか。僕はいまに88ユーザ 
一が S -0 S 用のブログラムを Oh ! MZ に投稿してく 
れることを信じます。 Oh ! MZ はもう MZ ユーザー 
だけのものではないのです。みんな MZ だ， X けこ' 
PC だとこだわらずに S -0 S ユーザーとして力を合 
わせれば，もっと S -0 S は凄いものになります。 S - 


佐藤紋行 （18) 大阪府 

そのとおり！ 

♦ PC -88 版の S -0 S に対して思ったよりも反対意 
見があるようですね。しかし MZ シリーズのプロ 
ジェクトが PC に移植されたわけですから，やは 
り誇るべきことではないでしようか。それにあま 
り機種に固執すると規格の分裂化が激しい日本の 
バソコン 業界の動向をますます助長することにな 
りますよ。 倉持亮_ (20) 東京都 

そうです。規格の分裂はユーザーにとっては 
百害あって一利なしなのですから。 

♦カラーイメージボード， FM 音源ボード，安価 
になった 320 K バイト外部 RAM , ハードディスク 
などを I / O スロットに付けた場合， XlturboII は 
2スロットしかないため2つまでしか付けられな 
い。早くシャープは turbo 専用の6スロットの拡 
張 I / O ボックスを発売してくれませんかね。これ 
じゃいくら周辺機器が増えても使えないよ！ 

山崎義弘 （18) 東京都 
4スロットのものですけれど，ようやく XI / 
turbo 用の拡張 I / O ボックスが発表になりまし 
た。 XI ユーザーには侍望の一品ですね。 
♦そう，それは1982年4月のことであった。私が 
当時通っていた某県立十日市町高校からの帰り道， 
丸久紙店という名の店に入ったときから始まった。 
そこで私が見たものは銀色に輝く MZ -80 B であっ 
た。以来ほとんど毎日のように店に通いつめ 80 B — 
2000 — 2200とシャープの消極的な製品群を見て触 
ってきた。しかし気づいたときはすでに遅く，私 
の部屋には MZ - 2200が置かれていたのである。そ 
して大学2年になったいま，隣には MZ - 2500があ 
るのであった。 樺沢康彦 （19) 新潟県 

私もその昔， MZ -80 B に憧れていつのまにや 
らこんな仕事をしています。 

♦「試験に出る XI 」はそろそろ潮時かと思ったら， 
再び深入りを開始してしまった。しかし祝さんの 
性格はいちばん COMPUTER に合わないと思うの 
に，なんか妙だ。 早乙女俊之 （16) 東京都 

普通の人間の尺度で計る，のが問違いなのです。 


なビキニのよ一な服を着ているのでしょうか。ど 
なたか教えてくださいませんか。 

岩田英樹 （14) 岐阜県 
そういえば男性の眼装は今と同じようなのに， 
女の子はみんなあの服装。なぜでしょう。 
♦織田信長42歲の夏，320万 I 千の軍団が三河に侵 
入した。敵はわずか10万足らず。しかし 「Format 
over 」 というゲリラ戦法の前に天下統一の夢は 
破れた。ちなみに 「Over flow 」 攻擊にやられたこ 
ともありますよ 一。 正田忠宏 （15) 滋賀県 
ご愁傷さま。しかし320万とはすごい。 

♦ 8 月号 P . 130の狩生様，ロゴが切ってあったの 
はそれを送り返して本代を免除するためです。僕 
なんか毎月買わずにもらっていたのでした。パッ 
ジは申し込み用紙があってそれを電気屋さんに送 
ってもらって初めてもらえるんですよ。電気屋さ 
んがずぼらしたんですよ，きっと。 

武井利文 （19) 奈良県 
ということだそうです。7月号の神山君。 
♦時代が変わりましたね。なんとあの「サザエさ 
ん」（火曜日）のオー'プニングでパソコンが出てく 
るんだもの。 富田憲範 （15) 静岡県 

サザエさんは流行に敏感なんですよ。磯野家 
の家電製品は常に東芝の新型が揃ってるそう 
ですし。 

♦技術が進歩しても相変わらずパソコンの重さ， 
大きさは変わりませんね。 Xlturbo クラスの性能 
で持ち運びのできるバソコンなんていいですね。 

菅井隆夫 （24) 山形県 
なんでも小さくしちやうのがシャープさんの 
お家芸。有り得ない話ではありませんね。 
♦編集室の皆さんの顔をデジタイズして Oh ! MZ 
の表紙にすれば，普段の倍以上売れるでしょう！ 
さっそく来月号からやりましょう。 

和気清彦 （14) 岡山県 
やめておきましょう。売り上げが半減しそう 
ですので。 

♦ 8 月号の STUDIO MZ のいちばん最初の田中浩一 
君へ。「崩れてきたか j とはなんだ！あれくらいの 
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中川氏は光 U ， 本物のゴルフで自己べストを 
記録されたそうですが，なかなかゲームのよ 
うにはいかないようです。 

♦先日友人の家で MZ - I 200 の STAR TREK をやっ 
た。これがやたらと面白くて， XI 版の STAR TREK 
がちょっと前に載っていたのを思い出し，いま必 
死に打ち込んでいます。その際にこの前の質問箱 
にテンキーで A 〜 F が打てるプログラムがあった 
のを思い出しそれを使っています。こうしてみる 
と Oh ! MZ は役に立つ素晴しい本だなと思います。 
僕は1984年の4月号から持ってますがゲームの記 
事ばかり読んでて全然活用していませんでした。 
これから最初から読み返していきたいと思います。 

伊藤嘉信 （15) 愛知県 
480円分スミからスミまで活用してください。 
♦父の PC -980 IM 2 をかっぱらった。そしたら XI 
turbo を買ってきた。今度は9801と XI を変えても 
らった。だってテレビも見れる XI は最高であるか 
ら！ルンルン。 大角芳葉 （13) 山口県 

それはよかったですね。13歳の女の子が 98 M 2 
を使う姿はあまり想像したくありませんから。 
♦皆さんはシャープの宣伝が下手だというが，今 
の宣伝をどのようにすればいいのか具体的に提案 
しないとシャープにしてみてもどうすればいいの 
かわからないのではないかと思う。僕としては別 
にシャープの宣伝が下手だとは思えない。どうで 
しょうか ， Oh ! MZ で宣伝についての特集を組ん 
でみては？ 根岸良征 （ M ) 東京都 

そうですね。アイデアのある方ぜひお便りを。 
♦私はナイコン時代にシヨッブで MZ -80 K を使わ 
せてもらっていましたが，そのころのソフトを使 
ってみたくなり XI 用の SP - I 002 を作ってみました。 
BASIC , FORM などが結構うまく走ってます。ゲー 
ムも結構走ってるけど PLAY で音が出ない！ 

網代謙 （17) 千葉県 
活用してますね「クリーンコンピュータ Jo 
♦私の兄はある状態から XI turbo のマシン語モニ 
夕を立ち上げると，メインメモリをクリアするこ 
となくモニタでエディットできることを発見した。 
皆さんも turbo を解析してその謎を解いてみませ 
んか？ turbo もまたアドベンチャーマシンだ。 

加藤健二 （15) 新潟県 
turbo ューザーの諸君！無料でアドベンチャー 
ゲームができるぞ。 



ノリについていけないのですか？ それともお二 
ャン子が嫌いとか，女の子が嫌いだとか,私はどっ 
ちも好きですよ。話がずれてしまいましたがいい 
たいことは 「0 h ! MZ は質実剛健である j ,「0 h ! 
MZ はドラゴンである j , 「読者は神様だが， Oh ! 
MZ は神様の神様である j 以上です。 

斉藤雅彦 （16) 新潟県 
そうまでいい切られると自信がないのですが。 
♦記事の内容が難しいのが多くてちょっと不満。 
初心者や女の子にもわかるようなコーナーを作っ 
てほしいな 一。 XI の本ってわりと少ないからあな 
ただけが頼りなの。大川原舞 (21) 神奈川県 
いや 一， こういうのに弱いんですよ。 
♦ブラック turbo を購入しました。こいつをフル活 
用するには Oh ! MZ は不可欠なので，これからも 
よろしくお願いします。佐藤昭仁 （14) 福島県 
こちらこそよろしく。 

♦はじめまして！ 今月から読み始めました。就 
職にいいのではないかと思ったのですが，はっき 
リいって全然それとは関係ない気がしました。で 
もがんばって読んでみようかな一と思うので，よ 
ろしくお願いしま一す。久保里美 （18) 北海道 
そうですか？私は就職に役だちましたけど。 

♦ 9 月21 • 22日の両日は私の通う北多摩高校で北 
高祭が行われます。2月号に載った松本吉紀君と 
もちろん私も所属しているコンピュータ研究同好 
会では，今年もゲームで客寄せをやるようなので 
2人の愛機，銀と赤の XIC は出展せざるを得ない 
でしょう。暇な方 ，X 1 C に付けるプロッタプリンタ 
が見たい方，エグゾア II は絶対に勝つ自信のある 
方などぜひ遊びにきてください。 

栗原健次 （17) 東京都 
文化祭のシーズンですね。お近くの方はぜひ 
行ってみよう。 

♦ Oh ! MZ を読んでいると，シャープのパソコン 
の知識がドバッと頭に入って充実した気分を味わ 
える。ところで「マシン語体操」は XI のマシン語 
をやっているのか MZ のをやっているのかわから 
ないのでハッキリさせてほしいです。 

黒川龍 （16) 山口県 
マシン語体換は S -0 S 対応全機種用のマシン 
語搆座なのです。 

♦私はふと考えていた。なにを考えていたかとい 
うと「2進数」，「8進数」，「10進数」，「16進数」 

の起源についてです。私が考えるには2進数はド 
ラえもんが数を数えるとき便利なように，8進数 
はタコさんが数を数えるとき便利なように，|〇進 
数はむろん人間のため，では16進数はなんである 
のか？こんなことを考えていると夜も眠れぬ今日 
このごろです。 塩谷哲彦 （16) 福島県 

う一ん「ヤ j のっく入が麻雀するためでもな 
さそうだし。 

♦やりましたねシャープさん。 XI / tu 「 bo 用 FM 音 
源ボード！さらに XI のミニプラグキーボードを 
利用して専用のキーボード（鍵盤）なんかがあっ 
たら楽しいでしようね。 XI がそのまんまシンセに 
変身なんてね。 近藤兼光 （32) 愛知県 

これが灾現すると，なかなか面白いシステム 
になりそうですね。 

♦テレビドラマや映画などでコンピュータの話が 
出てくると，いきなり目が真剣になって聞き耳を 
立て，アラ探しをしてしまったりする人はいませ 
んか？また SF などで「悪のコンピュータ」みた 


いなのが出てくるとなんとなく反感を覚えません 
か？ 本多泰啓 （16) 和歌山県 

そうですね。コンピュータってなぜ悪役にさ 
れるのでしょうか。 

♦上田染谷丘高では7月12〜14日に文化祭があり， 
私が長を務めるマイコン同好会の展示も成功を収 
めました。私は1985年丨月号の SPS 製の Music ル 
ーチンや「試験に出る XI 」を参考にした G-RAM 
スクロールを使用したデモを作りました 。 Oh ! M 
Z は役に立ちます。 小林敦 （17) 長野県 

活用してもらえてうれしいですね。 

♦ Oh ! MZ には XI の VRAM は I / O につながって 
いるが CLS 以外はむしろ速いようなことが書い 
てあったけど，テクノ〇リスには I / O につながっ 
ているから遅くても仕方がないようなことが書い 
てあった。どちらが本当なんですか？ 

関根弘 （19) 埼玉県 
I / O 命令が遅いのは，実ですが， X 1は 128 K 
バイトのアクセス空間を持っているので使い 
方次第で速くなるのです。 

♦私は思うのであります。ザナドウがそんなに面 
白い RPG なのでしょうか。私には単なる苦痛なの 
であります。だって単にビシビシ敵キャラを殺す 
だけでしょ。フアンタジアンだって途中までは本 
当に面白いのに，クラスチェンジをする前に5階 
まで行けてしまうためクラスチェンジ後はキャラ 
を殺すための苦痛になってしまう。ようするに単 
なる殺し合いだけではいくらアイテムやキャラが 
多くてもつまらない。だからリグラスはよいと思 
う。 石浜幸哲 （16) 愛知県 

確かに RPG もパターン化して，殺伐としてい 
ないものが新鮮に見えてきます。 

♦マシン語体操のおに一さんへ。今度はテキスト 
アドベンチャー作成ツールを作ってください。で 
ないと清水和人賞は永遠に眠るはめになりますよ。 

坂本隆志 （17) 青森県 
テキアベほど S - OS 向きのゲームはありませ 
ん〇読者のパワーに期侍します。 

♦フツフッフッ， S -0 S 対応テキストアドペンチ 
ャー コンストラクシヨンができたよ一ん。しかし 
データ作成部分が BASIC だ！コマッタ。 

山下敦也 （15) 岡山県 
こんなときこそ FuzzyBASIC です。 

♦ 7 月号の紙田さん，8月号の西田さん，私もボ 
ード版 RPG のフアンですが，私のやってほしいの 
はクトウルフのアドベンチャーゲーム化です。ゲ 
ームを解くと発狂したりして。 

佐藤仁 （17) 静岡県 
先日，編集室でもタトウルフの RPG をやりま 
した。あの雰囲気も独得でいいですね。 
♦自分の XI で CP / M , 学校で MS - DOS を使ってい 
ますがやっぱり MS - DOS のほうがいいようです。 

XI 用の MSX - D 0 S とそれ用のソフトが出ることを 
期待しています。それと BASIC コンパイラはどう 
なったのでしょうか。高木佳史 （21) 群馬県 
本当にどうなったのでしょうか？ シャープ 
さん。 

♦ゴルフ道場の中川智哉氏に挑戦！ 僕はアルバ 
トロスの東コースでなんと II バーデイ，2イーグ 
ル，ノーボギーの15アンダーを出しました。あな 
たにこの記録が越せるか！ 別に読者の方でもか 
まいません。できたら誌上対決しましょう。 

小沢尚二 （15) 東京都 


武士 ( 16 )東京都 
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♦こんなゲームを待っている——といえば，いま 
はやはりネットワークゲームでしよう。ソフトハ 
ウスがゲーム発売と同時にそれ専用のネットワー 
クを開局して，そのネットワーク上でほかのブレ 
イヤー相手に PRG をするというものです。 PRG は 
やっぱり人間相手が面白いようです。 

大野二郎 （19) 静岡県 
♦エー イ，いまのリアルタイム ゲームは 速くて難 
しくてよ一わからん。そこで「ああ，懐かしの名 
作」と題し，ブロックくずし，インべーダー，へ 
ッドオンなどをまとめて I 枚のディスクにして4, 
800円でどうだ！ 井戸田篤 （22) 岐阜県 

♦いまや ゲームと いったら RPG だの， AVG だのと 
ねちっこいものばかりですが，私はやっぱりアク 
シヨンだ。なかでも好きなのはシューティングも 
のですが，マク〇スや〇ボを見てもわかるように 
パワーアップの要素がない！ 時代は燃えるよう 
なパワーアップを求めているのです。 

加藤悟 （16) 秋田県 
♦私がぜひ XI にもあったらと思うゲームはアップ 
ル用に出ている 「 M . C . P .」, というゲームです。こ 
れはコンビュータの中の人間とお付き合いするソ 
フトで， L . C . P •と呼ばれる「人間」が CRT 上で 
食事したり，テレビを見たり，ピアノを弾いたり， 


♦なにかとシャープと縁の深いファミコンですが， 
ファミリ ー BASIC ( NS - HuBASIC ) のテープフォ 
ーマットが MZ -80 K / C のものと同じということは 
ご存じでしたか？ 詳しい記事が三オブックスの 
『バックアッブ活用テクニック PART 3』 にありま 
す。同害にはファミリー BASIC を SWORD に読ま 
せる方法も載っています。6502のわかる方，どう 
でしようか SWORD 上で6502クロスアセンブラな 
ど作られては？ SWORD にとってファミコンは 
なかなか面白い周辺機器だと思うのですが。 

大谷雄史 （18) 大阪府 
ファミコンは嫌という人も多いようですが， 
こんな使い方は面白そうです。 

♦今月の THE SENTINEL を読んで感動のあまり身 
震いしてしまいました。2500版“ SWORD ” は予想 
をはるかに越えたデキだし，ローカル変数などが 
使える BASIC , さらにはキャリー•ラボさんまで卷 
き込んでしまうとは！湯浅夏樹 （18) 東京都 
S - OS も2半目，正念場はこれからです。 


ときには ユーザーに「ゲームで もしませう j なんて 
いってきたりするのだそうです。戦いだけの RPG 
に飽きたら，こんな環境ソフトもよいのではない 
でしょうか。私はど一もハイドライドタイプの チ 
ャカチャカした RPG にはのめり込めません。やっ 
ぱリウイザードリィタイプの RPG のほうがじっ 
くりとのめり込めるようです。 

山崎潤一 （17) 福島県 
♦私の待つゲームはズパリ 「 CPU シミュレータ」 
ですね。その内容ですが，プレイヤーが CPU とな 
りゲームスタート。 Z 80 編では解説書を片方にま 
ずは000 Oh をアドレスバスに出力し，同時に Ml ピ 
ンを L にする，といった具合に命令をフェッチし 
実行していくのです。骨の折れるゲームですが， 
CPU の動作は完璧にのみ込めます。なお，レベル 
I ではクロックも 2 MH Z でタイムは気にせずにす 
みますがレベル2では 4 MH Z となり，制限時間が出 
てきます。さらにレベル3では INT がひんぱんに 
入るためレベル3をこなすようになれば，もうあ 
なたは Z 80 の神様です。さらにフェッチした命令 
が16進で返ってくるレベル4をクリアしてしまう 
と，もはやあなたは数100円の価値しかないただ 
の LSI になってしまうのです。 

斉藤国博 （16) 茨城県 


♦子供が生まれてからというもの，妻の XI に対す 
る目がより厳しくなり触れる時間が減少する一方 
です。ようやく今ごろになって S -0 S に興味がわ 
き，入力したい一念でがんばっています。 

渡辺真澄 （27) 岐阜県 
奥さま，ご主人の趣味にご理解を！ 

♦ 19 日に Oh ! MZ が届くやいなや数時間で MZ -25 
00“ SWORD ” を入力し，起動した。感動のひと言 
である。480円十数時間でこういうものが手に入 
るとはまったく最高である。制作者に感謝，しか 
しやはり BASIC のような RAMDISK がほしい。これ 
はもう必需品である。目黒弘行 （19) 新潟県 

そうですね。誰か共通 I / O ポートに XI 用 EM 
M を接続してくれませんかね。 

♦ MZ - 2500に漢字対応の“ SWORD ” が出てしまっ 

た。もちろん turbo 用も出るに違いない。グラフィ 
ックのパッケージも発表されるし他機種にも移植 
されていく。 CP / M を追い越すのもすぐのようで 
すね。ところで私は現在“ SWORD ” にトランジ王ン 
トコマンドルーチンを追加して， CP / M ごっこを 
しています。 熊本健吾 （17) 長崎県 

“ sword ” を ri 分なりに使いやすく改造し 
ている人も多いようですね。心強い限りです。 
♦僕は8月号の Oh ! MZ を読んでえらく感心して 
しまいました。いつのまにか S -0 S シリーズはそ 
の奥深い実体をしだいに現し，ついに究極の地へ 
と旅立とうとしているではないですか。もう僕の 
手の届かないところへ行ってしまうのだろうか？ 
ムムム，早く打ち込まねば！ 

吉仲正和 （15) 奈良県 
S - OS は常にユーザーの手の屈く OS でありた 
いと思っています。 

♦ S -0 S はついにグラフィックまでサボートする 
んですか！ 凄いですね（特集で MS - DOS にあれ 
だけいったもんね）。ところで 80 K の 80 X 50 に合わ 
せるんですか？ 吉田研一 （16) 神奈川県 

THE SENTINEL 卜.で紹介したため MZ - K / C / 
7〇〇ユーザーに 誤解を招いたようですが， MA 


GIC は S - OS 保⑴のパッケージではありませ 
ん〇 

♦どうしてしっかり考えたバージョンアップを S - 
0 S にしないのですか？ E - MATE の LNPRT ルー 
チン，いったいなんですかあれは。あ一いうのこ 
そサブルーチン化すべきでしようが。それからプ 
リンタの出力が満足にいかないし， Z 80 特有の R 
ST 命令も禁止しているし。 0 S の義務がわかって 
いるなら早くバージョンアップを！ でも「 XI 専 
用 S -0 S 要 j なんていやですよ。 

堀僚嗣 （21) 大阪府 
S - OS は成设するシステムです。次期バージ 
ョンに対するご要嘈などもお侍ちしています。 
♦誤解を恐れずいってしまおう。 MZ - 2500の標準 
仕様は RAM 256 K バイト ， VRAM I 28 K バイト，辞 
書 ROM , バレットボードを装備したものである。 
当然 I / O ボックスも持っていなければならない。 
つまり，シャープは未完成品を売っているのであ 
る。かくいう私の MZ - 2500も標準仕様となるまで 
あと2つ足りない。 MZ - 2500の次のパージョンで 
はこういうことはないように願いたいものである。 

高島靖夫 （23) 大阪府 
なるほど。オプション攻嚷はもうたくさんで 
すよ。 

♦今ごろになって FORTH がわかってきました 。 M 
Z -700 のシンプルな VRAM 切り換えを行い最強の 
FORTH を作ろうと思っています。でも今は CG 映 
画を作るのが先であった。学祭までにできるかな。 

八尾昌幸 （18) 大阪府 
どのような作品ができたのでしようか？ 

♦この秋には turbo の上位機種が出ると信じている。 
そして以下の仕様であることを要望する。320 x 
200ドットで4096色 （8 色4画面）， FM 音源ステレ 
才8重和音， 2 HD ドライブ2基， JIS 第丨，第2水 
準漢字 ROM , モデム，ビデオデジタイザ，メイン 
メモリ 256 K バイト，マウスを装備。できないとは 
いわせないぞシャープさん。 G - RAM は容量的に同 
じでほかのもオプションで出てるんだもの。 

野原勉 （20) 千葉県 
といいつつ， 秋が近づいてきました。さて？ 
♦こんにちは，私が新車の New VT を事故で大破 
した岡田です。くそ一学生なのに50万円も払わな 
ならん（ローン+修理代)。ま一今年中にはなんと 
かなるやろ 一。 またディスクが遠ざかってしまっ 
た。 岡田信行 （16) 大阪府 

おやおや，‘れ故には気をつけて。 

♦しかし Oh ! MZ がロー ド化の最も進んでいる雑 
誌といわれ，それを否定し続けていた僕も8月号 
を読んだときは思わず自分がアニメ誌を買ったの 
かそれともマイコン誌を買ったのか確認してしま 
いました。だってアリオンでしよ，めぞんでしよ， 
STUDIO MZ は本だ一らんどでしよ。 

高橋哲史 （16) 福岡県 
Oh ! MZ は r フアンロード j ができる前から 
アニメ制作搆吨もやってました。ロード化と 
いうのはイ、適与と思われます。 

♦WORD POWER の ローマ字モードで 「FUJITSUUj 
と入れて XFER キーを押すと「富士通 j と出た。ほ 
かに「東芝」もあった。しかし「日〇電気 j はなか 
った。さすがシャープですね。 

斎藤真二 （12) 山梨県 
なんだ「本」かと思ったのに「立 j のほうで 
したか。 
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♦ 8 月号の「フアンロード」に Oh ! MZ が出てい 
た。こうなったら STUDIO MZ にローデイストの部 
屋を作るしかない。 砥上龍也 （17) 福岡県 
4月号でひと言書いただけでどうしてこんな 
ことに！ 

♦ 「リヨン伝説フレア」はよかった 。 「Call me 卜 
ウナイト」もよかった。「ガル フォース」 は笑えた。 
「亜美3」が見たい。ふっ，そうさ俺は「あの筋 j 
の人間さ。 高山稔 （17) 神奈川県 

r Call me - j がよかったというようでは 

まだまた "〇 といいつつ r なりす スクランブル」 
に期待してます。 

♦あのぅ，お願いがあるのですけれども1984年8 
月号のオセロ 700を S - OS に移植してもらえません 
か。 保科康広 （16) 新潟県 

五目並べの次はオセロもほしいですね。誰か 


挑戦者はいませんか？ 

♦自衛官になって4力月，ああもう700には触れな 
いのかと思っていたら倉庫に 80 C があるではない 
か！ 棟方正治 （18) 青森県 

北の守りはこれで万全ですね。 

♦なぜか日立の寮のある部屋にシャープの機械が 
2台もある。こんなことでいいのだろうか。 

村路広志 （19) 神奈川県 
編集室には某98が1台入った。こんなことで 
いいのだろうか。 

♦峰岸さんも 「プロコン」 を知ってたんですね。 
あの雑誌は紙が上等で，今の Oh ! MZ みたいに2, 
3力月すると本が開きづらくなるということもな 
かったし，スターブログラマーを目指す本だった 
からブログラム（特にゲーム）を作るときには刺 
激になる本でした。なんで廃刊になつちやつたん 


幸治 （18) 福岡県 



だろ。 郷司謙一 （17) 神奈川県 

紙質が悪くても Oh ! MZ は不滅 （ ？ ） ですの 
でご安心を。 


Jmm 

ぼくらの掲示板墨 


掲載ご希望の方は，官製ノ、ガキに項目（売る.買う•氏名•年齢.連絡方法…… ) を明記してお申し込みください 
.の売買，交換については，いっさい掲載できません。 

り引きについては当編集室では賁任を負いかねます。 

•応募者多数の場合，掲載できない場合もあります。 


仲 睡 


★私，京都女子大学で短大生活を送ったあと病院 
でコンピュータとともに医療事務を行う22歳で 
す。そんな私がついに MZ - 2500を手に入れまし 
た。まだ丨週間目ですので，右も左もわかりま 
せん。どうか励ましのお便りください。 ® 194 
福井県敦賀市松島130号 207-2 松本美和 （22) 

★「 M . M.Mj 発足のため MZ - 2000/2200ユーザー 
の方を求めています。他機種の方も希望が多け 
れば機種別にスタートします。よろず屋サ〜ク 
ルですのでいろいろなことをやっていきたいと 
思います。入会希望者はプロフィール記入，60 
円切手同封の封軎でご連絡ください。 ®06 l-ll 
北海道札幌郡広島町字西の里番外地菅原格 
(14) 

★「Super MZ CLUBj では会員を募集していま 
す。当クラブではビジネス， S -0 S , ソフトの 
研究•情報交換を中心としています。最終的に 
2500をフルに使いこなせるようにしていきたい 
と思っています。参加希望の方は上記の得意分 
野を害いて下記まで。必ず返事は出します。® 
670兵庫県姫路市伊伝居 442-2 有馬秀樹 （15) 

★ MZ - I 500 をお持ちの方，情報交換しませんか。 
人数が集まれば会誌などを発行したいと思いま 
す。連絡は往復ハガキで。忝 930-02 富山県中 
新川郡立山町米沢 6-22 林邦行 （12) 

★「マウント XI j では XI 系のユーザー会員を募集 
しています。主な活動はゲーム，ワープロです 
がそのほかの分野についても活動しています。 

2力月に丨回会報を発行し情報交換を行います。 
60円切手を同封して連絡してください。 ®4 I 6 
静岡県富士市中丸 749-9 桧山周平 （24) 

★ XI クラブ 「 PR | j では会員を募集しています。当 
クラブではゲームなどの情報交換などを中心に 
活動しています。詳しくは60円切手同封で下記 
まで。©570大阪府守口市八雲東町2 丁目272 
メロディーハイム大日606林義仁 (19) 

★「す一ば一 MZ のクラブ j (仮称）では MZ - 2500ユ 
—ザーおよび2500を買おうと思っている方を募 


集します。不定期ですが会報を発行いたします。 
詳しくは60円切手と自己紹介を同封のうえご連 
絡ください。®252神奈川県綾瀬市深谷 4595-6 
増田耕一 （18) 


売ます 


★モデム MZ - 丨 X22 + RS -232C ケーブルを I 万 5 千 
円で。連絡は往復ハガキで。娜 373 群馬県太田 
市金山町 34-33 斎藤勝年 

★ MZ-I500, 2500 用ボイスボード MZ-IM08 を 5 千 
円で。連絡は往復ハガキで。 ©699-51 島根県 
益田市神田町イ -165-3 杉原啓之 

★ XI 用拡張 1/0 ポート+漢字 ROM を I 万 5 千円以 
上で。連絡は往復ハガキで。 ®66 l 兵庫県尼崎 
市瓦宮字三井田 133-8 宮崎方梅垣浩記 

★ XI 用 3 インチドライブ CZ-300F (増設済）+ 
ケーブル + NEW BASIC+ ディスク丨〇枚を 4 万 5 
千円で。連絡は往復ハガキで。® 662 兵庫県西 
宮市市庭町 3- 1 7-302 細谷実 

★ MZ- 2000 用 QD ドライブと I/F+ ディスクケース 
をセットで丨万 5 千〜 2 万円で。連絡はハガキ 
で。 ® 192-03 東京都八王子市南陽台 2-7-11 
須藤義一 

★ 14 インチカラーディスプレイ MZ-IDI5, プリン 
夕 MZ-IPI4, トラクタフィーダ MZ-6PI3, 漢字 
ROM MZ-IR23, 辞窨 ROM MZ-IR24, RAM ファイ 
ル MZ-IRI8, 拡張ユニット MZ-IU08, ジョイス 
ティック MZ-IX03 を定価の半額以下で売ります。 
できれば手渡し可能な方を望みます。連絡はハ 
ガキに希望の品と値段を明記して連絡を。® 162 
東京都新宿区赤城下町 81 北原アパート新名博 
士 

★プリンタ CZ-800P と GP-700M を各 2 万〜 3 
万円で（ケーブル，マニュアル付)。連絡は往復 
ハガキで。® 232 神奈川県横浜市南区別所 6-2- 
507 藤曲徹 

★ MZ-I500 用プリンタ GP-500Z + ケーブルを 2 万 
円で。 RAM ファイルを 6 千円，ボイスボードを 
5 千円で。連絡はハガキで。® 380 長野県長野 
市浅川西条 927 古越憤 


買います 


★「それ行け！ Xlj 創刊号と Vol . 2を1,000円 
(送料込）で。連絡はハガキで。忝 379-02 群馬 
県碓氷郡松井田町二軒在家1684佐藤勝彦 

★ XlturboII 用 JIS 第2水準漢字 ROM CZ -8 BK 4 
を3,500円（送料込）で。連絡は往復ハガキで。 
忝627京都府中郡峰山町御旅17中瀬晶久 

★ MZ - 2000用漢字 ROM MZ - IR 03 を I 万3千円で。 
連絡はハガキで。® 182東京都調布市深大寺東 
町 7-34-3 嵯峨吉博 

★ CZ -8 PP 2 用の漢字 ROM を3千円（送料別）で。連 
絡はハガキで。想545大阪府大阪市阿倍野区旭 
町卜 2- 12鈴木松雄 

★ PC - 1260, PC -1261 ( 完動， マニュアル 付）のも 
のを各7千〜 I 万円で。連絡は往復ハガキで。 
©689-53 鳥取県日野郡日南町湯河267増原 
聡 

バックナンバー 

★ 1985年5〜 II 月号，1986年2 • 3月号を各1,000 
〜1,500円で。切り抜き不可。連絡は往復ハガキ 
で。 ®5 I 8 三重県上野市大内344生駒康志 

★ 1985年6月号を1,000円（送料込）で。切り抜き 
不可。連絡は往復ハガキで。®154東京都世田 
谷区太子堂 5-24-9 桑島信哉 

★ 1985年6月号を1,000円（送料込）で。切り抜き 
不可。連絡はハガキで。艰398長野県大町市六 
九町4195伊藤哲也 

★ 1985年6 .8 月号，1986年2月号を各1,00〇〜 
1,800円で。切り抜き不可。連絡は往復ハガキで。 
忝415静岡県下田市柿崎 33-36 野口直 

★ 1985年6〜 II 月号を1,000円（送料込）で。プロ 
グラムが読めれば 0 K 。 連絡は往復ハガキで。® 
689-11 鳥取県鳥取市桂木 245-30 砂田陽一 

★ 1985年6〜12月号を各800〜1,200円で。切り抜 
き，汚れは多少なら可。連絡は手紙で。想50卜01 
岐阜県岐阜市寺田 63-1 森岡哲矢 

★ 1985年6月〜86年2号までを各1,000円（送料 
込）で。切り抜き不可。連絡は往復ハガキで。 
■>680鳥取県鳥取市行徳ろ831森下宽和 


STUDIO MZ 185 












FILES oniMz 


このインデックスは，タイトル，注記一著者 
名，誌名，月号，ぺージで構成されています。 
今月は XI 関係の記事が相変わらず豊富なよう 
です。そのほかの記事では， PCH 600 K をメモ帳 
に使というと記事に注目しておきたいですね。 

参考窨籍 

I/O 工学社 

ASCII アスキー 

enter 東京書籍 

0A パソコン電波新聞社 

コンブティーク角川窨店 

テクノポリス徳間害店 

PiO 工学社 

POPCOM 小学館 

マイコン 電波新聞社 

マイコン BASIC Magazine 電波新聞社 

LOGIN アスキー 



今月紹介するのは BASIC の入門書です。書名中にある， 
"フォーミュラ”というのは•‘基本公式”ということで， 
この本のなかには40行以下のショートプログラムが丨60種 


一般 

► なんてったって，パソコン通信パソコン通信周辺機器ガイド 

音 ® カブラからモデムへと時代は移った。モデムについて紹介する c — 編集部， 
POPCOM, 9 月号， I73-I8lpp. 

► なんてったって，パソコン通信スーパービギナーのためのパソコン通信入門 
アクセスするまでを徹底ガイドして，パソコン通信の楽しさを紹介する：——編集 
部， POPCOM, 9 月号， 156- 172pp. 

►これで マシン 語がわかる！ 

演算命令を使いこなそう。 ADD 命令の復習とほかのいくつかの演算命令を説明す 
る。 —— SHING0, マイコン BASIC Magazine, 9 月号， 48 -50pp. 

► MZ, XI 今昔物語 

これまでシャープが発売してきたパーソナルコンピュータの流れを，会話形式で紹 
介する。 —— 矢野和代， enter, 9 月号， 70 -73pp. 

► NEW PRODUCTS CZ-8RLIS 

コンビュータコントロールが可能なランダムアクセスカセット録音機の登場 。—— 
編集部， LOGIN, 9 月号， I98p. 

►マシン語入門教室 

いよいよ Z80 の命令を説明しちゃうぞ編です，今回は LD 命令の話。 —— 編集部，テ 
クノポリス， 9 月号， 121 — 126pp. 

MZ - 的 K / C /1200/700/1500 

MZ-80K/C/1200/700/1500 

► CRAZY FIGHTER 

横 スクロール タイプの リアルタイム シュー ティ ング ゲームな のです よ。 —— コロ ツ 
ケ，マイコン BASIC Magazine, 9 月号， 1 15-116pp. 

MZ-80K/C/1200 
► 靈験•火渡り ゲーム 

修験者は山奥で火渡りの修業をするのだった r— さんじゅういち， PiO, 9 月号， I3lp. 

► TAML0N 

とにかく敵に補まるな ！—— AHOMk.2, PiO, 9 月号， 130—131 pp. 

MZ-700/1500 

► PAD GAME 

ボールをホールへ入れるの だ。 —— イガ•グリコ，マイコン BASIC Magazine, 9 月 
号， I I7p. 

► Break Block 

敵が画面の隅へ行く前にアタックだ！ —— 香月舞，マイコン BASIC Magazine, 9 月 
号， I I8p. 

MZ-1500 

► シャープを救え！！ 2 

サラ金屋さんをシャープに近づけるな！ —— 田村しんいち，マイコン BASIC Maga 
zine, 9 月号 ,119 一 120pp. 

► なんでも Q&A シャープ MZ シリーズ編 

MZ-I500 用のアセンブラのソフトについて。 —— シャープ，マイコン， 9 月号， I65p. 

MZ - MB / 2000/2200/2500 


載っています。内容は数値計算，シミュレーション，デ 
一夕管理など基礎的なことがほとんどですが，「逆行列を 
求める」とか r ハッシュ テーブルを作る」など， ちょっ 
と興味を引かれるものも盛り込まれています。この本は 
PC -9801 シリーズに対応したものの XI 版だということも 
あって，害名には「 XI ターボ/ XI シリーズ」とあるものの 
XI に固有な命令はほとんど使われていません。確かに， 
BASIC の基本を学ぶという点からすれば，機種によって違 
う機能は邪魔になることもあるでしょう。しかし，少し 
でもいいからどこかに PCG や漢字処壬里などについて窨いて 
おいてほしかったとも思います：なお，本質的な問題で 
はないのですが，リストはすべて8ビン（と思われる） 
プリンタで打ち出されています。最近発刊された本なの 
ですから，見やすさの点からもできることなら24ピンの 
プリンタを使うべきだったのではないでしょうか。 ( T ) 

XI ターボ/ XI シリーズフォーミュラ160 
岸田孝一監修 SRA マイコン•クラブ&小林京子編 
学習研究社刊 
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MZ-80B/2000 
►チェックサムブログラム 

BASIC. WICS 共用チェックサムプログラムです。 —— 編集部， PiO, 9 月号， I77p. 
MZ-80B/ 2500 

► 3-D MZ MAZE 

座摞が〇になるまで迷路を歩き続けるというゲームです。一芦高恵美，マイコン 
BASIC Magazine, 9 月号 ，121 — 122pp. 

MZ-2000/2200/2500 

► Mr.ROCK STONE の冒険 

有名な考古学者ストーン博士はセィナルガイコツを探しにアフリカへやってきた。 
—— 馬場光男， ASCII, 9 月号， 226-227 • 266—274pp. 

►フルーツフィールド 

レム君はフィールド内のフルーツをいつまでも拾い集めるのでした。 —— cee-emoo, 
PiO, 9 月号 ， 53 —62pp. 

►ラウンドボックス 

箱を回転させて，中にあるダイヤを隅っこに移動させてください。 —— SKYKID. 

K , マイコン BASIC Magazine, 9 月号 ，123 — 124pp. 

MZ-2200/2500 

►「Jj 

新生物 「J j の侵入をくいとめろ！ —— 宮内理，マイコン BASIC Magazine, 9 月 
号 ，125 - 126pp. 

MZ- 2200 

► TINY • RPG 春の国 

バンパイアを倒し . お姫さまを生き返らせるのじゃ！ —— 吉村朋之，マイコン ，9 
月号 ，264 — 267pp. 
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MZ- 2500 

► REFLECTION BALL II 

ボールを反射させながら，旗を取ってください。——とますにこらす，マイコン 
BASIC Magazine , 9月号,127 — 129 pp . 

►なんでも Q&A シャープ MZ シリーズ編 

グラフィック画面での横スクロールについて。——シャープ，マイコン，9月号， 
I 64 p . 

►マシン語ダンプ入カツール 

マシン語ダンプ入カツールであるメモリェディタを紹介する。——山原水鶏，1/0， 

9月号, 299 -303 pp . 

►なんたって，パソコン通信 MZ - 2500通信機能活用法 
数多くの機能を満載した MZ - 2500シリーズの持つ「通信機能」について紹介する。 
-シャープ， P 0 PC 0 M , 9月号，186— 187 pp . 

► T 0 T 0 NGA 

タイミングが必要なバズルゲームです。—— T . F , PiO , 9月号，131 — 133 pp . 

XI / C / D / F / G / turbo / H 

XI シリーズ 

► SDI 

上から落ちてくるイン石をレーザーで破壊してください。—— KIDWAS , PiO , 9月 
号，133 - 134 pp . 

►パリ アゲーム 

宇宙船を動かし.バリアや地面に接触させないようにしてください。——けちょけ 
ちょ， PiO , 9月号， I 34 p . 

►チェックサムブログラム 

リロケータブルなチェックサムブログラムです。——編集部， PiO ， 9月号， I 77 p . 
►オリジナル•プログラムじゃぐちとペンギン 

にっくき鳥たちにめげずに，ペンギンさんはヒヨコを助けるのでした。——赤岩英 
明， P 0 PC 0 M , 9月号，248 -254 pp . 

►ピョンピョン ポール 

下から飛び上がってくるボールでインベーダーをやっつけろ。—— WATAJUN , PiO , 
9月号，1 18-119 pp . 

► FROG STEP JUMP 

カェルのビョン吉は川を 3 つほど渡って家へ帰るのでした。——大西覚，マイコン 
BASIC Magazine , 9月号,168— 169 pp . 

►がんばれ BANNY ちゃん 

地下室に閉じ込められた編さんを救うぺく，バニーちゃんは立ち上がるのだった。 

-川口洋，マイコン BASIC Magazine , 9月号，166 — 167 pp . 

►ステレオタイプ FM 音源ボード•ハード&ソフト大解剖 
FM 音源ボードのハードと付属のソフトウェアの両面から，この魅力の商品を徹底 
解剖する。一高橋雄一，マイコン，9月号， I 73- I 80 pp . 

►なんでも Q & A シャープ Xl / turbo / II シリーズ編 
XI シリーズのディスクドライブを縦置きにしたい。——シャープ，マイコン，9月 
号， I 67 p _ 

►なんでも Q & A シャープ Xl / turbo / II シリーズ編 
XI シリーズ用の FM 音源ボードについて。——シャープ，マイコン，9月号， I 67 p . 
►なんでも Q&A シャープ Xl / turbo / II シリーズ編 
FM 音源と PSG の違いについて。——シャープ，マイコン，9月号， I 67 p . 

►キミのパソコンをパワーアップしよう！ XI シリーズの卷 
待望の FM 音源とカラーイメージボードを取り上げて， XI をパワーアップさせる。 
——編集部，マイコン BASIC Magazine , 9月号，51 -54 pp . 

► Do , ベーシック！！ エンター.テキストアドペンチヤー 

君はパソコンを買うために，夏葉原へと出かけるのだった。-白石誠 一， enter , 

9月号，84- 88 pp . 

►プログラムパック打ち上げ花火，暗算博士，コマまわし，にらめっこ 
楽しいミニプログラムが4作！——編集部， enter , 9月号，53 -63 pp . 

► JOY !! ジョイスティック 

ゲームにはジョイスティック！ というわけで，ジョイスティックを特集する。—— 
編集部，テクノポリス，9月号，90 -96 pp . 

► ログインソフトウェアコンテスト EMPIRE FLEET 

ちょっとシミュレーションな宇宙戦艦ロールプレイングゲームです。-黒田英嗣， 

LOGIN , 9月号，246 — 249 • 309 -318 pp . 

►ガッツで C . G . 

BASIC の CG プログラムを C - GRACE 共通 CG データに変換する。——編集部，テクノポ 
リス，9月号，137 — I 5 lpp . 

► ログイン版ドラゴンスレイヤー 

マップデザインコンテスト結果発表！——本多宏行 • 山崎弘貴 • 関并四五 • 釜本則 
久， LOGIN , 9月号,156-159 - 286 -300 pp . 

XI turbo シリーズ 

►なんでも Q&A シャープ X I / turbo / II シリーズ編 

グラフィックツール 「 Z's STAFF 」 について。——シャープ，マイコン， 9月号，166 
-167 pp . 

►なんでも Q & A シャープ Xl / turbo / II シリーズ編 


Xlturbo モデル 10 に 2HD/2DD をつなぎたい。 —— シャーブ，マイコン， 9 月号， I67p. 
XI turbo 

►なんてったって，パソコン通信 Xlturbo でパソコン通信ホスト局を作ろう 

これさ.えあればらくらくパソコン通信のホスト局になれる「コスモステーション」 
について紹介する。——シャープ， P0PC0M, 9 月号， 188 — 189pp. 

ボケコン 

PCH 2/13/14 シリーズ共通 
► ボケコンコーナー Audio Timer 

オーディオタイマーを作ってしまおう。——近成人， P0PC0M, 9 月号， 222 -223pp. 
PC-1245/1250 ハ 251/1255 
_独 ^ T 土芦 

異剣勝負です。——伊藤直広， PiO, 9 月号， 141 一 143pp. 

PCtI 245/1250/1280/1350 シリ-ズ 

►ボケコンマシン語入門講座 

ESR 独特の複合命令 （ 丨命令で 2 つ以上の動作をする命令）を解説する。一編集部 
0, P0PC0M, 9 月号， 22 Ip. 

PC-1245/1251 
► バレーボ•ールゲーム 

もぐら叩きみたいなゲームですが，バレーボールです。—— Y.Toida, マイコン BA 
SIC Magazine, 9 月号, I72p. 

PC-1250/1251/1255 
►戦艦大和 

大和の使命は地球侵略者の魔の手から地球を守ることだった。——古川章， PiO, 9 
月号， 144 — 146pp. 

PC-1251/1255 

►フルーツフイールド 

レム君を操ってフルーツを拾ってくださいナ。—— SYO, PiO, 9 月号， 97-l05p. 
PC-1 260/1261 

►ザ • リバー 

川岸にぶつからないように上流へ向かって行くのだ。——出口隆之， PiO, 9 月号， 
147 - 148pp. 

PC-1350 

► PC -1350 用チェックサムプログラム 

チェックサムプログラムです——編集部， PiO, 9 月号， I64p. 

►ザ • コックピット 

フライトシミュレーションです。——匿名希望， PiO, 9 月号， 153— 154pp. 
►チャンピオン•カヌーレース 

ゴール目指してカヌーを漕げ。——生活指導公文， PiO, 9 月号， 151 — 152pp. 
►アメリカン•フットポール 

タッチダウンを決めるのだ。——益田治郎， PiO, 9 月号， 149 一 150pp. 

►電卓 コーナー ゴルフゲーム 

全 18 ホールの H0RI ゴルフコースで楽しもう.——堀俊雄， I/O, 9 月号， 304 p. 
►ポケコンコーナー 4 オクターブ MUSIC サブルーチン 
便利なサブルーチンです。——早川裕 _ ， P0PC0M, 9 月号， 221 -222pp. 
PC-1360/1360K/1425 

►らんだむふぁいるシャープ PC-I360K/ 1360 
文節変換で漢字処理ができ，図形も描けるボケコンが登場した。一編集部 ， TOP 
COM, 9 月号， I35p. 

► NEW PRODUCTS 文節変換もできるボケコン発売 

日本語文節変換をボケコンレベルで可能にした PC-I360K と，その他 2 機種の PC- 
1360, 1425 が発売された。——編集部.コンブティーク， 9 月号， I82p. 

PC-1401 
► スパルタン T 

出た〜！ スパルタン T ! 楽しんでいただけましたか。——寺本宏史， PiO, 9 月 
号， 155 — 157pp. 

PC-1450 

►人並ぺゲーム Part II 

人を並べてください。——平井真二，！ 3 iO, 9 月号， 158 — 159pp. 

PC-1500/1501 

► Search a key 

5 階建てのビルに入り，カギを探し出すのだ。——エ藤和義，マイコン BASIC Ma 
gazine, 9 月号， 173p. 

PC-1600K 

► PC - I 600 K 使用レポート（ミニワープロへの応用） 

PC-I600K の特徴のひとつである漢字を利用して， PC-I600K をメモ帳にしてしまう。 
—米持尚，マイコン， 9 月号， 192 — 194pp. 

►手づくりプログラム集 5 題簡易メモ帳プログラム 

フロッピーディスクまたは RAM ファイルに記録して，検索も容易にすることが可能 
なメモ帳です。——塚田洋 一， マイコン， 9 月号， 361 — 365pp. 

►プログラミング講座 STRAC プランへの活用シャープ PC-1 60 0K 
ボケコンによる経営戦略策定プログラム。損益構造をプログラム化する。一尾高 
敏樹， 0A パソコン， 9 月号， 188- 193pp. 
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□RIVE ON 

このコーナーでは 本誌年間 モニタの ご意見を 
読者の皆様に紹介しています。今回は8月号 
0 S 特集の感想を中心にまとめてみました。 
0 S を環境という視点から捕らえようとする試 
みには，さまざまな反響が寄せられました0 
本誌では今後も 0 S を身近な問題として追求 
していきたいと思います。 

參目に留まる 0 S 関係の文献と害き出しは同じ 
でも「ソフトバスとしての 0 S 」 あたりからひ 
と味違ってくるのはさすが。初めてパソコン 
ユーザーに なろうとする人から機種の相談を 
受けたとき，どうしても理解してもらえない 
のが 0 S である。パソコン用 0 S は「ソフトバス」 
とはっきりいっているのはエライ！ ハンパ 
な記事じゃないですね。私も 0 S の説明のとき 
はもう自信が持てる。「——は98のために？ J , 
「 FODS は開発専用なのか」などというのも， 
みんな興味を持ちながら誰もが口にしなかっ 
たことではないでしようか。 

深川哲光 (27) MZ -731. MZ -1500 香川県 
參日本におけるパソコン用 0 S というのは， 
どうも低いレベルのソフト互換，データ互換 
にしかなっていないように思える。だいたい 


ごめんなさいの 

コーナー 

9月号グラフィックパッケージ MAGIC 
P.73 PC-8801 用変更点に誤りがありました。 

B003h COh — C2h 

に変更してください。また， MAGIC を NssBAS 
1 C から呼び出す場合には， 

B262h 00h — FBh 

BC3Bh 00h — > FBh 

に変更してください。 

9月号 Fuzzy BASIC 

RENUM コマンドにおいて引数を 2 つ与えた場 
合，リメンバーが行われませんでした。 

363Eh D5h —E5h 

に変更してください。また STR 文において常に 
エンドコード （00 h ) が窨き込まれてしまいま 
すので， 

4DF2h IAh - ^77h 


OS 自体もアプリケーションの質も，私とし 
てみれば「最低」のひとことに尽きる。 CP/M 
なんぞは問題外， MS - DOS にしたって数々の 
バージョンアップのあとに GEM なるものが出 
る始末である。エンドユーザーが「使う気」 

を出すような 0 S がほしいものである。 

渡辺敦哉 (19) X 1 F 埼玉県 
參特集の 「0 S がいっぱい」では，いろいろな 
0 S について解説がありましたが， 「 UNIX 」 が 
面白そうです。ほかの 0 S と違って 0 S の存在 
意義（この場合はプログラムの開発）がはっ 
きりとわかるし，「ユーザーとのインタフェ 
イスに重点 j というのも気に入ってしまいま 
した。 原英樹（丨6) MZ - 2000 千葉県 
♦わがまま 0 S 論には賛同するばかりです。 
ハードもどんどん進化していくのですから， 
「ブラウン管とキーボード j などに捕らわれる 
必要もないのです。 OS は今後，ホームオート 
メーションをも飲み込んでいくことでしょう。 
OS の進む道はコンビュータの進む道だ！も 
っと身近なところに話題を移すと，ゲームも 
0 S 上で動くべきなのです。そうすれば「移植 
されない」などという状況は解消できるので 
す。 田辺閑雄 （15) Xlturbo 東京都 
• 4 年前にソフトウェアバスとしての CP/M 
に関心を持ったことがあります。そのときは 
同一のソフトがさまざまな機種上で走ること 
が理想的状態だと思っていました。やがて8 
ビット，16ビットとマシンが異なっても，高 
級言語のソースレベルでは同一のプログラム 
も記述できると考え， OS の機能に関心が向か 
っていきました。現在，職場では98シリーズが 
全盛で MS - DOS ばかりですが，私は 0 S -9 +マ 
ンハッタンシステムを活用していますが，ほ 
かは誰も 0 S -9 を使いません。 「0 S -9 は確かに 
優れた 0 S だがマイナーでアプリケーション 
が少ない」というのが彼らの主張です。彼ら 
の多くは MS - DOS でワープロを使い ， NssBASI 
C でプログラムを記述します。98用のワープロ 
に優秀なものが多いのは私も認めますが， 0 S 
上で走るプロテクトのかかったソフトやその 
機種のみの言語には発展性を感じないのです。 

沖典男 (36) MZ - 2000 兵庫県 


4DF4h 77h —IAh 
に変更してください。 

8月号 MZ -2500 S-OS “ SWORD ” 

P . 148リスト5に FEOOh 番地以降が重複して掲 
載されていました。実際には FEIEh 番地以降 
は入力する必要はありません。 

8月号 SKY HOLIDAY 
MZ - I 500 用 HuBASIC で音を出す方法について 
数名の読者の方より報告がありました。以下 
の変更で1500でも音が出るようになります。 
3310 IF MU <30 THEN CALL & HCB 7 - 
3350 POKE & HCC 7, MUD.MUU 
3360 CALL & HC 9 C 
4 月号思考型ゲーム JEWEL 
JEWEL が MZ - 2500で動きません。これは LOC ル 


•いまだに 「0 S とはなんだろう」という疑問 
が残ります。なにをもって 0 S というのかもは 
っきリしない段階においては，この疑問は消 
えることはないでしよう。「これこそ本当の OS 
だ j と呼べるものがないため，適当に手抜き 
された 0 S と呼ばれるソフトが出回っていて， 
大多数の人はそれを本当の OS と信じているの 
かもしれません。そして新しい OS も古い不完 
全な 0 S をもとにし不完全さを受け継ぎ，新し 
い不完全な OS となっているのではないでしょ 
うか0 

OS の改正には新しい考え方，つまり最小限 
のことしかしないのでなく，たとえ蛇足であ 
ったとしてもさまざまな機能を求めようとす 
る心が必要とされているような気がします。 

板垣剛 (16) XI 群馬県 
•以前の S -0 S のソフトにはマシン語が不可欠 
だったので，活用できる人が限られていたの 
に対し， BASIC ができたことで參加者が何倍に 
も増えてくると思います。もちろんプログラ 
ミングできる人も増えるのでいっそう S - OS が 
盛んになるでしょう。ゲームソフトや実用プ 
ログラムをどんどん掲載し，より高度なもの 
へ向上していってほしい。というよりもこれ 
からは自分からレベルを上げていくぞ！ 

桜井毅 （15) MZ -1500 大阪府 
• 「試験に出る XI 」が第2部に突入しました 
ね。実戦演習ということである程度進んだら 
柷氏にテ_マを出してもらい，いろいろな条 
件 （ BASIC は100行以内とか，マシン語は 1 K バ 
ィト以内とか）を満たす読者の投稿を募集し 
てはどうでしょうか。「第1回その筋杯争奪 ) a 
中間試験」なんてね。 

内藤陽一 （19) XI turbo II 愛知県 
參霧降高原が8月号でお休みですが。いつも 
女性の目というちょっと違った立場からの記 
事で面白かったのに。白の XI に驚き，パイク 
に驚き，女子大生に……。女性もこの世界に 
徐々に入ってくるんだと実感し，こういう見 
方もあるんだと興味深く読ませていただきま 
した。 Yumi さんお元気で。いつかまた誌上に 
戻ってきてください。 

門脇隆成 （19) MZ -2500. X 1 C 鳥取県 


ーチンで A F レジスタを保存していなかったた 
めです。以下を変更してください。 


AI3Ih 

F 5 

PUSH AF 

AI32h 

EB 

EX DE , H し 

AI33h 

CD IE 20 

CALL LOC 

AI36h 

FI 

POP AF 

AI37h 

EB 

EX DE , HL 

AI38h 

C 9 

RET 


1985年8月号 ゲーム 開発 パッケージ BEMS 
BEMS は高速化を図るため画面表示に共通ル 
—チンを使用せず，内部に各機種専用ルーチ 
ンを持つことで共通化を実現しています。よ 
つて PC -880 I 版， SMC -777 版， MZ - 2500版の S 
WORD 上では，現在のところ BEMS は動作いた 
しません。 


バグに関するお問い合わせは 

Q03-E63-E230 

月〜金曜日16 : 00〜18 : 00 


お問い合わせは原則として，本誌のバグ情 
報のみに限らせていただきます0入力法，操 
作法などは マニュアルを よくお読みください。 

また，よく アドベンチャーゲームの 解答を 
求めるお電話をいただきますが，本誌ではい 
つさいお答えできません。ご了承ください。 
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Oh! 3D 
BASIC 特集 
投稿募集中 

▼不思議な不思議な立体グラフィック。どう 
して，赤いセロハンと青いセロハンのメガネ 

をかけて見ると立体的に見えるんでしょうね。 
このノウハウは，今月の特集でじっくりと説 
明されています。青いセロハンを通して青い 

光を，赤いセロハンを通して赤い光を見てい 
るというのはなんだか逆のような気がして仕 
方がないのですが，それこそこの世の摩 Pi 不 
思議なのでしょう。 

立体的に見えるようになるにはチョットし 
たコツが'必要ですが，コツさえつかめばもう 
そこはワンダーランド。ぜひ試してみてくだ 
さぃ。 

▼ FuzzyBASIC 入門が今月よりスタートしまし 
た。手作りならではの必殺の構造化 BASIC 。 

PROC , FUNC , なにソレ？と思っていた方 

も，どんなに便利なものなのか納得いただけ 
たことと思います。これで，いやでも綺麗な 
プログラムを書くことができるでしょう。 

また ， Fuzzy BASIC は，メモリへの窨き込み， 

読み出しがメモリ変数を使って簡単に行えま 

す。ということは，先月発表した MAGIC を呼 
び出してイ吏うのがとっても簡単なのです。 
▼ FuzzyBASIC と MAGIC を使って，あなたも立 
体グラフィックに招撰 i してみませんか 。 MA 

GIC のスピードをもってすれば，立体アニメ 
ーションなどお茶の子さいさいです。もちろ 
ん各機種ごとの BASIC でも大歓迎。 

▼今月の「北斗の男」はいかがだったでしょ 
うか。一子相伝の暗殺拳の習得を目指して， 
無法の荒野をあなたは悪を織滅するために歩 
くのです。なんとも魅力溢れるゲームとなっ 
て，いま Oh ! MZ に登場です。 

このゲームの魅力はなんといっても登場す 

るキャラクターが発する声にあります。声と 
いってもスピーカーから本物の声が出る訳で 
はなくフキダシ形式なのですが，これがまた 
おかしいことおかしいこと。爆笑すること請 
け合いです。編集室で大 A 気を博した楽しい 
ゲームです。 

▼今月はテーマを決めず，皆さんの力作をお 
待ちします。北斗の男のような，楽しい発想 
で皆さんの腕を奮ってみてください。 

なかでも MZ - 2000の投稿が少ないので， 
FORTH の山田氏やマシン語の泉氏も寂しそう 
です。ユーザーの皆さん頑張ってください。 
楽しいプログラムを一同心よりお待ちしてお 
ります。 

- • - 

投酿鞋領 

籲原稿には，住所•氏名•年齢•職業•連絡 

先電話番号 • 機種 • 使用言語 • 必要な周辺 

機^ •マイコン歴を明記してください。 

•プログラムを投稿される方は，詳しい内容 
の説明，利用法》できればフローチャート， 

変数表，メモリマップ（マシン語の場合） 

に，参考文献を明記し，プログラムをセー 
ブしたテープ（ディスケット）を添えてお 
送りください。また，プログラムは最低2 
回はセーブしてください。 

•ハードの製作などを投稿される方は，詳し 

い内容の説明のほかに回路図，部品表，で 

きれば実体配線図も添えてください。編集 

室で検討の上，製作したハードが必要な場 

合はご連絡いたします。 

•投稿#のモラルとして，他誌との二重投稿， 

他機種用プログラムを単に移植したものは 
固くお断りいたします。 

- • - 

あて先 

〒102東京都千代田区四番町 2-1 

日本 ソフ ト バンク 出版部 

Oh ! MZ 「〇 ㊀ 〇®」係 

SHIFT BREAK 

►渡しそこねた切符が3枚ある。べつにデートの誘 
いを断られたのではないが，まあ似たようなもの 
だ。ちょっと手加減し過ぎたんだよなぁ。次のプレ 
イのときにはもう容赦しない。天国行きの切符を叩 
きつけてやるのだ。以上^創造主の独白であった。 

探索者どもには聞こえていないだろうな。よしよし。 

( T . T .) 

►毎日午後1時過ぎに起き，自転車でアルバイト先 
へ。日によっては，夕方，また別の会社まで自転車 
で走り，午後10時過ぎに家に戻ってくる。午前1時 
ごろから PC -980 I の前に座り，午前5時30分からの 
アニメーションを見てから眠る。どうにかお盆に1 
週間だけの帰省。よい先輩にいろいろなところに連 
れて行かれた，暗い大学生の夏の物語です。 ( K . F .) 
►今年の夏はとうとう東京から一歩も出ないという 
悲喜劇的状態のまま終えることになりそうだ。毎年 
欠力、さな力、った帰省さえ^;ってしまった。なんとい 
うことだ。月日は百代の過客にして行きかう年もま 
た旅人なり，と松尾色焦もいっているではないか。 
いずれにしろ，お盆で人の少ない東京はなかなかよ 
ろしい。やはり小国 SS がいちばん。 （ K . Y .) 

►ワープロソフトをお使いの同志の皆さん。私は最 
近ふと，とんでもないことに気イ寸きました。日本語， 
英語を書いている間はよしとしましょう。日本語ワ 
ープロを使ってロシア語，ギリシャ語を 窨 こうと思 

1、立った日にはど一すりゃよっかんべ一？ 1文字 
害くごとに「ギリシャ」，単漢字 5 m 選択を繰り返 
すのでしようか？あ一ぁ。さいて一。 ( IMT ) 
►先日，ターナー展に行ってきました。8月最後の 
日曜日とあってすごい人出で，観てるだけで肩が凝 

ってしまいました。でも内容はなかなかのもので， 

特に水彩画がよかったです。正直いって，このター 
ナー展で初めてターナーの存在を知った芸術オンチ 
の私さえ観に来させてしまうという国立西;^!漉 
は，やはりスゴイと思ってしまいました。 （ Min ) 
►突然，電話の主は僕にこう尋ねるのでした。君は 

8年前のことを党えているかい，と。8年前といえ 
ば，僕は大阪に住んでいて，大阪弁力な人とな 
っていたはず，なんてことと共に相手の名前も思い 
出していた。彼は近くに住んでいるという。車に飛 
び乗った僕は彼の家へ行き，積もる話を肴にして， 

夜は更けるのだった。 （ R . S .) 

►映画のなかで使われないイメージソングって惨め 
だ。いったい誰がなんのためにこんなものを考えた 
んだ。まるで化粧品の C M みたいじやないか。「ナウ 
シカ」しかり，「ラビユタ j しかり。たぶん悪いのは 
監督の趣味に合わなし、歌を作った作詞家や作曲家だ 
と思うけど，映画て•'流れない歌でもファンはレコー 
ドを買うのだろうか。 （先月は1回休みの K 0) 

► ◎氏は見かけによらず美味しん ( re , 醬 油は故郷 
力、ら直^とのこと。そこて対 tJUi * iam の自然食品 
店で U 720 円の醬油を買ってきた。なんと，某大手 
が本釀造と銘打って出しているものの倍以 Ji の値段。 
これで私も美味しんぼ，と思ったのも束の間，冷蔵 
庫のなかに醬油をつけるべきものが見当たらない。 
う一む，美食家への道は遠く険しい。 ( M ) 

► 「_女のキス」を見ました。田舎者の私は渋谷 
シネセゾンてとこに初めて足を踏み入れたのですが， 

このクソ暑いのに冷房がろくすっいてなくてま 
いりしましたよ。それにしてもホモセクシャルを演 
じたウィリアム•ハートはすごかった〇「アルタード. 

ステーツ」のときのイメージが，まったく違う設定に 
もかかわらず，妙に重なったりして。 （よ） 

►遅ればせながら「子猫物語 j を見てきました。け 

な気な演技を見ていると，気の毒で，かわいそうで， 
子猫の人生に同情してしまいました。なんて勤勉な 
ネコ！それに比べて近所のネコたちのたくましい 
こと。ねこ屋( 三 味線屋の老舗)の手をすり抜け，夜 
の四谷を歩く姿はじつにアカヌケている。次はこん 
なネコたちを主役にしてほしいものです。 （ Mya ) 
►普段テレビと練遠な生活をしているとどうしても 
「ビデオは友だち」になってしまう。というわけで 

A V 機器のグレードアップをしたいのだが，生まれ 
つきの貧乏はいかんともしがたい 。 「PROFILE PRO 
が出た！ j , WPROmkIE はまだか」と世間の動きは 
騒がしく，純銀のビデオケーブルも私を誘惑する。 
とはいえ，その前に電波状態を改善せねば。 ( U ) 
►夏休みに友人が買ったばかりのフォルクスワーゲ 
ンのカブリオレをフルオープンにして，大自然をバ 
ックにカッ飛ばす。すると突然 ( 「あれクラクショ 
ンが突然鳴り出したまま止まらないよう一」 0 結局， 
かわいい女の子とこの車でお友だちになろうという 
真夏の夢は，注目のなかでハジをかいただけの悪夢 
となって心の奥深く刻まれてしまったのです。 （ N ) 
►夏の高校は2年驗して鎌 （ ？ ） 高校力獅。 

にとっては公共の電波を使っての布教活動， 
しかも勝てば“ありがたみ”までも伝えることがで 
きるという絶大なる CM 効果があるわけだから，力 
の入れがいもあろうというものだ。しかし，全国か 
ら集めたエリート集団による勝^とあっては，郷土 
の人たちも素直には喜べないところだろう。 （ @) 

►Oh ! MZ にまたひとりマドンナがやってきた。あ 
せりと羡望の•過巻く Oh ! FM 編集部には申し訳ない 
が，これが Oh ! MZ の実力なのですよ。さて，彼女 
の入社初仕事はなぜ力' WI 後言己を書くことだったの 
です。どれが彼女の軎いたものかわかりますか？ 
ところで況さん，マドンナとレーザーディスクはな 
かなかですよ。これはまた別の話„ ( T ) 
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microOdyssey 

ひさびさに話題の新刊書といわれているもの 
を買って読んだ。マスコミがいま，ついに新人 
類が文壇にも進出してきたと騒いでいる本であ 
る。これは過去に文学青年だったと自負してい 
る人にとっては，誰もが一度は挑戦してみよう 
と考えたであろう某新人賞受賞作品なのだが， 
読んでみるとこれがまた軽い。 

この本文中の表現を借りて表すならば，水素 
をいっぱいに吸い込んだ夜店の風船のように軽 
い，ということにでもなるのだろうか。もっと 
も主人公がコピーライターだということもある 
のだろうが，とにかく言葉を徹底的に遊んでい 
る c たとえば，主人公がアルバイトに出掛けた 
先の家庭に飼われている犬を見て，そのとき浮 
かんだイマジネーションをそのまま言葉にして， 
「戡細な，賢そうな目をしていた。人間に生ま 
れていたら東工大に入り，卒業したら旧 M に就 
職してコンピュータの研究に一生を捧げそうな 
犬だった j ということになってしまう。このよ 
うな表現が随所にちりばめられている。しかし， 
読んでいるうちになにかちょっと違うなという 
気になってしまう。これは新人類と呼ばれる人 
種にしか理解できないことなのかもしれない， 
などとも思ってしまう。 

この本を読んでいると確かに所々クスッと笑 
える。しかしその昔，もう一方の新人賞を受賞 
し，四部作を発表して人気を集めた作家の作品 
を読んで，ニヤリとした経験のある人であれば 
あまりにももの足りなく乾いた笑いであること 
を痛感させられてしまうことだろう。それでも 
なにかに懸命にこだわろうとして生きている姿 
は，真剣なだけにかえって笑えてしまう。そし 
て，最後のほうに出てくる会話のなかに次のよ 
うなセリフがある。 

「昔，ある哲学者がいっていたよ。『言葉は， 
ゲーム』だって，言葉は少しも世界を表現なんか 
しない。人間はただ言葉をもてあそんだり，も 
てあそばれたりしているだけなんだってね j 

もし，ここまで本当に醒めてものごとを考えて 
しまう人種がゾロゾロいるとすれば，いまのア 
ド ベンチャー ゲームなんかは，きっと楽しくて 
どうしようもないゲームが何本もできてしまう 
と，ついついこの本とはまったく関係ないこと 
を想像してウケてしまった。 

そこでまっ先に浮かんできたのが，クライア 
ントを何者かに殺されてしまった新人コピーラ 
イターが犯人を捜し出すというやつだ。なにか 
証拠らしいものを発見するためには，必ずそこ 
でそのまわりに見える商品をテーマにしてキャ 
ッチコピーを作らなければならない。そしてそ 
ばにはいつも殺されたクライアントの関係者が 
いてそのコピーを採点する。そうして，コピー 
が採用されない限りはなんにも見つけられない 
という設定を考え，そのゲームを実際に自分が 
やっていることを想像しただけでおもいっきり 
笑えてしまった 。「エー ト，この商品の セールス 
ポイントは…。えっ，コンシューマーの要求だ 
って？」こんなの本気でやってたらいつまでた 
っても終わりはしない。言葉はそう簡単にもて 
あそぶことはできない。やはり人間は，言葉に 
ならない感情というものに直面したとき，その 
ときがいちばん面白いのだから。 （N ) 
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東京 

神保町 

H 省堂神田本店 5 F 
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// 

窨泉ブックマート B 1 
03(294)001 1 


// 

軎泉グランデ 5 F 

03(295)001 1 


八重洲 

八重洲ブックセンター 3 F 
03(281)1811 


新宿 
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厚木 
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平塚 

文教堂四の宮店 
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0471(64)8551 


船橋 

西武ブックセンター I 0 F 
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大阪 
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駸々堂京橋店 
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室蘭市 

室闌工業大学生協 
0143(44)6060 


定期購読のお知らせ 

定期購読の申し込みをお受けしています。 
本誌が手に入りにくい地区にお住まいの方， 
毎月購読していただいている方，入手確実な 
定期購読への加入をお勧めします。詳しくは， 
本誌とじ込みの振替用紙をご覧ください。 
バックナンバー在庫状況 
1986年 3, 4，5，6，7, 8，9 

以上の在庫がございます。 

バックナンバーのご注文はお近くの書店か 
らできますが，どうしても入手しにくい場合， 


直接弊社へ現金書留にてご注文ください。な 
お，郵送料は冊数によって異なりますので， 
前もってご連絡ください。お問い合わせは，出 
版営業 (003-261-4095) 宛お願いします。 

海外送付ご希望の方へ 

本誌の海外発送代理店，日本 IPS ㈱ にお申 
し込みください。なお，購読料金は郵送方法， 
地域によって異なりますので，下記宛必ずお 
問い合わせください。 

日本卩球拭会社 

〒10丨東京都千代田区神田小川町 3-5 
303(291)2632 
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新刊案内 



X 1/ X 1 turbo シリーズ対応 

BASIC BUG 

撃退法 < X 1 編〉 

白石誠一•小笠原佳人共著 



BASIC 

BUG 撃遇法 



プロダラミングにパ'グはつきもの。しかし， 
バグ収りのために赀される労力は，膨大な 
ものです。本書は，そのような労力を少し 
でも減らせればという考えから作られまし 
た。サンプルリストを豊富に掲載し，なぜ 
エラーが 起こるの力*，パ、グを取るにはどう 
したらよいのかを詳細に説明，さらに，エ 
ラーを出しにく くするためのプログラミン 
グ テクニック もあわせて紹介しています。 

本書の内容 

第1章 BASIC 基礎マスター 
第2章 エラー 別擊退法 
第3章命令別 エラー 擊退法 
第4章隠れ エラー 擎退法 
第5章 BASIC プログラミングテクニック 

A 5 判 208ページ 

定価1,600円（亍 300 円） 


X1/C/D/F/turbo 

XI システム研究室 


おもしろマシンのブラックボックス探険 


好評発売中 

X1/C/D/turbo 

XI 亍クニカ }レ マスター 

ストラットフォード C . C . C . 著 


有田隆也•牛島昌和 • 

Itti Rittapom 共著 

本書では，人門者 レベルからは 
じめて， XI の中でどういうこと 
が起っているかが直瞒に分っ 
てもらえるように構成されてい 
ます。特に基本的な部分を重視 

し，「マシン語や ハードウェア」 

入門の入門書的な性格が特徴と 
なっています。 


B 5 判 288ページ 

定価2,500円斤 3 〇〇円) 





XI シリ- X ( XVXK > X 1 D ) 




シャープ X 1 シリーズの多彩な 
機能をフルに引き出すための解 
説書。はじめてコンピュータに 
ふれるという方から，ある程度 
BASIC を知っている方までを 
対象に， XI シリーズ入門から， 
簡垠なマシン語までを実例をあ 
げながら，確実に理解できるよ 
うに構成されています。 


B 5 判 300 ベ--ジ 
定価2,500円(亍 30 〇) 


， 発行•問い合わせ先 X 

日本ソフトバンク出版部 

〒102東京都千代田区四番町 2-1 
又 003(261)4095 ノ 



































イ言用と実績を誇る 

げ丄棚 


宇都宮の本格的な 

マイコンショップ 



fPC -880 トンリーズ^ 

テレビ、ビデオの映像を 


^ PC -980 1シリ—ズ 

超低讎腳細ボ-卜 

パソコンに取込むツール KGB -88 CIX 

カラーイメージボード 変換 アダプター 


测アナ D グデジタル人出カポ - 卜 

KGB -98 S ¥19,800 

(変換ボード、-ソフト付） ¥16,800 

シャープ製 CZ -8 BU 1 が必要です0 ノ 


アナログ8チヤンネル （0~5 V ) 

デジタル32ビット （ TTL ) オプション （ D / A 付） 


> C -98 CH シリーズ通信ソフ 

BBS (電子掲示板システム）へ 
アクセスするための通信ソフト 

八ツカー君(巳9-昍01) ¥6,800 

彳〇言語 ソース リスト付）_ メ 



XI - Turbo シリーズ 




日 ASIC フアイルコンバータ（巳 6-3301) 

N 8 SBASIC ( PC 98. PC 88 シリーズ）と XI 

シリーズのファイル相互コンバータ 


5インチ (2 D 、2 DD 、2 HD ) ¥4,800 


Xl -1 urbo シリース 
巳 BS ホスト局システム 

Turbo Net - スペシャル(巳 6-4801) 

¥12,的0 

最大300人までサボート可_ 


MZ -25 □□シリーズ 


128 K 巳増設メモリ ( KGB -128 KMZ ) 

( MZ -1 R 26 定価¥35,000のものと： 


: G 巳-12日 KMZ ) 

>ものとコンパチ） 


限定150本 


¥9,800) 



パソコン専用 
高性能無停電電源装置 

OFFICE POWER -200 
型式 UPB -200 A 

定価¥的，800 


PC -98 専用ラック 

(^OFFICE RACK -98 ¥18,000 


計測制御ポード 


!低価格でホヒ =から习 

圍 

S の考えて可能かど 


超低価格でホビーから本格®用まで可能// 
MZ-2500 OK 
PC88SR 、 FR、MR OK 
大巾値下げガ 

霣殿の考えている ^ T ムが可能かどうか無料でコンサルティングします。 



PC -800 け I 
PC-800lmkll I 
PC-8801 I 

PC- 8801 mk II I 

j ''、> 各パソコンの 
— 〆 ス□ットへ 

MZ - 700 I 

MZ - I500 
MZ - 80B 
MZ - 2000 
MZ - 2200 I 


型番 KGB-PC1 

定価 ¥15.500 
送料¥ 500 

専用の I/OBOX 
か必要てす 


型番 KGB-MZI 
定価 ¥15,500 
送料 ¥ 500 


シリーズ各種インターフエースボード 


■八 ー ドディスクインター フェース ボード（ XI ターボ用） 

XIターボで 10MB のハードディスクを使用するインターフェースボード 
NEC' アィテム、ロジテックその他 PC98 用1 0MHD 

型番： KGB - HDIF 定価¥16,000/ケーブル定価 ¥8.000 _ 

■絶縁型パラレル入出カボード（ X 〗、 XI ターボ） 

入力数： 8入力2ポード出力数： 8出力2ポート/入出力：フォトアイソレーション/入力電圧： 5V~18V/ 出力：オープンコレクター 

型番： KGB - PIO ( Xl ) 定価¥42,000送料¥500 
■アナログ•デジタル変換ボード（ XI 、 XI ターボ） 

16chl2Bit 分解能入カインピーダンス 2MQ/ サンプルボールド付/変換速度25パ S/ 入力電圧4種類 

型番： KGB - AD 12( X 1) 定価¥118,000送料¥500 

■デジタル•アナログ変換ボード ( X 1、 X 1 ターボ用） 

4chl2Bit 分解能電圧出力： 10V (標準）ラッチ回路付 

型番： KGB - DA 4( X 1) 定価¥98,000送料¥500 

\_ 


iiia 

各種べ-シックテキストコン A •-夕 

PC-8801 シリーズ- MZ-2500.B7-2501 

PC-8001 シリーズ- MZ-2500.B7-2502 

PC-6001 シリーズ- MZ-2500.B7-2503 

FM7 シリーズ- MZ-2500.B7-2504 

MSX シリーズ- MZ-2500.B7-2505 

日立 S1 レベルラシリーズー MZ-2500.B7-2506 


各種 3. 5インチ版送料込み ¥3.000 
* 3本以上お買い上げの方に当社オリジナル3 . 5インチ F D 
ケース （5tt 入り）サービス中!！ 

各種 BASIC テキストコンバータ絶賛発売中! 


XI 

PC- 8001- CZ-800.B6-1483 

PC-8801 - CZ-800.B6-1493 

MZ-80B-2000 — CZ-800.B6-1413 

MZ-80K C-1200-CZ-800.B6-1433 

PC-6001 - CZ-800. B6-1473 

MZ-700 

PC-8001 - MZ-700.B5-1483 

PC-8801 - MZ-700.B5-1493 

PC-6001 - MZ-700.B5-1473 


定価 ¥3. 000送料 ¥200 


/" \ 


世界初!!驚異の大ヒット 

システムソフトウェアコン/ \一夕 


MZ- 2000 BASIC.B6-2213 

機種： X1、X1C、X1 ターボ 定価 ¥3.800 

LOGO and PASCAL.B6-2217 

機種： X〗、X1C 定価¥4,200 

システムプログラム and マシンランゲージ .B6-2218 

機種： X〗、X1C 定価 ¥4. 200 

N-BASIC.B6-2220 

機種：; kl、X1C 定価 ¥4. 800 

Z80 逆アセンブラ <X1 デイスアセンブラ〉 .B6-2109 

機種： X1、X1C、X〗D 定価 ¥4.200 

Z80 逆アセンブラ 0D 版 CMZ-1500 デイスアセンブラ〉…… B4-2101 
機種： MZ- 1500 定価 ¥4,800 

V . _ J 


ウつサの商® 

ファミコンクリエーター 

(ファミコンソフトの解析ツール） 

X 卜 Xlturbo シリーズ 
PC - 8801 シリーズ 
MZ -£500 新発売 

メモリカートリッジ 1 

インターフェースカード y セット価格 ¥29,500 

クリエ ーター ソフト J 

@ファミリーコンピュータが必要です。 

ファミリーコンピュータは任天堂の登録商標です。 



XI - turbo 用68000ユニット10月末発売予定 

名前は* IAZ 2 T furlio です。よろしく// 

CPU - 68000 • RAM 512 K 巳 • CP / M 68 K は別売 価格10月巧日発表 
CP / M 68 K はデジタルリサーチ社の登録商標です。 


マイコンショップ 


お申し込み、お問い合せは-甲郡苦市枝の \ 

G0286-33-1994 


〒320 

都宮市桜3丁目 2-17 
計測技研 
264 


新シヨールー厶 

開店特価 
セール 予定 




































































































ROUND SYSTEM LABORATORY INC. 
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wwz 国回® 


■パー財務/テレビ元帳』¥128,000 


今8ビット機で、16ビット機に遜色なくビジネスに使えるのは、 MZ -2500 だけです。 


いま、「ス-パ■財務/テレビ元帳」は面白い！ 

「全国のシャープ 0 A ショールームでご覧になれます〇」 

①1枚のディスクに1年分の仕訳が入ります。（但し、年間6,000件以上は2枚) 


このソフトは、日本会計研究学会々長、早稲田大学教授 
商学博士染谷恭次郎先生のご推薦を頂いております。 


② 仕訳データは日付順に入力する必要はありません。 （1 年分を順不同で入力も出来ます） 

③ 入力直後に、どの月の試算表でも全く待たずにすぐ出ます。 (20 〜 30 分も待たされるソフトもありま 1；) 

④ 仕訳日記帳も、1ケ月分でも1年分でもソートなしで直ちに日付順で出ます 〇(途中でプリンタ-が土ったりしません。) 

⑤ 科目コードは覚える必要はありません。すぐに分る新方式です。(独特の パラパラ 方式です） 

⑥ カナのキー配列を50音(アイウェオ）にすることも出来ます。(どうしても Jis 配列になじめない方の為に.。） 

⑦ パスワードは198 個設定出来ます。番号を忘れても、すぐ出せます。 (パスワード + パスワード も出来ます。） 

⑧ 摘要は辞書 ROM で、人名、地名、文節変換で ワープロ 並で入れられます。 (シャープし か出来ません。) 
今、オフコン、パソコン用の会計ソフ K ?、、 この機能に優るモノはありません0最近事実に反する誇大広告が 
斜、ので、信用されな t 、方は試して頂〈方法もあります。 


適合機種 

あらゆる業種、法人、個人、特殊法人、組合、団体 

画面出力 

テレビ元帳、テレビ試算表、テレビ B/S，P/L、 

テレビ仕訳日記、テレビ予算実績対比、 

テレビ資金繰実績、当月、通期利益表 

勘定科目 

全部自由設定、簡易科目名漢字入力、カナ漢字変換 

補助科目 

任意の科目に任意の数の補助科目設定可 

勘定科目数 

補助科目を含めて600個まで 

印刷出力 

総勘定元帳、補助簿、試算表、貸借対照表、 
損益計算書、仕訳日記帳、資金繰実績表、 

予算実績対比表、月次損益計算書、その他 

仕訳件数 

1枚のデ f スクに6,000件、最大12ケ月分に自動配分 

金 額 

1件、合計共99億円まで〇(オブション999億円） 

摘 要 

漢字12字、カナ24字、パスワードプラス機能品^ード 

オプションソフト 

特殊法人決算書、部門別利益計算書、工事台帳、 

手形管理、固定資産台帳(予定） 

マスターファイル 

自動月次残高算出機能付ランダムファイル 

データファイノレ 

超高速日付順検索付ランダムファイル 

機器構成 

MZ- 2500 FDX2、128KB 増設 RAM 
MZ-1D22(CRT) 又は同等品、辞書 ROM 

MZ-1P18( 漢字プリンター)又は 1P10A，1P11A， 

(NEC) (EPSON) 

PR101、201、NM 9300、9400、990 0、VP80K、130K 

使用言語 

SUPER BASIC+ 機械語 

演算速度 

毎秒25万回検索 

プリンタ-スピ-ド 

プリンターの限界速度で連続ノンストップ 

提供メディア 

3.5インチ200フロッピーデ|スク><2 

プリンター 用紙 

全部普通のストックフォーム、元帳は専用用紙もあり 

附属品 

サンプルデータ、予備ソフト、ガイドブック 


スーパーシリーズビジネスソフトは、「スーパー給与」「スーパー販売/テレビ台帳」「スーパー仕入/テレビ台帳」等続々発表の予定で1; 
また熱心な自作派ビジネスマンのためにノウハウ公開の新 Q シリーズはオールランダムファイルで発表の予定で1- 〇 また MZ-80B，MZ-20 
00,2200用の「スーパー財務/テレビ元帳」(カナ)や「スーパー在庫管理」(カナ)や Q シリーズ、テープソフトなど引続きサポート中で1~。詳 
しくは 「SHARP MZ APPLICATION LIBRARY」 をごらん下さい0弊社は MZ-80K、80B、 2000、2200のビジネスソフトを未だにサ 


ポートしている唯一の会社で 1~ 0 MZ のことは何でもお問い合せ下さい。 MZ- 2000用ソフトの 3.5 インチ版もあります> 
資料のご請求は、ソフトの種類を具体的に指定の上、なるべく切手200円同封し C 下さい。 

MZ- 2500ハードー式特価提供システム販売もあります^(指導も致します） 

★全国のシャープ 0A ショールームでご覧になれま1~ 0 

「スーパー MZ」 には「スーパーシリーズ」で1；次は「スーパー給与」を出す予定です 


総合カタログ MZ 版 ( No .3) 〒200同封 
★ユーザー直接のご注文を歓迎します 

D シリーズソフトのユーザーはスーパーシリーズは特別価格 
★業者の方は SBC ソフトウェア ㈱ へお問合せ下さい。 

〈ご注意〉当社ソフトのレンタル、コピイ販売、用紙の複製、商 
標の無断使用はバチが当たります^ 

※ご注意:テレビ元帳は当社の創作語で商標登録申請済です。（バチが当たらないうちにお止め下さい。）^ 



ハ 〒 560 大阪府豊中市上野西 3-2-25 TEL06(849) 6982 FAX06(849) 6744 

| ■ラウンテム棚突所 

r 郵便振替口座/銀行口座三和銀行豊中支店（普）313000 
$、 大阪 5-95182 三菱銀行豊中支店（普）4323108 




























EXTRA HYPER +(2 for MZ 5%” • 3.5” FD 各 1 4,000円 
MZ - 2000 (要 G — RAM )/2 200/2500 (2000 モ _ K ) 

お待ちかね XI では、もうお馴染みのテープ版の IPL ゲームを簡単に DISK 版に変えてしまう EXTRA 
• HYPER が、 MZ 用に移植されましだ。 

このプロブラムは、今まで扱えなかつだ 32 Kbyte 以上の複数分割の IPL □—ドのテープ版ゲームソフトが、だつだ 
一度の操作で簡単に専用 DATA • DISK に入つてしまい、数分閭もかかつていた IPL からの□—ドが、スイッチ〇 N か 
ら数秒でスタートさせる事も可能に成ります。 

専用 DATA • DISK 1枚付きのレギュラー•タイプと、 IPL □—ドのテープ版ソフトを数多くお持ちの方には、経済 
に市販の生ディスクから、何枚でも DATA • DISK が作れる 、 DATA • DISK . GENERATOR 付きの“ +，も同時発売 
されましだ。もちろんディスクの容量が倍の 2 DD にも対癒しています。 

レギュラータイプの付属以外の専用 DATA • DISK は別売り （1 枚2000円）です。 

EXTRA HYPER for XI 5%” • 3” FD 各10,00 Ob 

EXTRA HYPER + ^ for XI 5%” • 3” FD 各14,000円 

要 G - RAM )/ iS 7 turdo シリーズ 

このプ□ブラムは、今まで扱えなかつだ 64 Kbyte を超える複数分割 
の IPMII — ドのテープ版ゲームソフトでも、だつだ一度の操作で簡単 
に専用 DATA . DISK に入つてしまい、スイッチ ON から数秒でスター 
卜させる事ち可能に成ります。 

専用 DATA • DISK 1 枚付きのレギュラー • タイブに加えて、市販の 
生ディスクか0)、何枚でも DATA • DISK が作れる 、 DATA . DISK . GE 
NERATOR 付きのゾガ、新発売されましだ。 

SUPER DEVICE MONITOR for MZ 2 5 00 “スーパー修理屋さん” 

MZ2 5 0 0 シリーズ 3.5” FD 12,00 0 b 

ほとんどプ□感覚丨1 XKI7 - MZ —20 00で大好評の総てのディ 
バイスにアクセス出来る“修理屋さん”を、全面的にブレード•アッ 
プしました。 

他の DISK • EDITOR ではまねの出来なしヽ、操作性と機能性には、あ 
なだも目を見張るでしよ〇。 

隨所に機械語のサブ • プ□ブラムを取り入れて、尚一層のスピード 
• アップと、 256 byte 未満の連続しだ DATA を各デイバイスから検索し 


たり、 DEL キーなどを使用してはみ出した DATA を専用/バッファーに 
溜めて、それを検索や転送等、フルチフに活用するなどの高機能性、 
高操作性を追及して設計しましだ。 

SUPER DEVICE MONITOR “T” for MZ2 5 〇〇 
MZ 2 5 0 0 シリーズ 3.5” FD 13,000円 

今評判の“スーパー修理屋さん”に、大流行の通信機能が付いだ上 
位バージョン 

他のコンピュータとモデムホンや、 RS-232C などで結ぶと、セク 
ター単位に相互通信が出来、更に便利に、更に高性能に成 1 0ましだ、 
例えば近日発売予定の XSZ7 用“スー/ 修理屋さん”と結んで、 
turbo の各種ディバイスや、ハードディスクなどと MZ- 
2500の各種ディノ X イスとの相互変換等に使えば、色々と面白い事 
が出来ます。 

お求めは全国の有名マイコンショップ又は本社へどうぞ 

株式会社 BLUE SKY 

本社〒411静岡県三島市加茂16-4广0559 - 72 - 6710 
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時間に制約される株価分析を、_ 

素早く処理するシステム。 

売買のタイミングが非常に難しい株式投資。そのため、情報の 
分折は確実なものでなくてはならず、しかも限られた時間内に 
処理しなければなりません。そこで、8 ビットの 最高 速機で 16 
ビットをもしの ぐ、 MZ- 2500を利用して株価分析を行なう「株 
価分析システム」力 ? 今、 i 主目を集めていま 

売買タイミングが一目で分かる、カラーチャート。 

当社独自の FAN 分析をメインに、株価分析を行なうこのシス 
テムは、日足 レシオ •週 足レシオ•バランスレシオの3つの 指数で 
売買の時期をチャート表示します。チャートは売りゾー ン、貢 
いゾーンが色分けされ、見やすくなっていますので一目瞭然0 
しかも、従来のソフトの約 5 倍（当社比）の素早さですから、 
他とは比べものにならない程の短時間で処理します。初めて 
の方だけではな〈、プロの投資家にも幅広〈お使いいただける 
株価分析ソフトで1~。 

◄終値と FAN レシオチヤート 



♦仕様 

■登録項目/コード Na、 銘柄 
名、4本値、出来高、增資の有 
無■登録数/〗枚の データフロ 
ッビーで 60銘柄、各銘柄120 
日 分、データフロッビーを 増す 
ことで登録数無限■入力方 
法/①同一日多数銘柄、②同 
—銘柄多数日の2通り。表形 

式入力でどなたでも簡単入力できます■分析項目/個別総合分析、個別 FAN 
分析、日足（長期)、日足（短期)、週足、新値三本足、カギ足、ローソク日足+分析、 
篠原レシオ、カイ離率、サイコロジカルライン、出来高、ボリュームレシオ、 FAN レシオ、 
逆ウォッチ曲線。 


I フ a ツビーディスク版/ 3. 5インチ 1 '4 枚組 j ¥150,000 I 

※株価 分析システムは、 MZ-2000.2200/X 1 シリーズ 用 も 販売致 じ C ぉります- 


■Bi oh! mz の読者し ' v ，ド *". ^ M 

Pmini キ？ンへ一4 

•株株価 ユ驗巧 

士ュ(忠 ㈣ 8 二 

思ロニて: 


マィクロ ポートが自信を持つて贈るゾ 


SHARR ^ Z 7 シリーズ& 

(ディスク版/5インチ) ¥8,800( カセット版) ¥3,800 
• SHARR V3 800 

(クイックディスク版※ RAM ファイル要〉 # 

※カセット版はXI D では使用できません。※漢字使用は、カラー高解像モニタ 
及び、漢字 ROM が必要です。 (PC-8801 シリーズのみ> 


⑩ シリーズ ¥29,800 

(フロッピーディスク版/3インチ .5 インチ）ドライブ要 


SHARPAX む’シリ-ズ(カセット版） 
※カセット版は X 〗 D では使用できません< 


¥4,800 


• SHARRItlZ - SSIE ® 用2〗ビンコード¥3,200 (送料含む）も取り描えております 
パソコン株価分析のパートナー 

マイク□ポート 

T657 神戸市激区船寺通り 5 丁目 3-8 0(078)801-5181 FAX (078)801-51 82 


'こ 


株価分析システム ( MZ - 2500対応•高速漢字版）は、 
全国のシャープ〇 A ショールームにてご覧になれます0 


販蔸促進顧客管理 


株価分析システム (VerD) 


Micro Port 


1 •三 m—iimH 



明解/売買のタイ///ングがパソコンで見れる ▲ 


個別 FAN 分析。 






























レャープ MZ-1D04 
(12 インチグリーン )(2d0t)> 

特価 ¥15,000 


•シャープ MZ-1D22 2500用1 
(14 イ冷)舰〇)— 

定価 ¥108,000 



參シャープ CU-14A2 

(ガラー4050/アナログデジタル RGB) 
定価¥99,800 今 

特価 ¥58,000 



•シャープグリーンモニタ- 

(4050) J _ 

定価 ¥39,800 

特価 ¥28,000 


•MD-12P1 




-プ MZ-1D10 
(4050) グリーン 
定価¥41,800 呤 

特価¥28，1 


•東芝 デ f スプレー TV14V20F 
(RGB ビデオ端子付）2000文字 
定価¥99,800 ; 

特価 ¥49,800 



•ゼネラル DM-405 

(最大4096対応) (14 インチ） 

(アナログ 21P、MSX 使用可 8PRGB 両用） 

定価 ¥67, 80(H' 特価 ¥38,500 


>シャープ CU-14A1 
(0.31 ドットビッチ)(アナログ4096色） 
(デジタル8色） 

定価¥ 〗28 , 〇〇〇今特価 ¥ 88,000 


•シャープ CU-12P1 
0 . 39ドットピッチ (8 色/〗6色) (4050 文字） 
定価¥118,000 吟 

特価 ¥94,400 


0 . 39ドットビッチ (8 色) (4050/2000 文字） 

定価¥108,000 兮 

特価 ¥86,400 


m 

春シャープ MZ-1D24 
(4050文由） 

定価¥12,800今特価 



♦シャープ CZ-820DE (B) 

0 . 45ドットビッチ (8 色) (2000 文字） TV 付 

定価 ¥79, 80(H 特価 ¥63,800 


本誌発売時には、下記価格表よ D 、 さらにお求めやすい価格に変更され C いる壩合があ D ます。 


冬の ボーナス 
一括払い取扱中/ 

本体 

•NEC PC9801UV2. ¥315,000^ 特価 

•NEC PC-9801VM2. ¥ 415,000 今 ¥310,000 

•NEC PC-8801-07C? ： ? ターフェ - ス ) ¥ 21,000 今 ¥15,000 

•シャープ MZ-5521 . ¥148,000 

•MZ-2200 . ¥29,800 

tMZ-1500+ ソフト 3 本 . ¥39,800 

•シャープ XKCZ-803C). ¥39.800 

セツト商品 

#CZ>803C+251K(2000 文字カラー) . ¥64,800 

•CZ~811C+251K(2000 文字カラー) . ¥74,800 

•CZ~812C+251K(2000 文字カラー) .¥104.800 

•CZ-850C+251K(2000 文字カラー) . ¥99,000 

•CZ~820C+251K(2000 文字カラー) . ¥84,800 

•CZ>822C+251K(2000 文字カラー) . ¥ 124,800 

拡張機器他 

• シャープ CZ-81EP. ¥ 29,8004 ¥23,800 


• シャープ MZ -1 U 01 拡張 (2000 用 ) ¥ 37,000今 ¥ 27，800 

• シャープ MZ - 2200用キーボード . ¥10,000 

•シャープ MZ - 3500用キーボード .¥10.000 

•シャープ MZ -8 BG . ¥39,000今 ¥19,800 

•シャープ MZ -8 BGK . ¥39,000今 ¥22,000 

•シャープ MZ -1 R 13( 漢字 ROM ). …¥ 41,8004¥35,500 
• シャープ MZ -1 R 02 X 2 G-RAM …¥ 16,000今 ¥ n , 200 
•シャープ MZ -1 R 01 +1 R 02 X 2 …¥ 55 , 0004 ¥ 20 ， 000 

•シャープ CZ -8 BK . ¥ 19,8004¥16,800 

•シャープ MZ -1 E 24232 C 力ード..¥ 19,800今¥ 16,800 
• シャープ MZ -1 E 29 • 232 C カード(ヶーブル付)..¥15,200 
•シャープ 1 R 12 MZ -2000/2200 700/1500バックアップ 

— RAM . ¥35,0004 ¥12,000 

• シャープ CZ -8 BK 3 (5 2 字水ぶ m ) …¥ 13,8004 ¥ 11,800 
•シャープ CZ -8 BK 4(1 2 字水 R SJ ……¥6,800今¥5,700 
• シャープ MZ -1 T 03 データレコーダー ¥ 12 , 〇〇〇今¥10,000 
•シャープ CZ -8 EPX 1 拡張ユニット¥丨丨,800^¥10,000 

プリンター 

[• シャープ MZ -1 P 17 ¥ 86,6004 ¥65,000 [ 

• シャープ CZ -81 P ッ用タヵ-ラー)… . ¥ 34,800今¥10 ， 000 
•シャープ MZ -1 P 09(!^: 離?）…¥47,6004¥20,000 
• シャープ MZ -1 P 02 ( J 1 夕 ^ Sr ス)¥ 138 , 000今 ¥ 59 ， 000 
• シャープ MZ -1 P 03 (1 36 桁漢字) ••…大特価¥160,000 


•シャープ MZ -1 P 07. ¥95,000今 ¥79,500 

• シャープ MZ .1 P 1 4 (ぬ其 0 ン用ター) •. ¥54,8004 ¥39,800 

•シャープ MZ -80 P 4 B (136 ffi ). ¥79,500 

♦シャープ CZ -8 PD 2 ドットプリンター¥ 79,8004 ¥29,500 

•シャープ CZ -8 PK 3. ¥ 189,00 ( H >¥ 巧8,000 

•NEC PC -6023 プロッター . ¥ 79,800今 ¥39,800 

•日立 MP -1041 ドットプリンター…¥ 169,8004 ¥85,000 
•日立 MP -53 (f 6 ?：S ンター)……¥315,000今 ¥158,000 

フロッピーティスク 

•シャープ CZ -502 F (5"2 DX 2). ¥79,500 

• シャープ CZ -520 F (5”2 H D x 2). ¥98,000 

•シャープ CZ -500 H (10 M ) -¥348,0004 ¥285,000 
• シャープ MZ -1 FIO ( IOM ) ……¥468,0004 ¥360,000 

♦シャープ CZ .300 F . ¥79,800今 ¥39,800 

• シャープ CZ -52 F (XI F 増設) . ¥34,8004 ¥29,000 

•シャープ CZ -51 F ( X 1 ターボ增設）-¥39,8004 ¥33,800 
•シャープ CZ -82 F ( X 1 D 増設)•……¥ 59,80〇呤 ¥25,000 
• NECPC -6601 FD 1 (増設用).…¥39,8004 ¥25,000 
•ティアック FD 55 B (増設用) 8801 mkll 、 SR 他 ¥25，000 
•日立 MP -3560 インターフェースカード ( MP -1802 A ) 付 
. ¥148,000今 ¥79,800 

MZ - 2500ランゲージシリーズ 

• IP -1213 FORTRAN . ¥ 13 ; 800^¥11,700 
















































































STV 




-プ MD-12P2 
(ペーパーホワイト) (4050 文字） 
定価 ¥39. 800今一 

特価 ¥31,800 


.シャープ CZ- 21 0D 
(8 色) (2000 文字) TV 付 
定価 ¥179,0004 

特価 ¥143,000 


，シャープ CU-14P1 

0 . 31 K ッ上ぬチ (8 色ノ16色)(4050文宇 L 
定価¥128,000寸 

特価 ¥102,400 


シャープ 12M-15B 
谈: JLlrrJa(2000 文字) 

定価¥29,800呤 

特価 ¥23,800 


_ 



>シヤープ CU-14GE(B) 
(8 色) (2000 文字） 

定価¥49,800今 


特価 ¥39,800 


_ 


• NEC PC-KD853 
0 _ 31ドットピッチ(カラー) (2000 文字） 
定価¥118,000呤 

特価 ¥99,800 


NEC デ f スプレー 
各種取り描えております。 


JT 

• NEC PC-TV451 
(15 インチ) (4050) 

定価 ¥168,800 

特価 ¥128,000 



INEC PC-60M43 
定価¥65,800今 

特価 ¥39,800 


NEC PC-KD854 
定価 ¥89,800 

特価 ¥72,000 


定価¥89,800卜 

特価 ¥71,800 


(アナログ4096色)(2000文字） 

定価¥ 49,800 今 特価 ¥39,800 




NEW 

. プ CLM4AGU _ J . __ ■シャープ MD-9P1 一 ■j _ 

0.39 ドットピッチ（アナログ409砲） （4050 文字）（ペーパーホワイト) (4050 文字） 

定価¥ 89 , 8 〇〇吟特価¥71,800 


定価¥ 3 4 , 8 〇〇今特価 ¥27,800 


拓 m 纖識溫 liss 致します。 


•1 P -1214 C . ¥13,8004¥11,700 

• IP -1215 COBOL . ¥ 13,8004¥ 11，700 

• IP -1216 LISP . ¥13,800今 ¥11,700 

• IP -1217 PROLOG .¥ 13,800 今 ¥11,700 

• MZ - 2500マルチプラン(アスキー). ¥40, 0004 ¥34, 000 

• HuCAL 日本語(2500)( ハドソン) . ¥45 , 0004¥ 38 ， 200 
• スー ノ \°- CALC 2 (マイクロソフト) …¥ 29,8004 ¥ 25，300 

• MZ - 2000/2200 CP/M (マイクロソフト) . ¥35,000 

參 MZ -80 B CP/M (マイクロソフト) . ¥35,000 

•6 Z -001 MZ -2500 P . CP / M ……¥ 16,8004 ¥14,200 

XI ランゲージシリーズ 

• CZ -136 SF コスモス テーシヨ ン…•…¥ 9 , 8004 ¥ 8 ， 300 
• CZ -133 SF モデムターミナル……¥25,8004 ¥21,900 

• CZ -131 SF 夕ーボターミナル . ¥ 8,800吟 ¥7,500 

• CZ -137 SF ジーズスタッフ . ¥ 19,8004¥16,800 

• CZ -127 MF マルチプラン . ¥49, 8004 ¥42,000 

• CZ -130 SF ターボ CP/M . ¥ 14,800呤 ¥12,500 

• CZ -128 SF ランゲ-ジマスター CP / M ¥ 9,8004 ¥ 8，300 
•ユーカラ K 2+ MZ - 2500/ターボ II 

. ¥28,0004 ¥23,000 

_ MZ - 6500/5500マルチプラン.. •• ¥65,0004 ¥55,000 

MZ - 5500シリーズ特価ソフト 

• BASICS (2 Z 017). ¥ 20 , 0004 ¥ 17 ， 000 

• ワープロユーカラ . ¥28,0004 ¥10,000 

籲日本語ワープロ ( MZ -2 Z 025) ¥ 49 , 〇〇〇今 ¥ 26,000 


•統合化ソフト Today ( MZ -2 Z 014) ¥ 68,0004 ¥35,000 
• シャープ MZ -8 BD 02 (80 DFDOS ) ¥ 50,0004 ¥ 15，000 
•シャープ MZ -2 Z 004(2000 DOS )，， ¥ 50,000今 ¥42,500 


16ビットボードキット 

MZ -1 M 01+ 漢字 ROM . ¥20,的0 


•シャープ MZ-LOGO . ¥9 / 8004¥4,500 

MZ - 5500シ U —ズ周辺機器 

• MZ -1 U 05( 拡張ポート) . ¥ 12 / 0004¥9,200 

• MZ -1 R 09 (増設ビデオ RAM ) …¥ 35,000今 ¥ 25,000 

• MZ -1 R 10 (増設 ROM ). ¥ 30,000今 ¥ 18,000 

• MZ -1 R 11 (増設 RAM ). ¥ 80,0004 ¥ 40,000 

• MZ -1 R 14( 増設 ROM ). ¥40,0004¥26,000 

• MZ -1 R 16( 増設 RAM ). ¥30,000今 ¥26,000 

新製品 

• CZ -8 PC 1 (熱転写カラープリンター)……¥59,800 

• CZ -8 PD 3( ドットプリンター) . ¥50,800 

• CZ -8 BS 1 (ステレオ FM 音源ポード） . ¥20,200 

• CZ -8 TM 1 (モデムユニット） . ¥25,300 


その他 

•シャープモテムホーン MZ -1 X 19"¥98,0004¥64,800 


全国 

北海道から沖縄まで 

信用をモットーに、よりよい品を 
より安く、迅速にお届けします。 

通信 

★送料はご注义の职にお間い合わせ下さい。 
★掲載の餘品は令て作 J_K 新&商品で i ~。 

(別に中, 1 ■•品取扱ってお々ます。〉 

★ご;1'义 は/1:. を確涊の邊、遵企••留また 
は銀 htti 込でお中し浴み 1 ドさい。令商品、 

販売 

クレジットでも扱 ゃて 〆1 域す。 

★ お 取し 込みの陬は必ず屯坫涖 Vj- を叫,;ビ 
して下 tH' 

★ れの節はご•括敉ドさい。 


アイビット鼋子 ㈱ 

営業所：〒192東京都八王子市北野町 560-5 

S 042 B - 肋-3001〜3 


• シャープモデム MZ -1 X 22. ¥ 2し8004 ¥ 16，500 

癱通信ソフト(シャープ 5 Z 013) MZ -1 500用•……¥5,500 
•通信ソフト(シャープ 2 Z 052) MZ - 2200用……¥7,700 
•ニデコ•カラーポード NH . MZD 2( MZ 80 K / C 用） 
. ¥69,8004¥7,000 


S 03-545-0022 FAX .0426-44-6002 

•営業時間：10 : 00-19 : 00 
•電話受話： 20 : 00迄可 
•定休日：日曜日 

































































































* CP/M はデジタルりサーチ社の登録商棵です， 




XI-CP/M ， X1 ターボ CP/M 対応 
Z80 アセンブラ開発セット 

勺 


セット価格12,800円 

MR - ASM (エムアールアスム）は漢字 CP / M にも対応した Z 80 ニーモニックのアブゾリュー 
トアセンブラ。 CP / M -80 上で走行し、操作方法は CP / M の ASM コマンドと同じですが、シン 
ボルファイルの出力が可能になっています 0 また、他の外国製アセンブラとは異なり、シフ 
卜 JIS コード形式の漢字に完全対応しています。 

MR-ID (マリッド）は漢字 CP / M に対応した Z 80 ニーモニックのシンボリックデバッガーで 
す0 MR - ASM などの出力するシンボルフアイルを読み込み、シンボル（ラベル）によりアド 
レスを参照する事ができます0 DDT 、 ZSID に上位コンパチブルです。 

通信販売でのご注文は、機種名•ディスクタイプを明記の上、現金書留か郵便小 
為替で下記にぉ願いします。（送料当社負担） 

有名 パソコンショ ップでもぉ求めになれます。 

く問い合せ、ご注文先〉 有限会社アーマット 




〒227横浜市綠区荏田町473 — 5 
TEL 045-9 M -7427(9:00 am -6:00 pm ) 


6: 00 pm より9: 00 am まで左記電話番号で B B S を開局しています。 

などのサービスを行なっておりますので、ご利用ください。 

(調歩同期全2重、300ポー、8ビット、ノーパリティ、ストップビッ十丨、 X コ 
ントロールあり、シフト JIS 漢字、最初は ID コード XXXX でアクセスしてください) 


印網 

ス-パ-カラ -BASIC 

■〔 BASIC 〕 で作成したグラフィック図形でも、〔嬉楽画/ターボ〕で描 
いた絵でも、簡単にカラーハードコピーができる。 

■テキスト画面及びグラフィック画面の合成、又は各画面を単独で 
カラーハードコピーカぐて’きる。 

■印刷サイズを4段階に指定できる。 

■作成した絵の色を4色(黄、紅、青、黒）に分解し、指定した色を抽出 
して、カラーハードコピーができる。 

■〔 BASIC のコマンド〕として、プログラムの中でも使用できる。 

■操作が簡単 

• フアンクシヨンキー、又はコマンド入力でコピー （ BASIC で作成した絵） 
•嬉楽画の場合は、ユーティリティ使用で簡単にコピーができる。 

■必要システム構成 
•本 体： X 1/ X 1 ターボ (5 TD ) 

籲 プリンタ： MZ -1 P 17 
# ケーブル： MZ -1 C 48( X 1 用） 

•カラーリボン： MZ -6 P 17 

定価6,000円 

■グラフィック図形を上下左右、自由自在に動かせる。 

• 移動させる色の指定もできる。 

■鮮明カラー72色（ XI ターボ用）、又は36色高速ペイント 

• 〇〜71(又は〇〜 35) の数値を入力して、コマンド 〔PAINT (PAINT 色)〕 で 
多彩な色を簡単に表現できる。 

■指定した範囲内の色を自由に反転させる事ができる。 

■グラフィック図形を反転させる事ができる ( MZ - 2000/220贤ープ用は不可） 

♦幽而上の図形を上下、左右逆に表示できる。 

• 上下、又は左右対称の図形は半分描いて、反転させれば一つの図形が 
できあがる。 

■一つのコマンド〔 WINDOW 〕 で6機能 （ MZ - 1500用） 

• つの図形を任意の場所に表示したり、異った図形の表示位置を交換 
することができる。 

•指定した範囲の図形にマスクをしたり解除することもできる。 

■使い方が簡単 

參各機種の標準 BASIC と完全互換性を保っていますので、コマンド、ステ 
-トメントはそのまま使えま to 
(MZ- 2000は G-RAMI 、II、 HI が必要です） 

• X 1( テープ） ¥6,000 # MZ -1500( QD ) ¥6,000 

• X 1/ X 1 ターボ (5 FD ) ¥8,800 • MZ -2000/2200 

(テープ）¥4,000 
(Q D ) ¥6,000 

〒546 大阪市 東 住吉区湯 里 M -1 稲田ビル 403 号 （通信販売 、 

フメ-!、 ハノ 7 - / 八 茄 機種名及び^ーフ: QD 、5 FD か胡月記 

Y イコノンスァム企_ し臓名、_队の上■難 

電話大阪 06(704) 9923 U 送料サービス)にて、送付して 下さ ぃ J 

■アルバイト募集// 

•マシン語、アセンブラを理解でき 
る人。 

•年令、性別は問いません。 

. 気軽に電話でお問し、合せ下さい。 

























豊富な 

iS 情報管理システム（電子力ード KF -3〕 定価44,800円 

[豊富な印刷機能] 



ワープロ NEW mini] は 


[簡単な漢字変換] 

文節変換や一括変換ができます。 

[便利な部首検索】 

JIS 第一水準、第二水準文字完全対応してぉります。 

[豊富な辞書】 

登録済の漢字は、30,000語。10,000語追加登録 

[高性能な計算機能1 

高性能な15桁計党 

[文字種類1 

第一水準2965文字 • 非漢字•第二水準3384文字 • 外字80文字第二水準文 

字は、システム内に内蔵 

[ POP 機能] 

ワープロで作成した文章をテレビ画面に表示することができます。 

I ビデオ編集機能 J 

ワープロで作成した文章をビデオテープにタイトルや各画面のコメント 
をビデオ録画できビデオ教材、ビデオレポート、ビデオ POP が簡単に作 
成できます。 

[機器構成】 


本 体 

品番 

漢字 ROM 

グラフィック 

プリンタ 

MZ-200、 2200 
MZ-80B ★ 

V6.1DG 

V5.1DG 

MZ-1R13 

MZ-1R13 

(PIO-3055) 

MZ-1R01 + 02 
MZ-80BG 

MZ-80BP5 EPSON 
MZ-80P6 MZ-1P10 
MZ-1P07 MZ-1P11 

5X57 ★ 

SS27D ★ 

SSf7turbo ★ 

V9.1DG 

V9.1-3DG 

V10.1DG 

CZ-8KR 

C 之 - 8KR 

CZ-8GR 

CZ-8GR 

CZ-800P CZ-8PN1 
CZ-8PD2 MZ-1P10A 
CZ-80PK MZ-1P11A 
CZ-8PK2 MZ-1P17 
ESC/P09 ES(7P24 



*DISK の MZ-80BF 、 MZ-1F07 や CZ-501F 、 CZ-801F.CZ-300F が必要 
» DISK は， 2 ドライブ必要で MZ-80B のみ 70 トラ ッ ク让様 


►一覧表印刷 

►シール印刷一 

►葉書 • 封筒 
►宛名用敬語- 


項目の順序や文字数を自由に設定でき評線なし 
に指定できます。 

横5列まで印刷でき同•シールを指定枚数、印 
刷する。 

縦書き、横書き指定が出来ます。 

様、殿、行、御中、先生の5種類の中から指定 
できる。 

カード印刷ーカード普式で指定した内容に基きデータを縦書 
き横書き出来ます。 

オリジナルカード 、 x x 急便、〇急便などの専 
用伝票への印刷も OK 。 

横79文卞縱40行の文書を作成し B 5 、 A 4用紙 
に印刷する。 


.簡易ワープロ 




[簡単な漢字入力] 

♦漢字変換 - 90,000語の辞書 ROM 対応 
♦部首変換一第一 • 第二水準完全対応 
♦記号変換 覧表より選択 

♦ユーザー辞書一10,000語追加可能(短縮入力で簡単操作） 
♦郵便番号辞窨一 3桁入力で全国の都道府県市郡2200の地名対応 
♦短文処理ーカード間、項目間のデータ複写が32文字以内で 
可能 


[項目仕様] 

♦項目数20項目 
♦項目種類-一 
♦表示形式一 
♦文字 数一 
♦小数点指定一 
♦自動計算式一 
♦力ード枚数- 

[機種構成] 


文字 • 数字 • 計算 
左寄せ • 右寄せ • 金額 
1〜32文字(数字、計算は16桁以内） 
数字、計算項目のみ〇〜8まで 
四則演算•項 H 演算•関数演算 
4000、 2000、 1300、1000、 800枚 


MZ - 2500 

FD 2 台必要 

MZ -1 R 26 

増設 RAM 

MZ -1 R 27 

増設 V-RAM 

MZ -1 R 28 

辞書 ROM 

MZ -1 D 22 

ディスプレイ400ラインモード用 

プリンタ 

ユーザ側で指定ぉよび仕様登録可能 


[オールマシン語による超高速漢字住所録] 

検索速度：1000名中、1人検索時問最高50秒以内 
並び替え：1000名並び綠え時問5分前後 150名並び替え時間10秒前後 
項 目：氏名、フリガナ、 ’4 •話番号、住所1、住所2、住所3 
郵便番号、備考1、備考2、備考3、備芩4 
熟 語：1200語(県名、巾名700語登録済)学習機能付外字： 95文字 

宛名印刷： シングルシール、 ダブル シール、 ハガキ印刷 
検 索： 2重条件検索方法 

検索条件：無条件、同じ、人きい、小さい、含む、含まない 
住所一覧：表示、印字は项11を_1に設定することが出米ます。（デ< スク版） 


機種 

TYPE 

人数 

熟語 

部首 

第二水準 

品 番 

価 格 

ブリンタ 

MZ-1500 ★ 

QD 

100 

なし 

あり 

不可能 

V8.3Q 

15.000 

MZ-1P08 

MZ-1P14 

GP-500Z 

MZ-80B 

MZ- 2000.2200 

DISK 

DISK 

TAPE 

QD 

1000 

1000 

150 

150 

あり 

あり 

あり 

あり 

なし 

なし 

なし 

なし 

不可能 

不可能 

不可能 

不可能 

V5.3D 

V6.3D 

V6.3T 

V6.3Q 

33,000 

33,000 

15,000 

15,000 

MZ-80P6 

MZ-1P07 

MZ- 2000 、丄 
2200 * 

DISK 

1000 

あり 

あり 

内蔵 

V6.3DK 

43,000 

MZ-1P10 

SS57 D 

SS57 

SS27 

5S57 turbo 

5557 turbo 

DISK 

DISK 

TAPE 

DISK 

TAPE 

1000 

1000 

150 

1000 

150 

あり 

あり 

あり 

あり 

あり 

なし 

なし 

なし 

なし 

なし 

不可能 

不可能 

不可能 

不可能 

不可能 

V9.3-3D 

V9.3D 

V9.3T 

V10.3D 

V10.3T 

33,000 

33,000 

15,000 

33,000 

15,000 

CZ-800P 

CZ-8PD2 

CZ-80PK 

CZ-8PK2 

EPSON 


エレクト□ハゥス株式会社 スガヤ 

〒4丨6静岡県富士市長通 104-3 TEL (0545)6 卜 1417代 FAX (0545)64-7206 


お求めは全国マイコンシヨップまたは当社宛に現金窨留に機種名及びプログラ 
ム名を書いてお送り下さい。 

営業時間 AM9： 00-PM7： 00 
振込口座清水銀行富士支店（当座）5683 












































本体持つだら 一- 

周辺機器はツクモで/ 

おトクな冬のボ-ナス-括払、月々均等払、通信販売も 0 K です。 

/〒 LE ツクモに上陸 


mm 

ifiif 


X 1 G スペシャルセツト 

• CZ -822 C . ¥118,000 

• CZ - 82 OD .¥ 79,800 

• MD -2 D ( I 0 枚) .¥ 17,000 

• JOY メカ 2 型 (ジョイスティック)……¥ 4,800 

U リジナルソフト （3 種）… サービス 

合計定価 ¥219,600 

ツクモ⑱大特価 

★⑯特価は s にてお問い合せ<ださい。 


夢 1 


X 1 F 限定スペシャルセット 


• CZ -8 IIC . ¥89,800 

•14 インチ 2000 文字モニタ ——¥67,800 

• JOY メカ 2 型 (ジョイスティック) ¥ 4,80 〇 

合計定価 ¥162,400 

ツクモ特価¥69,800 


• い is 


ツクモオ 1 J ジナル拡張用ドライブ 
tc cn 5 インチ 1 ドライブ 

I 0 "lU MKII 320 KB 電源内蔵 


ツクモ特価 ¥36,800 
2ドラィ プ 仕様特価¥54,800 

送料別¥1,000 

• XI シリーズ•純正 l / F (\ M 4,80 0) と別売 
ケーブル （TS -M X CA V 5,000 ) で5インチディ 7 ざ 

クシステムがあなたのものに。 X 1 D なら、ケ3 
プルだけで OK / ★お申し込みの際は何 
イブ目でご使用かをお知らせ下さい 0 

• MZ - 2500籲ケーブル （ TS - MXCA ) だけ说 M 之 取:〇幻:〇▼ の] 
5インチソフトや X 1のランゲージシリ ーズが' 


モデルチェンジで 





你娜プラツ 
樣瓣 ㈣ 


★12 インチ2000文字クリーンモニター 

MZ -1 D 04 定価 ¥32,800 

ツクモ特価 ¥12,800 


★システムラック 

SHARP MZ -1 S 04 

►サイズ: 700( H ) 
X 600( W ) 
X 700( D ) 

ツクモ特価 

ィ ¥14,800 


送料サービス 


★売り切れの際は 
ご容赦下さい。 

CZ -811 C 

定価 ¥ 89,800 

ツクモ特価 ¥39,800 
GZ -801 D 定価ィ 

*14 インチ2000文字 TV 付そ 

ツクモ特価 

¥44,800 _ 

★ツインファミコンにも CZ-811G にもピ茂夕刀刀 
色はシルバーとレッドの2色。 


s ¥ 99 :__rh 

$夕- 



MZ -2500 メモリ-ボ-ド 送料別¥500 

籲増設 V _ RAM ポード 

ツクモ特価 ¥ 9,000 

修増設 RAM ポード 

ツクモ特価¥8,200 
•増設 V - RAMSRAM ボード 

ツクモ特価 ¥ 16,800 


« 24ドット無転写漢字ブ 1 J ンター 

CZ -8 PC 1^ ffi ¥69 * 8004 ツクモ⑱特価 

像80桁ドットプ II ンター 

CZ -8 PD 2 定価 ¥7 _■►ツクモ特価¥29,800 

争デジタルテロッパー 

GZ _8 DT 定価ツクモ特価¥19,800 

通循販売ち受付けています 




■電話番号 

□ 3 - 253-2464 

►運営時間 

毎日 PM7:00 〜 AM8:00 
木曜日のみ24時間運営 


►通信プロトコル® 

通信方式：調歩同期式全二 
重 (Full) 

ボ，レート： 300bps(CCITTV21) 
データ長： 8ビット 
Xon / Xoff :あり 


詳しくは 7 号店/ 

ストップビット：1ビット 
パリテイー:なし 
S I / S 0 :なし 
漢字方式：シフト JIS 
送信時改行コード： CR 
受信時改行コード： CR + LF 


m 

東京 

mSMB 

〇 03-251-9911 

m 

mam 

S 06-365-5691 

仙台 

0022-263-0791 

広島 

0082 -223-2741 

福島 

00245-24-1491 

福 

0092-474-8521 

新潟 

00252 -73-9911 

名古屋 

0052-251-1199 

金沢 

00762 -62-3611 

札幌 

SO 11-241-2299 

松本 

00263 -36-01 99 

但し、札幌のみ AM 10:30 

PM 7:30 まで受付 


中古品ち新品も品数と質で勝負/ーニューセンター店 
お問い合わせは 03-25 卜 0987 〒仙 東京都千代 田 区外神 田 hh 


參ツクモトレードシステムは 

下取り、買い取りよりずっとお得。不要のマイ 
コンを預けるだけで売れた価格の80%が手元に 
戻る完全委託方式です。商品を持参できない方 
はツクモニューセンター店にお送り下さい。 

一 《今月 の特選 中古品》- 


♦下取りの方法は… 九十九電機 oh!MZ 係 

下取り品をニューセンター店へお持ち込み（又は 
発送）して下さい。チヱック後差額をお支払い下さ 
い。地方発送（送李 : 4別）や差額クレジットも- OK ! 
とりたての中古情報をご希望の方は70円切手同 
封の上、ニュ_センター店にお申し込み下さい。 
週刊トレード情報は毎週火曜日発行です。 


商品の仕様、詳しいお問い合せは1 
下記各店へどうぞ 

ニューセンタ—店 a 03-251-0987 
5 号店 s 03-251-0531 
7 号店 S 03-253-41 M 

営業時間： AM.10:00〜PM7:00(〒B) 

AM. 9:30〜 PM.6:30( 日•祭日） 

定休日：毎週木曜日•第3水曜日 

★掲載商品は限定特価品につき、売り切れの際はご容赦下さい。 


► CZ-800CR 

• CZ-8IICE. 
>CZ-80IC-- 

• CZ-8Q3C. 

► CZ-804C- 

► CZ-852C • 

► 2000文字カラー CRT 




¥ 25,000 
¥ 35,000 
¥ 30,000 
¥ 35,000 
¥ 40,000 
¥ 120,000 
¥ 25,000 


• MZ-1P08-- 

• CZ-8PN1-.. 

• CZ-8PK2 ••• 

• CZ-81EBR- 

• CZ-8DT2-- 

• MZ-2500 


. ¥18,000 

. ¥60,000 

. ¥50,000 

. ¥ 10.000 

. ¥30,000 

. ¥100,000 

S61.8.10 現在 


ワーブロ 

• WD- 600(新品） • 

• CW-350. 

籲マイリポート15 

(FDD 他付）…… 
•文豪ミニ7 . 


170,000 
¥ 135.000 

V 65,000 
Y1 28.000 




Qh^tism 


即決ツクモ全国クレジット〇 

• 現金衿別価格て•ノクモクレンノトか利用てき； 
冷金のみに金利かかかります 
• 66 回払いまてて3ます俐し.I回のお支払い卵「 
• その場てお}寺ち帰りてさるクレン トむあり. 
參印！! i、 身分証明街 < 免許 ill なと > か必要てす 
• 通信販売こ希望の方は各店へわ常 d てお申しレ 



-標 

レ®?林 

SK - 


、ンま - 
なか日中 
t MO 
1効 EM 
てら D 
式かて 
方音.に 
1?の店 
SF 器号 
備楽 = E 7 

諸^ 

準まツ 

2在。 

楽咱 

が由 

力 i 自 

ーンが 

ピゥ W 

スサ作 


































































18 歳未満の方は、保護者と 
一緒にお電話下さい。 

静岡 0542(54)0696 
名古屋 052(581 )43 S 5 
大阪06 (3 BS ) 5057 
岡山086 S ( 24)5524 
离松 0 B 7 B (33)06 B 3 
広島 OBS ( SS 3 )OSH 
福岡 038(481 )0502 
熊本 098(363)5077 
鹿児鳥 0392(56)3973 
問合せ 0466(43)1765 

FAX 0466(43) 1265 


〇お近くの方はぜひ一度 
ご来店下さい0 

店舗のみ第 I 、第 3 火曜日休業 
(但し、祭日にあたる場合は営業致します 0 ) 
li 忠 


巴 


〇ハガキでのご注文も 
受付ます0 


1~| 〒252 

S . 

1住所 

2.氏名 

〇ウ〒沢 

3.年令 

h ェ目市 

4. 霄 B 番号 

/ 1 +逆 

5. 保護者名 

M ブ ig 

(20 才未漢 の方） 

Z 7 * 

6. 商品名 

任厂 一 

w イ〇 

7. 支払い方法 

1号 

月々 円 x 回 

ポ-ナス Rx @ 


SHARP 


pan—s 

wLJm 


ny/Dz/^LE^ 

[プラン iMJ ] 




zlzVI^iM 


特価85,000円 


7,700円 x i 2 回 


5,300円 x is 回 


4，1 OO n X 24 回 


[ ブラン1040 ] 

CZ -822 C(XIG model 
CZ -820 D (2,000 文字力 


30) 


[ ブラン〗041 

CZ *822 C(XIG model 30) 

2,000文字カラー CRT 
CZ -8 PCK 24 ドット熱転 V ,,,, 
JET - XI (ワープ□ソフト） 

プ"リンター 用紙 （10 イ ンチ iSBM.OOC 
ブランクデイスケット 2 DX 丨〇 枚 


MZ -2521 

4,050文字アナログ CRT 
ブランクデイスケット 3.5 xm 枚 


丨プラン10431 

MZ -252 I 198,000円 

4,050文字アナログ CRT 108,000円 

MZ - IPI 7(24 ドット; II 字フリンター） 79,800円 

MZ - IC 35 6,800円 

ユーカラ K 2+( ワープロソフト） 28,000円 

プリンター用紙 （10 インチ x 1,000枚） 4,000円 

ブランクディスケット 3.5 'x 10枚 け，000円 


神奈川県藤沢市湘南台! 丁目〗彳番地 10 号 


SHARP 


全国を完全サポートする 
ウェーブ•アイ 

藤沢0466 ( a 3) ^ 775 
札幌 011(771 )4371 
函館013 日 （ S 7)5 BSS 
盛岡01 SB (24)317 S 
仙台 0222(67)5371 
新潟0252 (75)5076 
長野 0262(35)56(51 
金沢 076 S (24) S 251 
字都宮 OSS 6(27)32 SB 
千 葉0472 (50) 9523 
東京03 ( SS 6) 9286 


I ~7 未来をクリエイトする 

x ^ノ ブ•アイ 


(旧 1 C ワールドヨコやマ） 




日本 MHK 売 tt 金金颶 



H ブラン1045 


ni 








9,000円 x 24回 

ホーナス31.200円 X 4回 

7900 On x 36 回 

ホーナス18.000円 X 6回 

5,000円 x48 回 

ポーナスけ.200円 X 8回 

6?400円 x 6〇回 

ホーナスなし 


5,000円 心回 

ボーナス27.400円 X 4回 

3,00 Or x 36回 

ボーナス22.400円 X 6回 

5,300円 〆 仙回 

ポーナスなし 


特価 294,000 円 



CZ -856 C 

CZ -855 D 

MZ - IPI 7(24 ドット熱転写フリンター） 
プリン ター ケーブル 
ワープ a ソフト（テラ〉 

プリンター用紙 

ブランクディスケット 2 DXI 0 枚_ 

定価合計 


is 特価 29e 

>,OOOn 

6,300円 

32,000円 

4,000円 

17,000円 

9,000円 x 24 回 

ボーナス32.400円 X 4回 

6,000 36 回 

ボーナス24.800円 X 6回 

423,400円 

3,000円 X 48 回 

ボーナス29.800円 X 8回 

6,50 0 n x 60 回 

ボーナスなし 


MZ * XI シリーズ用屬辺檐器•ビジネス ソフト 


188.000円-*145,000円ヶ-プル付 
68.800円-.49,800円ケ-パ付 <細 


I _ 

(ブリンター） 

AR- 2400 ブラザー （XI) 

TR-24X STAR(XI) 

M-1024IIP/X ブラザー (XI) 

SHARP(XI.MZ) 

SHARP(X1) 

SHARP(X1) 

EPSON(XI.MZ) 

EPSON ( XI . MZ ) 

SHARP(X1) 

EPSON(X1 ,MZ) 

EPSON(XI.MZ) 

r ビジネスソフ 

MZ 用 ユーカラ K2 + ( ワープロ） 28.000 —22, 000円 
MUl-TIPLAN (アスキー） 40,00 0— 34,000円 
Hu-C AL 日本語 （ハドソン） 45, 000— 3 8，000 円 
ビジレス （ OA テック） 48,000 —40, 000 円 
XI 夕-ポ用 Multiplan(CZ-127MF) 49,800円 —42, 000円 

turbo Z M STAFF( CZ- 1 37SF) 19,800円 —1 7,000円 

蠼楽画 ターボ （CZ-1I4SF) 17.800円 一1 6,000円 

turbo CP/MV22(CZ-130SF) 14,800円 一 13,000円 



900 X 36 
100X18 
700X24 
500X11 

eooxis 

200X18 


99.800円 —78, 000 円ヶ-ブ的 M 0 IXI 
79.800円 .56,000 円ヶ-プル付 S.IWxi 
69,800円 —59, 000 円ヶーブル付 5.300X1 
59,800円 一52,000 円ヶ-プル 4.800 x 12.： 

け7.000 円 -*135,000 円 R 0 M * ヶ-プ州 6.500 X 24.4.500X36 
147.000 円 . 一 115,000 円 R0M * ヶ-プ糾 5.500 X 24-3.900 X 36 

29.800 円—ウ I ーブ•アイ特価 
19.800 円ーウェーブ • アイ特価 
49,*800 円— 39,800円 7.000 X 6-3.600 X 12 


安心できる12のサポート体制 

全品超特価でご搴仕/全国無料配送/ クいジットお支払い方法自由。ボーナス2回払い 0 K / 


本 K に揭鲅されていな v 
好#な組み合わせて超特価_ 
します 


、商品でもお- 

W ® て 1* 供致 


■•部地域を除き、1»間以内に無料お客様のご予算に含わせてビッタリ月々のお支払いはまったくナジ/お 
:商 n n 0 をおととけ致します 
(但 L 5 万円以上の商品に限ります） 


全品完全保証付/配連日指定 OK / 超低金利クレジット。代金引換システム。 


新品は メーカー 保証丨年 n 初期不良 S 守がちの方の為に、お客様のご都お支払い回数か2回〜 72® まての超現金でのお支払いの»含、商品到層 
は新品と交播させて頂きますもち合に含わせて配連致します日**.低金利クレジットか簡単に組めます時のお支払いて OK / 

ろん中古にも半年閻の保証付き 祭日の達も ok / 


商 S の組み合せ自由/ 

本誌に掲載してある以外の組み合わ 


高額下取りサービス/酴なし。ゆつくリクレジツト。ァフタ-サービス万全。 


未运1こ涵 is し miii 外の組み合わお手持ちのパソコンを下取りしてわ商品は今すぐお®け、お支払いは6購入後、万障してもお««にお 
せも、お客様のプランに応して行なずかな子算て新製品と買い換えるこヶ月後からスタートすることか出来申し出下さい万全の体制をとつて 
いますお911$にお問合せ下さい とが出来ます. ます:この讓合 U お申込申 L 4 下？い おります 


特価 H 98,00 On 


5,000円 X 24 回 

ボーナス27,400円 X 4回 

3900 On x 36 回 

ボーナス22,400円 X 6回 

5,300円バ咂 

ポーナスなし 


35,800円 
I 枚） 4,000円 
17,000円 


7,000円 x 24 回 

ボーナス 18,000円 X 4 回 

5,000円 X 36 回 

ポーナス12.200円 X 6回 

3,000円 x 48 回 

ポーナス15.200円 X 8回 

4,500円 ><60回 

ポーナスなし 


SHARP 



特価198,000円 


118,000円 

79,800円 


ウ エー フ•アイ特価 


8,000 nxi 8 回 

ポーナス11.200円 X 3回 

5,000円 ><24回 

ボーナス21.000円 X 4回 

3,00 On x 36 回 

ボーナス M , 200円 X 6回 

4,200円 X 48 回 

ボーナスなし 


特価207,000円 


ス—ノ 


- MZ お買得基本セッ 


^三 








入門セッ 


xig モデル 3〇純正基本セット TEL にて 


111 謂；謂 



























































































































































































COMPUTER 
BANK 


/ 纖 安心と信頼のシステムで新時代を切り開く 


ついにビデオまで巻き込んだ/ X-lG 

XH7G 


☆ご注文 NO . A -62 

"パソコンテレビ X -1 G model 10セツト〃 

sharp CZ -820 C ¥ 69.800 

sharp CZ -820 D ¥ 79.800 

合計標準価格- 



¥4, 
2 ¥6 
3 ¥12 


,000 

,000 

,500 


X24 回〔ポーナス〕¥ 13,000 X4 回 
x 18 回〔ボーナス〕¥ 12,000 X3 回 
x 12回〔ポーナス〕無し 



☆ご注文 NO . A -63 

'ソ\°ソコンテレビ X -1 G model 30セツト" 

sharp CZ -822 C ¥118.000 

sharp CZ -820 D ¥ 79.800 

合計標準価格- ^ Wr 80 tl 

1 ¥5,000 x 24 回〔ボーナス〕¥ 19, 000 X 4 回 

2 ¥7,000 x 18回〔ボーナス〕¥21, 000 x 3 回 
3¥15,200 xi 2 回〔ボーナス〕無し 

.ご注文 NO . A -64 

«パソコンテレビ X-lG model 30ブリンタ特另怕ツト" 


20%OFF¥54,250 弓 


sharp CZ -822 C ¥118.000 

SHARP CZ -820 D ¥ 79.800 

STAR 24 ドット熱転写漢字フリンタ+ケーブル ¥ 73.250 

合計標準価格- 

現金特別価格-¥216,800 


，金特別価格 

¥4,000 > 


36 回〔ボーナス〕 ¥20, 000X6 回 
¥7,000 x 24 回〔ホーナス〕 ¥2 1,000X4 回 
3¥10,500 x 24 回〔ボーナス〕無し 


CZ-BPC1 

☆ご注文 NO . B _24 
''カラー漢字24ドット熱転写プリンタ〃 

CZ-8PC1 + ケーブル Y 69.800 

現金特別価格- y^rm 

| ¥3,800 x 18 回2¥5, 500 x 12 回 


☆ご注文 NO . B _25 

74ドット熱転写漢字プリンタ〃 

TR-24X + プリンタケーブル 

現金特別価格一 -¥49,800 

I ¥ 3,200 x 18回2 ¥ 4,600 x 12回 


名機 X -1 が 
こんなに身近 I 
楽しくなった。 


☆ご注文 NO . A -50 
M ターボが知的にパワーアップ" 

sharp CZ -856 C 
sharp CZ -855 D 

合計標準価格- 



¥178.000 

¥119.800 

M29^60€r 


..ご注文 NO . A -51 

'' X-l turbo II ワープロ特別セット" 


28%OFF¥115,850 引 


1 ¥4,000 X 36 回〔ボーナス〕¥ 18,000 X 6 回 

2 ¥7,000 X 24 回〔ボーナス〕¥ IM 00 X 4 回 

3 ¥10,000 X 24 回〔ポーナス〕無し 


SHARP CZ -856 C 
sharp CZ -855 D 
STAR TR -24 + ケーブル 
サム シンググッド 即戦力 

合計標準価格- 
現金特別価格 


¥178.000 
¥119.800 
¥ 73.250 
¥ 39.800 



特別価格 

¥5,000 
,000 
,000 


¥295,000 


① 

2 ¥ 8 , 

3 ¥10 


x 36 回 〔ポーナス〕¥ 30, 000X6 回 
X24 回 〔ボーナス〕 ¥ 38,000X4 回 
X36 回 [ボーナス〕無し 


CZ-8PD2S 

☆ご注文 NO . B -30 
”シリアルドツトマト 1 J クスブリンタ〃 


CZ-8PD2S + ケーブル 
現金特別価格 一 


yj^rm 

-¥38,000 


¥3, 500 x 12 回2¥6,700><6回 


どこよ！9もお得な 


XI G モデル10セツトをご購入の場合 


下 取機種 下取差額 

x - u グラフィックラム付……+ ¥ 107,000 

簡爾¥颉®挺^胁実施中/ コ g ? g，ggg 

+ ¥ 102,000 


PC -800 IMKII - 
PC -880 I 


XI ターボ II セツトをご購入の場名 


X 1 G モデル20セツトをご購入の場合 


下取機種 

x -丨、グラフィックラム付- 

FM NEW 7. 

PC -800 IMKII . 

PC -880 IMK 11/30.•… 


下取差額 

•+ ¥ 188,000 
+ ¥ 184 y 000 
+ ¥ 191,000 
+ ¥ 143,000 


下取機種 

x -丨、グラフィックラム付■•‘ 

FM NEW 7. 

PC -800 IMKII . 

PC -880 IMK 11/30••… 


下取差額 

+ ¥ 148,000 
+ ¥ 144,000 
+ ¥ 151,000 
•+ ¥ 103,000 



話題の新製品が全国どこでも電話で買えるク■ーフ” 
















































































ll\/DJ7Lft= 


CZ -811 C ( x-if モデル io ) 

¥89, 800岭 K 35,000 新品崗榫 

CZ -81 1 D ( I 4 インチ、2000字 RGBTV ) 
¥89,800岭ゲ45,000新品同锋 

X -1 F モデル10セツト 

(本体 + CZ -8 IID-TV デイスプレイ） 
新品同様特別セット価格 

¥ 179,600岭 ¥ 79,800 





-£1 


二^ r ニイ 

奪:傭雄腿 


±MjrE7MJA 

)(x-l ターボ II) 


CZ - B 5 BCC 
¥ 178,〇〇〇^ ¥ 125,000 

CZ -855 DO 5インチ、4050字 RGBTV ) 
¥ 119,800蟀 y 85,000 1 B ± S 1 

X -1 ターボ II セツト 

(本体+ CZ -855 D - TV ディスプレイ） 

特上品特別セット価格 

¥ 231 , soo^Y 208,000 



MZ -2200+ MZ 1 T 02 

(本体+専用データレコーダ） 

¥ 147,800岭 Y 28,000 


11 


CZ -8 PD 2 (io インチドットフリンタ） 
¥ 79,800畸 ¥ 35,000 新品同様 




CU -14 H 2 

(14インチ、4050字デジタルカラー） 

¥ 99,800岭 K 55,000 新忘同様 


CU -14 A 8 

(14インチ、4050字アナログカラー） 

¥ 99,800_ ¥ 59,800 新品同择. 


SHARP 

本体 

MZ -72 I ( データレコーダ内蔵） . ¥ 89,800 -► ¥ 

MZ -73 I (データレコーダ•カラーブロッタ内蔵)… • ¥ 128,000畤 F 
MZ - 2000(グト々，イスブレイ.データレコーダ内蔵)……¥218,000^ Y 

MZ - 2000 ( GRAM 、 丨、2、3ページ内蔵） . ¥265,000^ ¥ 

MZ - 2200 + MZIT 02( 本体 + 専用データレコー f ) …¥ 147,800峙 F 
X - I ( CZ 800 C 、 GRAM 付、マニアタイプ）…'、•.…¥ 187,000蛉 F 

•¥ 119,800岭ゼ 
•¥ 198,000岭ゲ 
•¥ 119,800岭 F 
•¥ 139,000岭ゼ 
•¥ 89,800岭 y 


X - IC ( CZ 80 IC ). 

X - ID ( CZ 802 C ). 

X - ICs ( CZ 803 C ). 

X - ICk ( CZ 804 C ). 

X-l F モデル 10 (GRAM •高速電磁カセットレコーダ内蔵） 

テイスブレイ 

12 M 15 B ( 12インチ、2000字グリーン） . ¥ 29,800岭ゼ 

14 M 522 C ( 14インチ'4050字カラー） . ¥ 99,800畸ゲ 

MZ-IDII ( MZ -5500 用 12インチ、4050字カラー）……¥ 113,000岭 ¥ 
CZ -802 D ( 14イ ンチ、 2000字 RGBT V ) . ¥ 128,000岭ゲ 

ブリンタ 

CZ -8 IP ( I 0 インチカラープロッタブリンタ） . V 34,800岭 y 

CZ -80 PK (漢字プリンタ) . ¥ 123,800峰 y 

CZ -800 P (ドットプリンタ） . ¥ 142,800岭ゼ 

CZ -8 PP 2( カラープロッタブリンタ） . ¥ 54,800# ¥ 

MZ - IP 04 (カラーインクジ: c ットプリンタ） . ¥ 228,000岭ゼ 

1/0-720( カラーインクジェットプリンタ） . ¥ 340,000峙ゼ 

C . B . CLUB HOT INFORMATION 


18,000 

25,000 

32,000 

45,000 

28,000 

35,000 

32,000 

35,000 

32,000 

38,000 

32,000 

12,000 

52,000 

48,000 

42,000 

14,000 

32,000 

35,000 

28,000 

68,000 

68,000 


その他 

CZ -300 F ( X - I 用3.5インチ FQ I ドライブ） .¥ 79,800畸 F 

MZ-I S 05 ( ディスプレイスタンド) . V 7,000峙ゼ 

MZ - IT 02( MZ - 2200用データレコーダ） . V 19,800岭ゼ 

MZ-IUOI ( MZ - 2000用拡張 I / O ユニット） . ¥ 37,000岭 F 

MZ - IE 24( MZ - 2000 ，80 B 用 RS -232 C I / F カード)…¥ 19,800疇ゼ 

MZ-IFII (クイックディスクドライブ） . ¥ 24,800岭ゼ 

CZ -8 RB ( R 0 M.BASIC カード） . ¥ 19,800岭ゼ 

CZ -8 IEB ( X - IC 用拡張 I / O ボックス） . ¥ 29,800蛉ゼ 

* 特選極上品•特価コーナー* 

* X 1シリーズ特選極上品コーナ_ * 

X - IF モデル新盎喱 ……V 89,800岭 F 
X - IF / 10セット(本体 + CZ 8 IID.TV ディスプレイ）薪 口 D 。同榫¥ 179,600岭 K 
父-1「モデル20(;莫字叩1^5^パ刊1基内嚴）新品同様¥ 139,800岭 F 
X - IF /20 セット(本体 + CZ 8 IID-TV ディスプレイ )— 新 口 0 。 同様¥ 229,600岭 ¥ 128,000 

X-I ターポ II セット （ CZ 856 C ) 特上品 . ¥ 178,000^ ¥ 125,000 

X-I 夕ーボ II セット(本体 + CZ 855 D-TV ディスフレイ） 特上品¥ 297,800岭 ¥ 208,000 
* ディスプレイ特選極上品コーナー* 

MD - I 2 PK 12インチ、4050字グリーン) 「新基奥後 ••••¥ 39,800畸ゼ 
CU -14 G ( 14インチ、2000字デジタルカラー) ff 口 5 。同様. • 

CU -14 H 2( I 4 イ々、4050字デジタルカラー)新口°。崗様 
CU - I 4 A 2( I 4 イガ、4050字アナログカラー)新4同様 • 

CZ -81 ID ( I 4 インチ、2000字 RGBTV ) 新品同様.. 

CZ -855 D ( I 5 インチ、4050字 RGBTV )!" 寺上品 •. 

* その他特選極上品コーナー* 

CZ -8 PD 2( I 0 インチドットプリンタ）新品同様……¥ 79,800峰 F 


28,000 

4,000 

8,000 

10,000 

7,000 

11,000 

8,000 

13,000 


35,000 

79,800 

85,000 


•¥ 49,800# Y 

• V 99,800岭ゲ 
•¥ 99,800岭 F 
•¥ 89,800峰ゲ 

• V 119,800岭 F 


28,000 

38,000 

55,000 

59,800 

45,000 

85,000 


35,000 

25,000 



¢5 


新会員をご紹介ください。今、雙ブレゼント/ 

会員の皆様の友人や知人の方で、コンピュータが欲しい、とい5方がいらつしゃいましたら、ぜひ 
コンピュータバンクをお勧めください。今、1万円以上お買求めの新会員をご紹介くださると、会員 
の皆様には特製の才 U ジナル T シャツをプレゼン トい/こします。 

※ご紹介いただく方と会員の方が、いっしよにお電話いただければ OK といろ簡単なシステムです。 


〇掲載の商品はいずれも限定品ですので今すぐお電話下さい。 


籲コンピュータバンクではあなたの不要になった 
パソコンを電話1本で査定し買取ります。 

籲どんな問い合わせにも親切に対応いたします。 

▼本社注文デスク 

003 ( 797)1221 



ココ Cl 


株式会社/彳シフィツクコンピュータ/ \、 J つ 

〒150東京都渋谷区渋谷 1-6-8 井上ビル 
営業時間/ AM 9: 30〜 PM 10:00年中無休 


1全商品保証付 6 ヶ月の保証期間だから安心です。 


|クレジツトで OK カレッジクレジットも取扱います。 

全国無料配送 全国どこでも配達料はいただきません。 


BBSS 2 j 1 rI 留守の多い方でも安心です。 

sSTffiO 少ない予算で買いかえもラクラク。 


高； 額 買取！ 9 電話1本で即、現金お支払い。 

代金引換えシステム 商品到着時の代金支払いで OK 。 

ボーナスー括払い 商品は即お手元へ、お支払ぃはホ-ナス時に。 



★電話1本で局額買取！3、即現金お支払い/ 


tLftiJ 


超優良中古パソコンが電話一本で買える " ilg 


















































































S ^^HIpF 全国どこでも顚綱ですぐに擁けいたしま毛 

_紳メ■ル細 

丁^■シンブルで使いやすいパソコンラック•テスク•チェアー11 ■原稿# 垂 

r A i^pi ニュービジュアル^ ISHiBsItil • ヂ_ < _ y 細抑 I m^l HB •刪 

li^ r r 擊 f 

け嫌^^〜簡顺 瞧越雜 — m & ^^ loO G10 ^9,800 


スライド式辛一 7 K _ K 台付 
パソコンビデオラック 

シンコー商事 PVR -54 エレガント ER -1200 

最大寸法:幅600 x 高さ855〜1185 x 奥行655% ¥13,800 ¥29,800 


■パソコングッズ 

〇八電源夕1プ 


tT»Ex»*-«W 


S3 IB'tliKlig 


ナショナル WCH 4511 TV フイルター (14 インチ用）電磁波防止 

ノイスフィルター¥6,980栗レ E フィルター NEW 14 エブロン 

集中スイッチ付 ¥9,600 エレンカ¥8,700 


1 砂 ！^ 

_ キ-ボ-ドのすき間の小さ 

nnm なゴミまで吹い取ります。〒ィフウケ—つ 、■ 

■ 奥様にもよろこばれます 。^ / un^n %■ 

パソコンクリーナー齡從。- 50 り ^ 
^ ¥8,700 ¥1 oToOO H41F 5 イン’チ 5 。校収納 3.5, 


EEBB 


IBHiKii 


クリーニングディスク 

フ□ッビィの 
アドコム AFC -20 ヘッド掃除に/ 

¥4.500 アドコム¥3,500 

3.5 インチ 20 枚収納① 5 インチ② 3. 5 インチ 


■各種切替器 

1台のプ _ J ンタと 
2台の/彳ソコンを 
切替えます。 

パソコン切替器 

¥9,800 


バソコン1 
バソコン 2* 

KSW-C 



ーブ U ンタ 




ディスプレイ切替器 

パソコン1 
パソコン2 

KSW-D 

8ビン RGB 、 クリーン端子付 

¥9.800 


1 

カラー 

J 

ク ij ーン 


酵 M 丽_ 

B 





モデム、 

RS 232 C 切替器 
バソコンて識 
KSW-M 

¥12.800 


X-1 ブリンタ切替器 

X -1 {部 


||^3 




x-S フ忠 f 〇〇 圓 

切替えて使えます。 


■ポケットコンピューター 


画 し ， im 

U^aCJa nnAriooooaooO 


a LD[±JC£1CJC 

, _ tassEieii 

aannaaoBH ULDuJuJQ 
」 LJtJiEBCi3£DC^J LJLJC3QQ 


ールをつければ最 


漢字が使えるポケコ 

PC-1600K 

¥64,800 _ 

隹 JIS 第1水準漢字を探準衮備__ 

春本体 RAM 16 K 巳に別売のモジユ_ 

大 80 K 巳のメモ 1 」エリアを碓保 
*処理速度も卩〇-1500シ | 」ースの約2.5培 
♦光ファイノ X —用インターフェイス内匾 
«ほとんどの PC -1500 シ 1 J ーズのソフトガ使用可 

■ポケコン周辺機器 

BMpc - ibook 周辺機器 

① CE -1600 P ¥64,800 4色フロッタフリンタ 

② CE -1600 F ¥34,800フロッピィドライフ 

③ CE -1600 M ¥28,000 32 KBRAM モジュール 

I麟 M 


mg 

nsdOOB 

CDQ ： ILG ： 匸 

(DOOOOOOOOOO OCSCSOfi 

00000000 ooB C 3 CDG 3 CIjC 
00000000 acai CDQCDGltii 

PC -1360 K ¥32,800 

最大 64 K 巳の大容璗メモ 1 J 。 
約40,000語の辞書を持つ 
_強力漠字 BASIC 搭載 

EnSEH PC -1360 ¥25,800 
PC -1360 K の姉妹機 
漢字機能無し 


④ CE -1600 L ¥17,200 光ファイバイーフル 
© CE -1650 F ¥ 9,800 CE - 棚 F 用ディスク(撇） 
◎ CE -1650 H ¥11, 800 約9万語の辞書 ROM 






¥4,000 

PC -1245 〜 1360 用 

カセツトインターフェイス 




誇心ィクロカセットレコイ 

ボケコン用 



瞧咖 


CE -126 P pn -1245 〜1360用 

¥15,800 サーマルフ U ンタ 


■抑編 



CE -202 M 伐;_1 

¥16,000 

PC -1350-1360-1450-2500^ 
16 KB メモリ塵 





CE -125 S 

¥24,800 

PC -1245 〜1261用 
フイク□レコーダ付ブ | J ンタ 


CE -140 P 

¥36,800 

PC -1350-1 360 -1450 S 

カラードットフ ij ンタ 


いま、カブラ•モデムホン摅上げの方に無料入会 


■パソコン通價機器 


モデムホン 





300(全二重） • 
1200(半二重） 
切替可 

MZ - 2500と組み 
合わせると自動 
発*信ち可 

シャーフ 
MZ -1 X 19 

¥69,800 

モデム 

300(全二重） . DOOC 半二重）切替司 

各信号状想を 
LED 表示 

アイワ 
PV -2123 

¥24,800 


lyiinptmi 


モテ 
エブソン 

SR -120 AT ¥49,800 
300(全二重） • UOOC 全二重)切替司 
自動発着信機能付 

■CZ-8TM^^ 


(ケーフル付） 


■臟硎 

シャーフ CZ -8 TM 1 

¥29,800 

300(全二重)通信ソフト • 
RS -232 C ケーフル同梱 



RS-232C ケーブル 

I脚》通 





カブラ 〇 -343-A 
充交両用タイフ 

¥38,000 


アイク 

CPW -2 

¥3,500 


■議 bUI 

コスモステーション 

シャーフ CZ -136 SF 

¥9,800 

x-i でノ パソコン通信の 
ホスト局を開けます。 




モデム 

ターミナル ^ 

CZ -133 SF 一 

¥25,800 




x-i ターホ( II ) 
用モデムボー 
ド〇ス〇ット 
に差し込み、 
電話棵を接続 
します。 

RS -232 C • 

モジュラーケ 
ーフル•通信 
ソフト付 




~ rn 

M 


パソコン 
通信ソフト 
シャーフ 
CZ -131 SF 
X -1 ター ホ 
( II ) 用 
¥8,800 















































































1¢ K B ? t ： ン卑ス上コン•ヮ伊トプ。セ 

] 】胃羈 w la 镛12シネスソフト . oa サプ，イ 

粟5^ 画* _ハントヘル！*コンビュー， 

■' a ，ビジネスパソコン 

^ g G ソ.パ-ノ ;%;、ブ•レ i 

^ _ • ハ•ソコンアクセサリー _ 

T if ホビーのパソコン 

ijs^^k B:” “、？•“， w 

■ディスク価格表 (いすれも10权単位になつております >) 




東京《 渋 谷区 i | 玄坂2 丁目28番4号（亍15 0) 

0 ( 03 ) 496-4141 



5"2 D 

5"2 DD 

5 W 2 HD 

3.5〃1 DD 

3.5 W 2 D 

3.5 W 2 DD 

V 

クセ 

ル 

① ¥3,200 

⑧ ¥4,600 

⑬ ¥6,400 

㉒ ¥6,700 

㉙ ¥6,700 

©¥8,400 

ス 

リー 

M 

② ¥3,200 

⑨ ¥4,600 

⑭ ¥6,400 

㉓ ¥6,700 

©¥6,700 

@¥8,400 

メモレックス 

③ ¥3,400 

⑭ ¥4,700 

⑰ ¥6,300 

㉔ ¥7,300 

⑪ ¥7,300 

⑭ ¥8,700 

データ ライフ 

④ ¥3,000 

©¥4,000 

⑭ ¥6,900 

©¥7,100 

@¥7,100 

㉚ ¥8,500 

フ 


ジ 

⑤ ¥3,400 

@¥4,800 

⑭ ¥6,500 

@¥7,200 

⑬ ¥7,200 

©¥8,500 

ソニー 

⑧ ¥3,200 

⑬ ¥4,600 

⑳ ¥6,000 

㉗ ¥7,100 

⑭¥7,100 

©¥8,900 

T 

D 

K 

⑦ ¥3,400 

⑭ ¥4,400 

⑪ ¥6,500 

㉘ ¥7,500 

@¥7,500 

@¥8,800 


⑬ 

クイック 

ディスク 

シャーフ 

MZ-6F03 

¥4,500 


■< MZ - 2500オプション> 


■_fckU 





■ I# 



IBIIIHCtKi 


B[_l 






MZ-1E26 MZ-1M10 

¥24,800 ¥14,500 

ボイスコミュニケ ーシカラー バレット 
ヨンインターフェイスボード 


MZ-1X10 MZ-6Z001 

麟用恐800 ¥16,800 p/M 


¥ 22,000 

MZ 2500 用、辞書 ROM 


RM-25A-1 

¥13,100 

MZ- 2500 用 
増股ビデオ 
RAM 力ード 



RM-25A-2 

¥12,100 

MZ- 2500 用 


RM-25E(640KB)> 


増股 RAM カード ¥49,800 


■テータレコータ 

■XH 也猢 



X-1 男用 
データレコーダ 

CZ-8RL1 

¥24,800 


■< X - l オプション 〉 uma 



シャーフ CZ-8 巳VI 

¥39,800 


■プリンタ 


令 


シャーフ MZ-1P17 

¥69,800 

音の靜かな熱転写印字 
X-VMZ- 2500 に対 ¢5 
カラー対疝漠字フ 1 J ンタ 
ボディ カラー ①白②黒 



X-1 用漢字フ 1 J ンタ、 
•フル付。 

スター TR-24X 

¥45,800 


BEI 


■ツイン フア S コン 



カセツトちディスクち 
使えるスゴイやヅ/ 
任天堂のファミコンの 
ソフトがそのまま使え 
ます。 


¥32,000 


■ブ 1 J ンタオプション 

プリンタバッファ（セント□用） 

* 印字待ちの時間が短<なります。 

翁印字後、コピーが1枚とれます。 
♦バッファク | j アスイッチ付 

① メルコ CP-64(64KB) ¥49300 

② メルコ CP-256(256KB)¥69, 800 







MZ -1 R 29 
MZ -1 P 17 用第 2 水準 

漢字 ROM ¥32,000 


IX -1/ X -1 ターボシステムソフト ™ 


商品名 

機種名 

価 格 

システム •]- サ-辞窗(夕-ボ） 

① CZ -111 SF (2 D *5 ’FD 版） 

8.800円 

«楽 B 夕-ポ (7 ウス付） 

@ CZ -114 SF (2 D .5 .FD 版） 

17.800円 

tortX ) L 0 GCX * 字版） 

② CZ -117 SF (2 D -5 .FD 版） 

18.800円 

ランゲ-シスタ - (CP 

④ CZ -128 SF (2 D ，5‘ FD 版） 

9.800円 

turbo CP / M (*?») 

⑮〇乙-1303ド(2〇,5下〇版） 

14.800円 


FORTRAN 

® CZ -115 LF (2 D .5 'FD 版） 

13.800円 

y 

C • 

⑦ CZ -116 LF (2 D .5 ，FD 版） 

13.800円 

turtx ) L 0 G 0(*?® 

⑬ CZ -117 SF (2 D^FD 版） 

18.800円 

ゲ 

| 

COBOL 

◎ CZ -118 LF (2 D *5 FD 版） 

13.800円 

ジ 

PROLOG 

@ CZ -119 LF (2 D .5 .FD 版） 

13,800円 

シ 

1 ) 

USP 

⑪ CZ -120 LF (2 D ..5. FD 版） 

13.800円 

1 

FORTH 

⑫〇乙一1211 尸(20-5-卩0版） 

13.800円 

女 

PASCAL 

⑬ CZ -125 LF 

13.800円 


AP し 

⑭ CZ -126 LF 

13.800円 


X -1 をパワーアップ* t る NEW BASIC 
( Ver .2.0) 




対跖櫬欖 

機種名 

価格 

CZ-800C 

CZ-801C 

CZ-802C 

CZ-803C 

CZ-804C 

①カセツト版 CZ -112 SF 

¥7,800 

② 3 "FD 版 CZ -113 SF 

¥8,800 

③ 5 "FD 版 CZ -123 SF 

¥8,800 


■各種漢字 ROM 

① CZ -8 BK 2 X -1 F 第 1 水準 ROM ¥19,800 

② CZ -8 BK 3 X -1 夕ーホ第 2 水準 ROM ¥13,800 
© CZ -8 BK 4 X -1 ターボ 2 第 2 水準 ROM ¥6,800 



キ | J 卜 1 J 線 ' 


►記載以外のご注文ち承りますので、詳 
し< はお電話にてお問い合わせ下さい。 

0(03)496-4141 


おところ 

注文 No 

数量 

金 額 


M 10- ( ) 


円 


M 10-( ) 


円 

TEL ( ) 

合 計 


円 

おなまえ 

通信欄 


様 




お申込み先：東京都渋谷区道玄坂2丁目28垂4号(亍15 0) JWP > 渋谷店メールシヨツビンヴ係 


mz- 

s ^: 

ぐ. ♦ • • 


右の注文害にご希望商品の注文 N 0 
および必要事頃ご記入の上、現金 
書留にて渋谷店までお申し 
込み< ださい。現金受領後、発送 
いだします。 

なお、現金書留以外で申し込まれ 
た場合は貴任を負いかねます。 


お申し込み方法 


^ wm wm 

tst wm 


Personal Computer Store 


メールシヨツピンク©お申し込みは渋谷店で承ります 


現金書留申込み用紙 






































































































































©©©© 全国どこでも送料無料ですぐにお届けいだします。 

■ルシヨツ 

MZ シ 1 J ーズ用 

アリオン U クラス アグレス 



注文 No 

M 10-1 

適応概種 

MZ -2500 

ソフト八ウス 

アスキー 


大人気のアニメ映画「アリ 
ズン j がアドペンチヤーに 
なって登場。コマンド選択 
式入力で操作はカンタン。 
映画のムードでフレイでき 
¥7,800(3.5DD) る楽しぃゲーム。 



注文 NQ 

M 10-2 

適疝檐種 

MZ - 2500 

ソフト八ウス 

ランダム八ウス 


¥fi，800(3.5，DD) 


話題の 1 J アルタイム* □一 
ルフレイングゲーム。フル 
カラー高速スク□ールガす 
ばらしぐ、従来のハイスク 
□ールの概念を<つがえし 
た。 



1注文 No 

M 10-3 

|適疤锇種 

MZ -2500 

|ソフト八ウス 

リバーヒル 


新想覚のアドペンチヤー。 
フルチウインドウ表示、コ 
フンド入力方式。 


¥7,800(3.5DD) 


タイトル 

コスミックソルジャー 

ゼビウス 

プロフ I ッショナル麻雀 

ばって W ヌキの大首険 

エキサイトバイク 

□ードランナー 

ペンギン君 WARS 

デグザー 

適珩檐種 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

ソフト八ウス 

スキー 

ナコム 

シヤノアール 

テクノソフト 

ハドソン 

ソフトフロ 

アスキー 

ゲームアーツ 

注文 No | 価格 

M10-4 | ¥3.800(1500) 

M10-5 1 ¥6.800(3500) 

M10-6 | ¥6.80(K35OO) 

M10-7 1 ¥4.800(00) 

M10-8 | ¥6.800(3™ 

M10-9 | ¥6.800(3500) 

M10-10 | ¥6.800(3500) 

MlO-llj ¥6.800(3.5*00) 

タイトル 

蒼き狼と白き牝鹿 

キングフラツビー 

メルペンベール 

カレイドス コーブ 

道化師殺人事件 

リザード 

KUI -ー ン 

フラックオニキス 

適疤機檯 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

ソフト八ウス 

光朱 

dB ソフト 

システムサコム 

ホツトビー 

シンキングラビット 

ク |J スタルソフト 

ザインソフト 

B-P.S 

注文 NQ | 価格 

M10-12 | ¥8.800(3500) 

M10-13 ¥6.800(3^00) 

M10-14 | ¥7.900(3500) 

M10-15 | ¥9.800(3^00) 

M10-16 | ¥9.800(35*00) 

M10-17 | ¥6.800(3^00) 

M10-18 | ¥6.800(3 鶏 

M10-19 | ¥7.500(3.5*DO) 

タイトル 

棋太平 

マカダム 

▽ー ペラス 

バックトゥザフュ-チャ- 

信長の野望 

チヤンピオンプ□レス 

八イドライド 

フリッキー 

適応機種 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2200/2500 

MZ-2000/2200/2500 

MZ-2000/2200/2500 

ソフト八ウス 

S-P-S 

デービーソフト 

データウェスト 

ポ ニー 

光栄 

フイク□ネツト 

T&E 

マイク□ネット 

注文 No I 価格 

M10-20 | ¥7.000(35TO) 

M10-21 | ¥6.800(35TO) 

M10-22 | ¥6.50(K3J5TO) 

M10-23 | ¥6.800(3^00) 

M10-24 | ¥6.800(35,00) 

M10-25 [ ¥4,800( テ- 7) 

M10-26 | ¥4.800(t-7) 

M10-27] ¥4.800( テ- 7) 

タイトル 

F 2 グランフリ 

大脱走 

オフラ ザー ズ 

プラズマライン 

ジャン狂 

花札狂 

ビクト 1 」アスナイン 

野球狂 

適応機種 

MZ-2200 

MZ-2200 

MZ-2200 

MZ- 2000/2200 

MZ-2000/2200 

MZ- 2200/2200 

MZ-1500/X-1 

MZ-1500 

ソフト八ウス 

キャ D —ラボ 

キヤリーラボ 

八ドソン 

テクノソフト 

八ドソン 

八ドソン 

ニデコ 

ハドソン 

注文 NQ | 価格 

M10-28 | ¥3.800(t-7) 

M10-29 | ¥4.200(f-7) 

M10-30 | ¥3.600( テ- 7) 

M10-31 | ¥4. 800( テ- 7) 

M10-32 | ¥4.000(t-7) 

M10-33 | ¥4. 000( テ- 7) 

M10-34 | ¥4,500( テ- 7) 

M10-35 | ¥5.800(00) 

タイトル 

ナイザー 

対局将棋将棋名人 

ェキサ仆四人麻雀 

□ードランナー 

ドルアーガの塔 

サラダの国の卜 7 卜姬 

デゼニワールド 

任天堂のテニス 

適疤檐檯 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

ソフト八ウス 

ナコム 

ソフトプロ 

テクノソフト 

ユニバース 

ユニバース 

ハドソン 

ハドソン 

ハドソン 

注文 to |価格 

M10-36 | ¥4.800(00) 

M10-37 | ¥4.800(QD) 

M10-38 | ¥4.800(00) 

M10-39 | ¥5.200(00) 

M10-40 | ¥4.800(QD) 

M10-41 | ¥5.800(QD) 

M10-42 | ¥5.000(00) 

M10-43 | ¥5.800(00) 


■ X _ l シリーズテープ版 


八イドライド II 



注文 NO M 10-44 


ソフト八ウス T&E 


本格 R.P.G 14種の藤法 
ガ使え、スピードはレぺ J し 
で自由設定。フツフはハイ 
ドライドの6倍、途中デー 
夕のセーフ•□ー ドち可能。 


X 1/ F/T 


¥4,800 


U グラス 



¥4,800 


注文 N 0 

M 10-45 

適疝檐檯 

X -1 

ソフト八ウス 

ランダム八〇ス 


話題の 1 J アルタイム • □一 
ルフレインブゲーム。フル 
カラー a 逮スク□ールかす 
ばらし<、従来のハイスク 
□ールの概念を<つかえし 
だ 0 



アルバトロス 


注文 No 

M 10-46 ' 

適晒機種 

X -1/ F/T 

ソフト八ウス 

日本テレネット 


あだかち TV カメラかとら 
えたよラに、打球を追って 
画面が高速スクロール。木 
にあたつてはねかえるのも 
なかなかリアル。 


¥5,800 


タイトル 

ザ•ナドウ 

チャンビオン 
ブ□レススペシャル 

任天堂のゴルフ 

ブロフヱッシヨナル麻雀 

野球狂 

レレ 2 

フリッキー 

アウト□イド 

適疤檐種 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

ソフト八ウス 

日本ファ』レコム 

マィク□ネット 

八ドソン 

シヤノアール 

ハドソン 

日本エー•フイ•シー 

マイク□ネット 

マジカルズー 

注文 No |価格 

M 10-47 | ¥6.800 

M 10-48 | ¥4.800 

M 10-49 | ¥4.000 

M 10-50 | ¥4.800 

M 10-51 | ¥4.000 

M 10-52 | ¥4.800 

M 10-53 | ¥4.800 

M 10-54 | ¥4.800 

タイトル 

マクロスカウントダウン 

ア乂 U カントラック 

キャッスルエクセレント 

TOKYO ナンパストリ-卜 

ウィンクマン 

エリカ 

卜 1 JI -ーン 

棋太平(対局将棋） 

適疱檐種 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

ソフト八ウス 

ボーステック 

日本テレネット 

アスキー 

エニックス 

エニックス 

ジャスト 

ザインソフト 

SPS 

注文 No |価格 

M 10-55 | ¥4.500 

M 10-56 | ¥4.500 

M 10-57 | ¥4.800 

M 10-58 ! ¥4.800 

M 10-59 | ¥4.800 

M 10-60 | ¥4.800 

M 10-61 | ¥4.800 

M 10-62 | ¥4.500 

タイトル 

フラックオニキス 

H スター バンフ 

テグ ザー 

八イドライド 

ペンギン君 WARS 

ド ルアー ガの塔 

スカーレット 7 

ワールドゴルフ 

適疝儀種 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

ソフト八ウス 

B . P.S 

NCS 

スクウェア 

T&E ソフト 

アスキー 

▽イコンソフト 

ソフトプロ 

エニックス 

注文 ftaf 価格 

M 10-63 | ¥5.800 

M 10-64 | ¥4.800 

M 10-65 | ¥5.800 

M 10-66 | ¥4.800 

M 10-67 | ¥4.800 

M 10-68 | ¥3.800 

M 10-69 ! ¥3.800 

M 10-70 | ¥4. 800( テ-フ） 






















































































































■ XH シリーズ 5 インチテイスク版 
レ 1 J クス 


柬京《ポ谷区谓玄坂 2 丁目 28 番 4 号（亍 150) 

0 ( 03 ) 496-4141 


アルファ 



注文 N 0 

M 10-71 

適疝機種 

X -1/ F/T 

ソフト八ウス 

ボーステック 


¥7,200 


たつ芒5名の家族を、200万 
の大騎馬軍団に育てた史上 
最大の征服者、ジンギス汗、 
シフサワ • コウが戦略ゲー 
ムに再現。 



ウインクマン II 


1 

注文 No 

M 10-72 


適疝搛種 

X -1/ F/T 

ソフト八ウス 

スクウェア 


¥5,900 


アニメ伝説が「アルファ j を 
生んだ。ストーリーの各所 
にアニメーションを取り入 
れた S * F ス I -一 U —の FV 

P . G 。 



注文 N 0 

M 10-73 

適疝檐種 

X -1/ F/T 

ソフト八ウス 

エニックス 


¥6,800 


前作ウイングフンを知らな 
<てち、フンガのス I U 
一を知らな<ても楽し<遊 
ベる、おちしろアドペンチ 
ヤー0 


タイトル 

ランボー 

棋太平(対局将棋） 

スカーレツト 7 

フレイン フレーカー 

リザート 

デゼニワールド 

ザナドウ 

卜 1 JI -ーン 

適応檐種 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

ソフトハウス 

日本 エー •フイ •シー 

SPS 

ソフトプロ 

エニックス 

クリスタルソフト 

ハドソン 

日本ファルコム 

サインソフト 

注文 NQ |価格 

M 10-74 | ¥6.800 

M 10-75 | ¥6.500 

M 10-76 | ¥5.800 

M 10-77 | ¥5.600 

M 10-78 | ¥6,800 

M 10-79 | ¥6.800 

M 10-80 | ¥7.800 

M 10-81 | ¥6.800 

タイトル 

フロフェツ シヨ ナル麻雀 

デグ ザー 

アルバト□ス 

ワールドコルフ 

□— ドランナー 

夢幻の心篇 UI 

フ 1 J ツキ ー 

フラックオニキス 

適疝搛種 

X -1/ Turbo 專用 

X -1/ F/T 

X -1 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

ソフト八ウス 

シヤノアール 

スクウェア 

日本テレネツト 

エニックス 

ソフトフロ 

クリスタルソフト 

フイク□ネツト 

BPS 

注文 No |価格 

M 10-82 | ¥6.800 

M 10-83 | ¥6.800 

M 10-84 | ¥8.800 

M 10-85 | ¥5.800 

M 10-86 | ¥5.800 

M 10-87 | ¥7.800 

M 10-88 | ¥6.800 

M 10-89 | ¥7.800 

タイトル 

蒼き狼と白き牝鹿 

メルペンベール 

八イドライド II 

ペンギン君ウォーズ 

ジャイ□ダイン 

野球狂 

U グラス 

ァ 1 J オン 

適疝機種 

X -1 ターボ 

X -1/ F/T 

X -1 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

ソフト八ウス 

光栄 

システムサコム 

T&E 

アスキー 

ニデコ 

アスキー 

ランタム八ウス 

アスキー 

注文 Nq f 価格 

M 10-90 | ¥7.800 

M 10-91 | ¥7.900 

M 10-92 | ¥6.800 

M 10-93 | ¥6.800 

M 10-94 | ¥6.800 

M 10-95 | ¥7.200 

M 10-96 | ¥6.800 

M 10-97 | ¥7.800 

タイトル 

ウィバーン 

ウィザード 1 」一 

□ボレス 2001 

爆走バギ——発野郎 

軽 井沢誘拐 案内 

カレイドス]-プ発汗惑星 

三国志 

A 列車で行ころ 

適 疝 機種 

IX - 1 / F/T 

X -1/ F/T 

X -1 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

X -1/ F/T 

ソフト八ウス 

アルシスソフト 

アスキー 

y イク□ネツト 

ボーステック 

エニックス 

ホツト•ビー 

光栄 

アートテインク 

注文 N 0 |価格 

M 10-98 | ¥6.800 

M 10-99 | ¥9.800 

M 1 O -100 1 ¥6.800 

M 10-101 | ¥6.200 

M 1 O -102 1 ¥5.800 

M 1 O -103 1 ¥6.800 

M 10-1 M | ¥14.800 

M 10-185 1 ¥7.800 


日本語ワープ□「：！一カラ J J J をはじ 
め他針6檯のソフトガセツトされたお 
質得ソフトです。 


EBEBH 



シャーフ X - 

5"2 D 


特価 


19,800 H 12,800 


注文 No 

通珩 機種 

タイトル 

ソフト八ウス 

メディア 

偭格 

内 容 

M 10-106 

MZ -2500 

ユーカラ!<2 

栗®ク U エイト 

3.5 ，DD 

¥2 

一括入力、遂次文軀変捵方式の日本語ワーフ□、文節学 S «* も装備。フ□ック入力€はじめ 
とし C 缠力な編集**も特畏。 

■107 

X -1 ターボ 

ビジレス漢容版 

OA テック 

5,20 

¥48.000 

カンタン操作で自由な表づ < 項目別挨索。セル間*輝。 篥 計。自動フ□グラムと**も充実。 

M 10-108 

X -1 ターボ 

日本語 ワープロ 
「即《 力」 

サムシンググッド 

5,2 D 

¥39.800 

99%の変換連成車を可能にし C 使いやすさ。16ビットに迫る截範を実現/ 

M 10-109 

X -1 ターボ 

Multiplan 

シャーフ 

5 # 2 D 

¥49.800 

16ビット儀でしかなかったあの7ルチフランか XM ターボで新晃売、ビジネスにはぜひ活用し 

C いソフトです。 

M 10-110 

X -1 ターボ 

ユーカラ POP 

東油ク U エイト 

5,2 D 

¥28.000 

文字の SS 大、色つけ、文■作成が!■単にできるテレビ、ビデス B 面にテ□ッフ表示も可能。 

M 10-111 

X -1 ターボ 

日翊 My CARO 

アバロン 

5,2 D 

¥58.000 

▽イコン表示による使い易さと独自の OS による超高速®理の;〇—ド型デートペース。 

■112 

X -1 ターボ 

Hu CA し日本思 

八ドソン 

5,2 D 

¥45.000 

漢字版表集計篝ソフト。 255 x 10.001 行の大きな集計用紙でデータの耵正入力も!■単。 

M 10-113 

MZ - 2500 

TURBO PASCAL 
(Ve 「 3.0) 

MSK 

3.5,2 DD 

¥29.000 

最強 • 低®格の Pascal コンバイラーが MZ - 2500でもご利用いただけ家す。 

M 10-114 

X -1 ター ポ 

Inkpot (7 ウス付） 

アスキー 

5,2 D 

¥38.000 

エアブラシを含む 14 霪顙のペン先と 37« 類のタイトル/〖ターンを用窳し3：し C 。 マウスを使っ 

て多彩な 篥« 能で映微をコント□ール。 

M 10-115 

X -1 ターボ 

印剿工房 

モーリン 

5 M 2 D 

¥14.000 

24ドットフリンタ以外でも24ドット印字を可庙にし*す。1/4角、 W かけ、妇体、強調印字も 

でき文窗表現も■かにし3：す。（ユーカラが必要） 

M 1 Q -116 

MZ - 2500 

カラー印» 
キットばれつと 

ダイナウェア 

3*5,2 DD 

¥18.000 

•■ばれっと」は絵 P 文字を組み合せ C 表現 B かなカラーグラフイックを手経に描いて印刷でさる 

ソフトです。（マウス别売） 



キ >」卜 1 j 線| 


>記載以外のソフトのご注文ち承ります 
ので、詳し<はお電話にてお問い合わ 

せ下さい。 s (03)49 B -4141 


おところ想□□□□口 

注文 N 0 (5 •^ス 3) 

数量 

金 額 


M 10 — （ ） 

本 

円 


M 10-( ) 

本 

円 

TEL ( ) 

M 10-( ) 

本 

円 

おなまえ 

合 計 

本 

円 

様 

お手持の機種名 

C 

) 


お申込み先：東京都渋谷区道玄坂2 丁目28番4号(亍150) Jtejp 渋谷店メールショッピング係 


右の注文書にご希望商品の注文 No 
および必要事項ご記入の上、現金 
書留にて渋谷店までお申し 
込み< ださい。現金受領後、発送 
いたします。 

なお、現金書留以外で申し込まれ 
た場合は責任を負いかねます。 


お申し込み方法 


お奨めソフト 


Personal Computer Store 


ロアー ごあんな 


メールシヨッピンク®お申し込みは卿渋谷店で承ります ) 


現金書留申込み用紙 

























































































































知識のない人も凝りたい人も 
楽しさ倍増——楽譜エディタ 

基本的な楽譜入力が、メロデ V + コード(記号）の 
2パート入力だけで6重和音が自動演奏でき、今 
までの TOOL よりカンタン！だから音楽にあまり知識 
がない人でも作曲、 

シエミレーシヨンなど 

力味分楽しめま1； 
その上、音源ェ对夕 
で作った音を入れ 
たり、伴奏パターンを 
変えることも出来ま1; 


感性に合わせて 

音の選択思いのまま一音源エディタ 

FM 音源の音色を自由に創造できる満足 TOOL 。 
POP な音、ハイテックな音、キミの感性を思いきり 


-~ i -- ♦-二 


轉 if 

你泷 • at 物 a$ 私 m ^ 

u tRj . tni \u\ ;rsi 



楽画面は、実際とは多少 
異なる場合があります。 





☆ U 、 ろく付 


•夕 tr ノ霞ノブ於 
•死ン彌セツトテープ 
豺リジナルカセットレ-ベル 


籲サンプル MUSIC 

•初めての人にも簡単 

•鯡マニュアル 


豊富な機能で演奏自在に七変化 

—ウキウキプレーヤー 

作った曲をお好みのプログラムで演奏できるオート 
プレイ機能付。（リピート、ランダム演奏可能）さらに 
チューニング機能もついて曲の音程、 TEMPO など 
も変えられ楽しさ 
| 2倍、3倍！いろん 

なリズム ハ。 ターンを 
持っているのでリズ 
ム BOX にも般適！ 


MZ- 2500 (SUPER MZ ) 対応 

( ハードウェア贼） 

參本 f 本 RAM /256 KB . VRAM /128 KB . DRIVE . 2ドライ 
• CRT MZ -1 D 22 及び400ラスタ CRT 

3.5 インチフロッピーディスク定価 7,800 


SUPER SOFTWARE LAB . 




し Qian^onskp M UNIV0IO0 

mnc KUnitC 『^\ W 丧％ャム l 〒■岡山市下中野 519 - 1 TEL ( 0862 ) 44 - U 76 〔年中無休〕 PM 1:00 〜 Pirao 

•通信販売ご希望の方は現金書留にて上記ユニバ-ス宛ご注文ください。（送料サ-ビス） 
















4 ハード情報•ソフト情報 

新製品情報をはじめ、ライバルに差をつける最新情報がいっ 
ぱい。日本最大のパソコン専門店 J & P ならではの情報量です。 

I コンサート映画•旅行情報 

「びあ」などの情報サービス企業と提携。チケットの前売状況 
など、生きた情報がすぐに手に入ります^ 

i 株式情報•その他 

市場の動向がタイムラグなしに入手できる株式情報や海外 
情報などニュースソースは豊富。その他、さまざまなジャンルの 
企業と IP 提携を進行中。現在進行形でどんどん情報の世 
界を拡げています^ 


I 知ってるだけじゃ、自慢にならない。 
コンサート情報、おしやれなカフェ•バー、 


万全のサポート体制で全国をネットするパソコンの大型専門店#チェーン。 


渋谷店東京都渋谷区道玄坂2丁目28番4号 0(03) 496-4141 
町田店東京都町田市森野1丁目39— 16 0(0427)23-1313 
八王子店東京都八王子市旭町1番1号八王子そごう 7 F 0(0426)26-4141 
テクノランド大阪市浪速区日本橋5 丁目6番7号《(06) 644-1413 
メ•デ<アランド大阪市浪速区日本橋5丁目9番 H 号 0(06) 644-1613 
ワープロランド大阪市浪速区日本橋4丁目9番15号 tt (06) 644-1150 
ビジネスランド大阪市北区梅田 1-1-3 大阪駅前第3ビル B 2 a (06) 348-1881 
阪急三番街店大阪市北区芝田 1-1-3 阪急三番街 B 10(06) 374-3311 
高槻店高槻市高槻町11一16 0(0726)85-1212 


くずは店枚方市楠葉花園町 15-2 0(0720) 56-8181 
千里中央店豊中市新千里東町 1-3-204 千里サンタウン 3 F 0(06) 834-4141 
京都寺町店京都市下京区寺町通仏光寺下ル恵美須之町549 0 (075)341-3571 
姬路店姪路市東延末1丁目1番住友生命姫路南ビル 1 F 0(0792)22-1221 
和歌山店和歌山市元寺町4 一 8 — 1 0(0734)28-1441 
栄ノバ店名古屋市中区栄3丁目 4-5 SAKAE N 0 VA 6 F 0(052)261-9201 
四日市店四日市市鵜の森2— 〗一19 0(0593)54-3366 
津 店津市丸之内 3〗 一 20 0(0592)26-0111 





























SHARP 




m 



パーソナルコンピュータ 

■112 H ] 国 _ 標準価格89,800円 

キャラクタづくりも自在、強カグラフィック機能籲音楽演奏もお手のもの、 
充実のサウンド機能籲上達に合わせて進化するクリーン設計籲能力をグン 
とアップさせる RAM ファイル (オプション)# おしやべりも OK 、 ボイスボード (オプ 
ション) •買ったその日から即使える実用ソフトつき。 

▲写真の14型カラーディスブレ TCU -14 F 1 B 標準価格64,800円•ブションです。春 CRT 画面(かメコミ合成で「ギャラガ 」(©㈱ 
ナムコ)より。またその他の画面は「ロードラオー」(ユニバース)、「ドアドア mk II 」(エニックス)、「ユーカラ J 心(東海グ J エイト)、 r ミュー 
ジックダンス」（ロータス)、「サンダーフォース」(テクノソフト)より。※ロードランナーは USA Broderbund Software Inc の登録商標です。 


新作ソフトも続々登場、いよいよ充実してきた QD アプリケーション 


ソフトジャンノレ 

ソフト名称 

標準価格（円） 

ソフトメーカー 

ソフトジャンノレ 

ソフト名称 

標準価格（円） 

ソフトメー カー 

ゲ ー厶 

チャンピオンシップ□ー ドラ > t - 楽 

5,000 

ユニバース（コスモス岡 山） 

ゲーム 

バルーンフアイト 

6,800 

ハドソン 

ウォーリィ 

4,800 

マイク□キャビン 

JOY JOY PACK SPECIAL 

9,800 

SBC ソフトウェア 

ドルアーガの塔 

4,800 

電波新聞社 

ビジネス 

ユーカラ JJ ( MZ -1 P 17 専用 ) 

12,800 

東海クリェイト 

グロブ ター 

4,500 

電波新聞社 

NEW VIP 

12,800 

デービー ソフト 

マジックファクトリー 

5,800 

コムノ\•ック 

学 習 

中学数学シリーズ 

各 4,500 

数研塾 

信長の野望 

5,800 

光栄 

中学英作文 シリーズ 

各 7,800 

ばってんタヌキの大冒険 

4,800 

テクノソフト 

中学•高校社会科 シリーズ 

各 4,500 




•上記のソフトはほんの一例です。烊しくは * MZ APPLICATION NEWS •をご K ください，•ロードランナーは USA Broderbund Software Inc の登録商標です。 


:/^一龙株式会？1本社〒545大阪市阿倍野区長池町22番22号 0(06)621-1221( 大代表)•お問い合わせは…本社内国内情報システム営業本部まで。 


夢 


OllliillllZ ㈱ tl 本ソフトバンク発行 Printed in Japan 定価 480 円 
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